/ Published in: Visual Basic
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
Private Sub Command1_Click() Dim datos As String Dim msg As String Dim msgr As String 'datos datos = "http://ildom.com/client/XML/es/errores.xml" 'hace un split e invierte los datos msg = StrReverse(Split(datos, "http://ildom.com/")(1)) 'otro split e invierte los datos msg = StrReverse(Split(msg, "/")(0)) 'otro split msgr = Split(datos, "http://ildom.com/")(1) 'otro split .D msgr = Split(msgr, msg)(0) MsgBox msgr End Sub