PEGAR PARTE DE STRING

JPLSH 21/05/2011 16:08:06
#374654
Alguem sabe como faço para pegar todas as urls de uma textbox, que começam com http e terminam com .htm ???
SZBRUUNO 21/05/2011 17:26:13
#374657 Resposta escolhida 
Dim C, F As Long

C = InStr(1, Text1, [Ô]http[Ô])
If C <> 0 Then
Do While C <> 0

F = InStr(C, Text1.Text, [Ô].htm[Ô])
F = F + Len([Ô].htm[Ô])
List1.AddItem Mid(Text1.Text, C, F - C)
Text1.Text = Right(Text1, Len(Text1) - F)
C = InStr(1, Text1, [Ô]http[Ô])


Loop
End If
Tópico encerrado , respostas não são mais permitidas
Voltar