parser.Initialize
Dim in As InputStream
Dim b() As Byte
b = j.GetString.GetBytes("UTF8")
in.InitializeFromBytesArray(b,0,b.Length)
parser.Parse(in,"Parser")
Sub Parser_StartElement (Uri As String, Name As String, Attributes As Attributes)
End Sub
Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
' Log($"${Uri} ${Name} ${Text}"$)
If parser.Parents.IndexOf("RespuestaAuth") > -1 Then
Log("llego algo")
If Name = "Autorizacion" Then
Log (Text.ToString)
Else If Name = "Referencia" Then
Log(Text.ToString)
Else If Name = "NumeroTicketPozo" Then
Log(Text.ToString)
End If
End If
End Sub