USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Verifica a extistência de URLS dentro de arquivos
Postada em 21/10/2004 por Josefh Hennyere         
Function ScanForURL(filename As String, list As ListBox)
Static thewww, thecom, thenet, theorg
thewww = 1: thecom = 1: thenet = 1: theorg = 1
Dim free
free = FreeFile
list.Clear
Open filename$ For Binary Access Read As #free
Dim fileL, i
fileL = LOF(free)
Dim Text$
For i = 1 To fileL Step 32000
Text$ = Space(32000)
Get #free, i, Text$
thewww = InStr(1, LCase(Text$), LCase("www."), 1)
thecom = InStr(1, LCase(Text$), LCase(".com"))
thenet = InStr(1, LCase(Text$), LCase(".net"))
theorg = InStr(1, LCase(Text$), LCase(".org"))
If thewww <> 0 And thecom <> 0 Then
list.AddItem Mid(Text$, thewww, thecom + 3)
GoTo again
End If
If thewww <> 0 And thenet <> 0 Then
list.AddItem Mid(Text$, thewww, thenet + 3)
GoTo again
End If
If thewww <> 0 And theorg <> 0 Then
list.AddItem Mid(Text$, thewww, theorg + 3)
GoTo again
End If
again:
Next i
Close #free
End Function


'Para chamar:
'Você so vai precisar de um botão de comando e uma list box

Private Sub Command1_Click()
ScanForURL "C:arquivo.txt", List1
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página