Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menúwmic bios get /format:list
Cita de: EleKtro H@cker en 19 Diciembre 2012, 04:04 AM
De sabios es compartir el conocimiento, hay que realizar buenas acciones antes de que se acabe el munedo en... 2 días,
Y lo que necesita todo aprendiz de programador es un aporte con los snippets del gran Nov, muchos lo agradecerían (O al menos uno aquí presente... xD).
Imports System.Xml
Imports System.Xml.Serialization
Imports System.IO
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim rawXML As String = _
"<Company>" & _
" <Employee>" & _
" <name>John</name>" & _
" <Id>1</Id>" & _
" <email>John@xxxxxx.com</email>" & _
" </employee>" & _
" <employee>" & _
" <name>Sue</name>" & _
" <Id>2</Id>" & _
" <email>Sue@xxxxxx.com</email>" & _
" </employee>" & _
"</Company>"
Dim xmlDoc As New XmlDocument
Dim employeeNodes As XmlNodeList
Dim employeeNode As XmlNode
Dim baseDataNodes As XmlNodeList
Dim bFirstInRow As Boolean
MsgBox("A")
Try
xmlDoc.LoadXml(rawXML)
Catch ex As Exception
End Try
' Este msgbox no se llega a ver
MsgBox("B")
employeeNodes = xmlDoc.GetElementsByTagName("name")
For Each employeeNode In employeeNodes
baseDataNodes = employeeNode.ChildNodes
bFirstInRow = True
For Each baseDataNode As XmlNode In baseDataNodes
If (bFirstInRow) Then
bFirstInRow = False
Else
MsgBox(", ")
End If
MsgBox(baseDataNode.Name & ": " & baseDataNode.InnerText)
Next
Next
End Sub
End Class
Cita de: EleKtro H@cker en 18 Diciembre 2012, 18:14 PM
PREGUNTA: ¿Action tiene un límite de 16 argumentos?
(Quizás no llegue a saber hacer eso en toda mi vida xD, pero estaría bien saberlo si se da el caso.)