Hack x Crack - Comunidad de Seguridad informática
Programación => Visual Basic => Mensaje iniciado por: ElBarto en Agosto 13, 2013, 05:48:33 pm
-
Hola foreros, tanto tiempo
Haciendo las practicas de la Revista 10 sobre XML, al ejecutar en visual basic el codigo que trae la revista no muestra el MsgBox con el contenido de la etiqueta "HOLA", es mas, no muestra nada de nada. Creo que he seguido las instrucciones al pie de la letra, adjuntaria el codigo pero me parece mejor poner el enlace de una persona que adjunto el suyo (que es exactamente igual al mio) y tiene exactamente el mismo problema http://foro.hackxcrack.net/forum/index.php?topic=8153.msg47879#msg47879 (http://foro.hackxcrack.net/forum/index.php?topic=8153.msg47879#msg47879).
Desde ya agradecido por su ayuda... :)
-
Alguien? :( .....
-
Haber pides medicina y te traen la muerte :D, vere en que puedo ayudarte, si te especificas mejor sobre tu error.
-
Gracias por responder NetFcruz, esta es la situación:
Objetivo: Crear un programa en Visual Basic que al pulsar un boton muestre un MsgBox con el contenido de la etiqueta de un archivo ".xml". (archivo: "hola.xml" - etiqueta: "BIENVENIDA/HOLA" - elemento a mostrar: "Hola Mundo Xml").
CODIGO DEL ARCHIVO XML:
<?xml version="1.0" standalone="yes"?>
<BIENVENIDA>
<HOLA>Hola Mundo Xml</HOLA>
</BIENVENIDA>
----------------------------------------------------------------------------------------
CODIGO DEL PROGRAMA EN VB:
Private Sub Command1_Click()
'**********Declaraciones***********
Dim objXMLDOM As New MSXML2.DOMDocument30
Dim objNodes As IXMLDOMNodeList
Dim path As String
Dim iIndex As Integer
Dim elementos() As Variant
'**********Asignaciones************
path = App.path + "docsXML\hola.xml"
objXMLDOM.async = False
'compruebo que he puesto bien el path
MsgBox Dir(App.path + "\docsXML\hola.xml")
objXMLDOM.Load (path)
Set objNodes = objXMLDOM.selectNodes("BIENVENIDA/HOLA")
ReDim elementos(objNodes.length)
'**********Cuerpo******************
For iIndex = 0 To objNodes.length - 1
elementos(iIndex) = objNodes.Item(iIndex).nodeTypedValue
MsgBox elementos(iIndex)
Next
End Sub
------------------------------------------------------------------------------------
IMAGEN DEL FORMULARIO:
http://img836.imageshack.us/img836/9278/sinttuloqbo.png (http://img836.imageshack.us/img836/9278/sinttuloqbo.png)
---------------------------------------------------------------------------------------
LINK CUADERNO NUMERO 10: http://www.mediafire.com/?k64ca13vo8b93g5 (http://www.mediafire.com/?k64ca13vo8b93g5)
-------------------------------------------------------------------------------------
Consecuencia: Al presionar el boton Command1 no sucede NADA.
-------------------------------------------------------------------------------------
Gracias por contestar saludos :)
-
Hola de nuevo veo ahora si haber daremos seguimiento para tu solucion amigo.
-
Muchas gracias :)...avisame si necesitas algun otro dato
-
Hola, me perdí, pero oye espero lo hayas solucionado, si no lo tengo en chsarp y vb.net aqui en el siguiente post. https://hackxcrack.net/foro/visual-basic/duda-en-xml-en-vb-net/
Si gustas te paso un ejemplo de ocmo genera el xml y lo muestras en el texbox y abres el xml en automatico.
-
https://www.studocu.com/es-mx/document/best-notes-for-high-school-mx/economia-ii/addenda-soriana-reverse-en-visual-basic/30731686
Aqui te dejo como se crea en nodo xml.