Advanced Search

Sacar direcctorio de una web X

/ Published in: Visual Basic
Save to your folder(s)

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. Private Sub Command1_Click()
  2. Dim datos As String
  3. Dim msg As String
  4. Dim msgr As String
  5. 'datos
  6. datos = "http://ildom.com/client/XML/es/errores.xml"
  7. 'hace un split e invierte los datos
  8. msg = StrReverse(Split(datos, "http://ildom.com/")(1))
  9.  
  10. 'otro split e invierte los datos
  11. msg = StrReverse(Split(msg, "/")(0))
  12.  
  13. 'otro split
  14. msgr = Split(datos, "http://ildom.com/")(1)
  15. 'otro split .D
  16. msgr = Split(msgr, msg)(0)
  17.  
  18. MsgBox msgr
  19. End Sub

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.