DUVIDA FUNCAO PRA RECORTAR LINK
Dim URL As String
Dim Parte() As String
Dim idx As Integer
URL = [Ô]www.uol.com.br/texto/aula/index.php?link=[Ô]
Parte = Split(URL, [Ô]/[Ô])
For idx = 0 To UBound(Parte)
MsgBox Parte(idx)
Next
no caso ele vai exibir 4 msgbox
1º: www.uol.com.br
2º: texto
3º: aula
4º: index.php?link=
agora só adaptar
Dim Parte() As String
Dim idx As Integer
URL = [Ô]www.uol.com.br/texto/aula/index.php?link=[Ô]
Parte = Split(URL, [Ô]/[Ô])
For idx = 0 To UBound(Parte)
MsgBox Parte(idx)
Next
no caso ele vai exibir 4 msgbox
1º: www.uol.com.br
2º: texto
3º: aula
4º: index.php?link=
agora só adaptar
No caso a dificuldade ai e fazer ele recortar mas de 500 mil linhas entende... to tentando fazer um loop mas nao esta dando certo... to precisando de uma ajuda urgente nisso
Tópico encerrado , respostas não são mais permitidas