A mi amigo de hace años que casi nos iniciamos juntos en la programacion en el foro de RecursosVisualBasic (donde nos conocimos con leandro y cobein ademas)
Aca les dejo el codigo de la autoria de Santiago Hormazabal alias COCO
Public Function Locate(ByVal sData As String, _
ByVal sStart As String, _
ByVal sEnd As String) As String
Dim lPosStart As Long
Dim lPosEnd As Long
lPosStart = InStr(1, sData, sStart, vbTextCompare)
If lPosStart Then
lPosEnd = InStr(lPosStart + Len(sStart), sData, sEnd)
If lPosEnd Then
Locate = Mid$(sData, lPosStart + Len(sStart), lPosEnd - lPosStart - Len(sStart))
End If
End If
End FunctionES MUY MUY FACIL de usar
Aca el ejemplo:
Supongamos que queremos obtener la IP de esta pagina...
http://checkip.dyndns.org/Obviamente hay que hacer todo el procedimiento de descarga de la pagina pero una vez tengamos el codigo en un txt o en la memoria debemos utilizarlo de esta manera:
Codigo fuente de la web >>> <html><head><title>Current IP Check</title></head><body>Current IP Address: 186.124.170.159</body></html>
Debug.Print Locate("<html><head><title>Current IP Check</title></head><body>Current IP Address: 186.124.170.159</body></html>", "Address: ", "</body>")Y asi magicamente nos devuelve la IP =) esto se puede usar en cualquier tipo de texto sea codigo html vb o un texto cualquiera.
Lo que hace es recorrer el texto y sacar el contenido que hay entre la variable sStart y sEnd si no lo tenes en tu lista de ejemplos y funciones sos un GIL.
