hola preciso una ayuda, resulta k tengo un programa k hace una peticion http a un server y guarda la respuesta en un textbox k es la siguiente:
HTTP/1.1 302 Found
Date: Fri, 12 Oct 2007 01:09:02 GMT
Server: Apache
Vary: *
Expires: Mon, 26 Jul 1997 05:00:00 GMT
Last-Modified: Fri, 12 Oct 2007 01:09:02 GMT
Cache-Control: no-store, no-cache, must-revalidate
Cache-Control: post-check=0, pre-check=0
Pragma: no-cache
Location: http://www.url.com
Connection: close
Transfer-Encoding: chunked
Content-Type: text/html
301
<html><head><meta http-equiv="refresh" content="0; URL=http://www.url.com"></head><body><a href='http://www.url.com'>Please click here ... </a></body></html>
ahora kisiera saber komo hacer para kedarme solo con "http://www.url.com" y guardarlo en una variable de tipo string.
graxias
Puedes hacer varias cosas. Si esa cadena siempre esta en la misma linea (la nº 10) haces un split a todo el text box partiendo por el caracter de retorno de carro, es decir vbnewline y luego con mid obtener la parte q te interesa (si no lo logras te hago un ejemplo)
O si no esta siempre en la misma linea buscar la cadena "Locatios: " con instr y devolver la url (lo mismo si no lo logras dimelo y te paso un ejemplo)
Salu3
gracias E0N, lo he logrado, pero no me convence la forma novata que emplee para resolverlo xD
ahi va:
Private Sub Form_Load()
Dim cadena As String
Dim url As String
Dim c As String
Dim url_final As String
cadena = "blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"Location: http://www.url.com"
url = InStr(1, cadena, "Location:")
c = Mid(cadena, url)
url_final = Replace(c, "Location:", "")
MsgBox url_final
End Sub
me gustaria ver otra posible solucion, sino iwal no importa
thanks again!
ahhh ya no esta terminado nada ... XD
por ejemplo si el string es:
cadena = "blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"Location: http://www.url.com" & vbCrLf & _
"dwflkjdsflksdfjlksdfjlksdfjlksfdklsdfsfdsfdlkfsd"
me devuelve "http://www.url.com
dwflkjdsflksdfjlksdfjlksdfjlksfdklsdfsfdsfdlkfsd"
y mmm "solucione" con lo siguiente:
c = Mid(cadena, url, 30)
pero en realidad yo no se el largo de la URL siempre es variante...
alguna idea? :huh:
Podrías hacer un bucle que avanzase por la cadena desde el primer caracter hasta que el caracter sea " " (osea un espacio) o bien el retorno de carro (osea vbcrlf cuyo valor ascii es el 13), cada vez que avance la cadena suma 1 a una variable y en el momento que llegue al espacio o al retorno de carro quiere decir que la url ha terminado y el tamaño que tenga la variable de incremento sería el tamaño de la cadena que quieres.. te pongo un ejemplo:
Private Sub Form_Load()
Dim cadena, url, c, url_final As String 'declaracion de variables
Dim x, i As Integer 'variable x para tamaño de cadena e i para caracter ascii
x = 1 'iniciamos x al primer caracter osea 1
cadena = "blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"Location: http://www.url.com" & vbCrLf & _
"dwflkjdsflksdfjlksdfjlksdfjlksfdklsdfsfdsfdlkfsd"
url = InStr(1, cadena, "Location:")
c = Mid(cadena, url)
url_final = Replace(c, "Location: ", "")
While x < Len(url_final) 'mientras x sea menor que el tamaño total de url_final
i = Asc(Mid(url_final, x, 1)) 'i es igual al valor ascii del caracter x de url_final
If i = 13 Or Mid(url_final, x, 1) = " " Then 'si el caracter es vbcrlf o el caracter es un espacio
url_final = Left(url_final, x) 'ya tenemos el tamaño de la url final en x
MsgBox url_final 'mostramos la url final
Else
x = x + 1 'sino seguimos recorriendo la cadena
End If
Wend
End Sub
A mi me funciona perfectamente, comprobado ;D si tienes algún problema postealo, creo que era eso lo que querías.
Saludos.
Private Sub Command1_Click()
cadena = "blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"Location: http://www.url.com"
headers = Split(cadena, vbCrLf)
For j = 0 To UBound(headers)
headers2 = Split(headers(j), " ")(0)
If LCase(headers2) = "location:" Then url = Replace(Split(headers(j), " ")(1), " ", ""): GoTo Escape
Next j
Escape:
MsgBox url
End Sub
algo mas peque :P
saludos!!
gracias a todos :D