Modificar un archivo XML

03/03/2007 - 00:58 por LucasAction | Informe spam

Hola. Querría hacer un programa que me modificase unos valores que hay
en un documento XML. He estado mirando por la web pero tengo un
problema. El código en sí sería este:
Dim documento As New XmlDocument
Dim nodo As XmlNode
Dim comida As String
documento.Load("proto.xml")

For Each nodo In documento.DocumentElement.ChildNodes

If nodo.Name = "-<Unit id='341' name='CrateofFood'>" Then
comida = nodo.ChildNodes(14).InnerText
MsgBox(comida)
End If

If comida = "100.0000" Then
comida = IComida.Text
nodo.ChildNodes(0).InnerText = comida
End If
Next

documento.Save("proto2.xml")
Pero no me va. Me de error en If nodo.Name = "-<Unit id='341'
name='CrateofFood'>" Then debido a que esa cadena de texto ¡no me la
quiere reconocer! El guión que hay antes de <Unir está en el documento
original para indicar que el grupo se cierra y por eso lo he puesto.
¿Alguna idea?

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Como leer y modificar un archivo XML desde excel

Leer las respuestas

#1 SoftJaén

03/03/2007 - 12:10 | Informe spam

escribió:

If nodo.Name = "-<Unit id='341' name='CrateofFood'>" Then

Pero no me va. Me de error en If nodo.Name = "-<Unit id='341'
name='CrateofFood'>" Then debido a que esa cadena de texto ¡no me la
quiere reconocer! El guión que hay antes de <Unir está en el documento
original para indicar que el grupo se cierra y por eso lo he puesto.
¿Alguna idea?

Hola:

La única idea que te puedo dar es, que no incluyas el guión (-) y los
paréntesis angulares (< >) en el código. Entiendo que el nodo se llamará
únicamente Unit, sin guiones y paréntesis. :-)

If nodo.Name = "Unit" Then

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Responder a este mensaje

#2 LucasAction

09/03/2007 - 21:48 | Informe spam

On 3 mar, 12:10, "SoftJaén" wrote:

escribió:

> If nodo.Name = "-<Unit id='341' name='CrateofFood'>" Then

> Pero no me va. Me de error en If nodo.Name = "-<Unit id='341'
> name='CrateofFood'>" Then debido a que esa cadena de texto ¡no me la
> quiere reconocer! El guión que hay antes de <Unir está en el documento
> original para indicar que el grupo se cierra y por eso lo he puesto.
> ¿Alguna idea?

Hola:

La única idea que te puedo dar es, que no incluyas el guión (-) y los
paréntesis angulares (< >) en el código. Entiendo que el nodo se llamará
únicamente Unit, sin guiones y paréntesis. :-)

If nodo.Name = "Unit" Then

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Perdón por enviar una respuesta tan tardía pero es que he estado algo
ocupado. El caso es que yo creo que no le puedo llamar UNIT porque el
nodo es todo es -<Unit id='341' name='CrateofFood'> el cual quitandole
- y <> no me lo reconoce. ¿Alguna solución? La causa de esto de unit
es que todos los nodos se llaman unit + no sé qué pero el numero
cambia.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida