xmlreader

Hola a todos, estoy intentando leer el archivo siguiente tipo XML con el
xmlreader:
<?xml version="1.0" standalone="yes"?>
<!DOCTYPE Config SYSTEM "E:\Documents and
Settings\vald_xav\Escritorio\config.xml">
<!--Configuració de la llibreria ADA-->
<Players>
<Player1 Nom="Reproductor #1">
<Renderer>DirectSound: Digigram VX442 1/2</Renderer>
<PFL>DirectSound: Digigram VX442 3/4</PFL>
<Status>2</Status>
<Mode>1</Mode>
</Player1>
</Players>

Esto lo hago con la siguiente cadena:
Dim xRdr As New XmlTextReader(dlgLoad.FileName)
xRdr.WhitespaceHandling = WhitespaceHandling.None

'xRdr.MoveToContent()

xRdr.MoveToFirstAttribute()

While xRdr.Read

MsgBox(xRdr.Name() & "-" & xRdr.Value())

xRdr.MoveToNextAttribute()

End While

Bien, pues resulta que si descomento el movetocontent me da systemerror y
si no, al leer la cabecera del archivo (al siguiente atributo) me da

Qué hago mal?!?!?!

Muchas gracias,

Xavier

Prueba asi en pseudocodigo


Dim xRdr As New XmlTextReader(dlgLoad.FileName)
xRdr.WhitespaceHandling = WhitespaceHandling.None

While xRdr.MoveToContent() = XmlNodeType.Element

xRdr.MoveToFirstAttribute()
dim x as boolean = true
While xRdr.Read

MsgBox(xRdr.Name() & "-" & xRdr.Value())
x = xRdr.MoveToNextAttribute()
end while

End While

Saludos!
http://cacho.zapto.org/blog




"Xavier Valdés" wrote in message
news:e4PX$w$
> Hola a todos, estoy intentando leer el archivo siguiente tipo XML con el
> xmlreader:
> <?xml version="1.0" standalone="yes"?>
> <!DOCTYPE Config SYSTEM "E:\Documents and
> Settings\vald_xav\Escritorio\config.xml">
> <!--Configuració de la llibreria ADA-->
> <Players>
> <Player1 Nom="Reproductor #1">
> <Renderer>DirectSound: Digigram VX442 1/2</Renderer>
> <PFL>DirectSound: Digigram VX442 3/4</PFL>
> <Status>2</Status>
> <Mode>1</Mode>
> </Player1>
> </Players>
>
> Esto lo hago con la siguiente cadena:
> Dim xRdr As New XmlTextReader(dlgLoad.FileName)
> xRdr.WhitespaceHandling = WhitespaceHandling.None
>
> 'xRdr.MoveToContent()
>
> xRdr.MoveToFirstAttribute()
>
> While xRdr.Read
>
> MsgBox(xRdr.Name() & "-" & xRdr.Value())
>
> xRdr.MoveToNextAttribute()
>
> End While
>
> Bien, pues resulta que si descomento el movetocontent me da systemerror

> si no, al leer la cabecera del archivo (al siguiente atributo) me da
error!
> Qué hago mal?!?!?!
>
> Muchas gracias,
>
> Xavier
>
>