Colección de citas famosas - Diccionario de frases chinas - VB.NET modifica y reemplaza el valor en el archivo xml.

VB.NET modifica y reemplaza el valor en el archivo xml.

Ruta tenue As String = ruta de PDA amp "Ife.xml" "Ruta de PDA" es la ruta.

Utilice ds como un nuevo conjunto de datos para reducir la dimensionalidad

ds. ReadXml(ruta)

Dim dt As DataTable = ds. hoja. Item(0)

Dim blnY como booleano = verdadero

Como DataRow en dt. fila

si elemento de fila ("traducción"). tostring . toupper = "confirmar" y luego

deslizar. Item("Traducción") = "Reemplazar"

blnY = False

Exportar a

Finalizar si...

Entonces

Si blnY entonces

MsgBox ("El XXX ingresado no existe, ¡vuelve a ingresar!")

Regresar

Si. .. terminará

ds. WriteXml(ruta)

MessageBox. Mostrar ("Datos modificados y guardados correctamente", "Preguntar", messageboxbuttons.ok, messageboxicon.information).

O

Atenuar xmlDoc como nuevo XmlDocument()

Reducir la dimensionalidad de la lista de nodos a un nuevo XmlNodeList

documento XML. load ("life...XML")" Cargando.

dimnodelist como xmlnodelist = documento XML. Seleccione un solo punto. ("Traducción"). "ChildNodes" Obtiene todos los nodos secundarios del nodo de la librería.

p>

Marcar xn como XmlNode

"Para cada xn en nodeList" atraviesa todos los nodos secundarios

'dim xe as XmlElement = ctype (xn, elemento XML) '. Convierte el tipo de nodo secundario a tipo de elemento XML.

"dim nls as xmlnodelist = xe . child nodes" continúa obteniendo todos los nodos secundarios del

Dim. xn1 como XmlNode<. /p>

Para cada xn1 en nls transversal

dimxe 2 como elemento XML = ctype(xn 1, elemento XML) 'convertir tipo

if xe2 "Traducción" Luego, si se encuentra

terminará

Siguiente xn1

Siguiente xn

XmlDoc save("life. XML ")" ahorrar.

Cuadro de mensajes. show("XML modificado correctamente", "mensaje", messageboxbuttons.ok, messageboxicon.information).

¡A ver si puedo ayudarte!