|
|
Postada em 13/08/2006 16:17 hs
Srs, Estou precisando de uma ajuda, usei o winsock para mandar o GET para um determinado host e recebi a resposta do mesmo, preciso capturar da resposta um determinado texto e enviar para outro textbox tentei fazer da seguinte forma mas o texto varia sempre de tamanho e precisaria pegar a partir da palavra Username. Text3.Text = UCase(Mid(Text1.Text, 138, 15)) & vbCrLf Obrigado Sergio |
|
|
|
|
|
Jose.Niz
|
CURITIBA
PR - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 13/08/2006 17:15 hs
Localize a posição da palavra username com Instr:
Dim pos as integer
pos = instr(1, text1.Text, "Username", vbTextCompare)
If pos > 0 then
Text3.Text = UCase(Mid(Text1.Text, pos + 9, 15)) & vbCrLf
End if
|
|
|
|
kerplunk
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/08/2006 08:42 hs
Existe algum separador? Tipo Username=XXX? Se existir vc pode usar o split.
|
|
|
|
Sergio
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/08/2006 12:18 hs
Valeu Jose.Niz funcionou !! Obrigado ! Sergio |
|
|
|
