Aprender a leer un archivo XML para rellenar loscuadros de texto en tu Visual Basic.NET, a menudo abreviado como VB.NET, la aplicación puede hacer que su aplicación más robusta al no tener el usuario introduzca los datos manualmente. XML es un formato aplicable para diversas aplicaciones y se puede leer a través del "XmlTextReader." El lector proporciona sólo avance y de sólo lectura a una secuencia de datos XML. Puede asignar los datos XML directamente a controlar, o se puede recoger en una matriz para su uso posterior.
POPULATE
Lo que necesita
Microsoft Visual Studio
Inicie Microsoft Visual Studio. Haga clic en "Nuevo proyecto" en el panel izquierdo de la pantalla del ordenador, y ampliar a continuación "Visual Basic" "Plantillas instaladas". Haga clic en "Windows" y haga doble clic en "Aplicación de Windows Forms" en el centro de la ventana de diálogo para crear un proyecto nuevo.
Haga clic en el menú "Proyecto" y seleccionar "Nuevo elemento". Haga doble clic en "Archivo XML" para insertar un nuevo archivo XML al proyecto. Inserte un nuevo archivo "XML Schema", utilizando la misma técnica.
Copia y pega el siguiente código en el archivo "XMLSchema1.xsd" para crear el esquema XML:
xs: schema id = "XMLSchema1"
targetNamespace = "http://tempuri.org/XMLSchema1.xsd"
elementFormDefault = "qualified"
xmlns = "http://tempuri.org/XMLSchema1.xsd"
xmlns: mstns = "http://tempuri.org/XMLSchema1.xsd"
xmlns: xs = "http://www.w3.org/2001/XMLSchema"
xs: simpleType nombre = "postalCode"
xs: Base de restricción = "xs: positiveInteger"
valor xs: pattern = "\ d {5}" /
/ Xs: restricción
/ Xs: simpleType
xs: complexType name = "usAddress"
xs: secuencia
xs: nombre de elemento = tipo "Name" = "xs: string" /
xs: nombre de elemento = tipo "Street" = "xs: string" /
xs: nombre de elemento = tipo "City" = "xs: string" /
xs: nombre de elemento = tipo de "Estado" = "xs: string" /
xs: Nombre del elemento de tipo "Zip" = = "postalCode" /
/ Xs: secuencia
/ Xs: complexType
xs: nombre de elemento = "Cliente"
xs: complexType
xs: secuencia
xs: nombre del elemento tipo = "CompanyName" = "xs: string" /
xs: nombre de elemento = tipo "ContactName" = "xs: string" /
xs: nombre de elemento = tipo "Email" = "xs: string" /
xs: nombre de elemento = tipo "Teléfono" = "xs: string" /
xs: nombre del elemento type = "ShipToAddress" = "usAddress" /
/ Xs: secuencia
/ Xs: complexType
/ Xs: element
/ Xs: schema
Haga clic en la ficha "Explorador de soluciones" en "Explorador de soluciones" y haga doble clic en "XMLFile1.xml" para abrirlo. Copia y pega el siguiente código para utilizar el esquema creado en el paso 3 y añadir algunos datos a la misma:
Xmlns Cliente = "http://tempuri.org/XMLSchema1.xsd"
CompanyNameNSN / CompanyName
ContactNameJohn / ContactName
Emailjohn@gmail.com / Email
Phone3245345/Phone
ShipToAddress
NameJohn / Nombre
StreetYampa / Calle
CityKeller / Ciudad
StateTX / Estado
Zip76180/Zip
/ ShipToAddress
/ Cliente
Haga doble clic en "Form1" para ver su forma. Haga doble clic en "cuadro de texto" en el panel "Toolbox" para añadir un nuevo control de cuadro de texto. Añadir otros ocho controles de cuadro de texto al formulario. Agregue un control "Button" a su formulario. Haga doble clic en "Button1" para crear un nuevo evento de clic en este botón.
Agregue la siguiente línea de código en la parte superior del módulo de código para utilizar el espacio de nombres "System.Xml":
Imports System.Xml
Copia y pega el siguiente código dentro del evento click para leer el archivo XML creado y guardar el contenido en una matriz 2-D:
Lector As XmlTextReader = New XmlTextReader ("C: \ Temp \ XMLFile1.xml")
Dim xmlDataArray (30, 1) As String
XCntr Dim As Integer
Do While (reader.Read ())
Seleccione reader.NodeType Case
XmlNodeType.Element Case
Si (reader.Name "Cliente") y (reader.Name "ShipToAddress") Entonces
xmlDataArray (xCntr, 0) = reader.Name
End If
XmlNodeType.Text Case
xmlDataArray (xCntr, 1) = reader.Value
xCntr + = 1
End Select
Bucle
Edite la ruta del archivo XML en el paso 7 y escriba la ruta de acceso al archivo XML.
Loop a través de la matriz y agregar los datos a los cuadros de texto con el código siguiente:
Para xCntr = 0 a 10
Si (xmlDataArray (xCntr, 0) = "CompanyName") Entonces
Me.TextBox1.Text = xmlDataArray (xCntr, 1)
End If
Si (xmlDataArray (xCntr, 0) = "Nombre del contacto") Entonces
Me.TextBox2.Text = xmlDataArray (xCntr, 1)
End If
Si (xmlDataArray (xCntr, 0) = "Email") Entonces
Me.TextBox3.Text = xmlDataArray (xCntr, 1)
End If
Si (xmlDataArray (xCntr, 0) = "Teléfono") Entonces
Me.TextBox4.Text = xmlDataArray (xCntr, 1)
End If
Si (xmlDataArray (xCntr, 0) = "Nombre") Entonces
Me.TextBox5.Text = xmlDataArray (xCntr, 1)
End If
Si (xmlDataArray (xCntr, 0) = "la calle") Entonces
Me.TextBox6.Text = xmlDataArray (xCntr, 1)
End If
Si (xmlDataArray (xCntr, 0) = "Ciudad") Entonces
Me.TextBox7.Text = xmlDataArray (xCntr, 1)
End If
Si (xmlDataArray (xCntr, 0) = "Estado") Entonces
Me.TextBox8.Text = xmlDataArray (xCntr, 1)
End If
Si (xmlDataArray (xCntr, 0) = "Zip") Entonces
Me.TextBox9.Text = xmlDataArray (xCntr, 1)
End If
Próximo
Pulse la tecla "F5" para ejecutar el programa. Haga clic en "Button1" para llenar los cuadros de texto.
No hay comentarios:
Publicar un comentario