PESQUISA EM ARQUIVO DE TEXTO
Gente...
Como faço para fazer uma busca em determinado arquivo de texto (.txt) ?
Eu o carrego com o FSO (FileSystemObject), mas não sei como fazer para fazer uma varredura no mesmo...tipo, procurar em todo o conteúdo salvo uma palavra que pode ser simples (Paulo), ou composta (João Paulo).
Como faço para fazer uma busca em determinado arquivo de texto (.txt) ?
Eu o carrego com o FSO (FileSystemObject), mas não sei como fazer para fazer uma varredura no mesmo...tipo, procurar em todo o conteúdo salvo uma palavra que pode ser simples (Paulo), ou composta (João Paulo).
mas como vc deseja exibir o resulta desta consulta, tipo deseja exibir a linha onde tal texto se encontre? neste texto vc possui somente nomes? qual resultado espera?
Olá Marcelo !
Quero [Ô]pegar[Ô] o nome encontrado e apresentá-lo em uma Label...isto se ele existir, se não existir sai da Sub (Exit Sub)
Quero [Ô]pegar[Ô] o nome encontrado e apresentá-lo em uma Label...isto se ele existir, se não existir sai da Sub (Exit Sub)
faça assim
bom em um botão faça isso
bom é um inicio apenas, veja bem vc poderá colocar uma função para tirar acentos pra consulta ficar mais limpa.
Function LocalizaTexto(sArquivo As String,sTexto As String) As String
Dim sLinha As String
Dim iARQ As Integer
[ô]Verificando se o arquivo existe:
If Dir$(sArquivo) = [Ô][Ô] Then
[ô]O arquivo NÃO existe.
MsgBox [Ô]O arquivo não existe![Ô], vbExclamation, _
[Ô]ATENÇÃO!!![Ô]
Exit Sub
End If
iARQ = FreeFile
Open sArquivo For Input As iARQ
[ô]Verificando se o arquivo está em branco:
If LOF(iARQ) = 0 Then
[ô]O arquivo está em branco.
MsgBox [Ô]O arquivo está em branco![Ô], vbExclamation, _
[Ô]ATENÇÃO!!![Ô]
[ô]Fecha o arquivo
Close iARQ
Exit Sub
End If
Do While Not EOF(iARQ) [ô]Enquanto ñ chegar ao fim do arq...
[ô]Pega a linha atual:
Line Input #iARQ, sLinha
[ô] Verifica se a string pesquisada encontra-se no arquivo
If Instr(sLinha, sTexto)>0 Then
LocalizaTexto = sLinha
End If
Loop
[ô]Fecha o arquivo
Close iARQ
End Function
bom em um botão faça isso
Label1.Caption = LocalizaTexto([Ô]c:\seuarquivotexto.txt[Ô], Text1.Text)
bom é um inicio apenas, veja bem vc poderá colocar uma função para tirar acentos pra consulta ficar mais limpa.
Essa Função é bem elaborada...
Valeu !
Valeu !
Tópico encerrado , respostas não são mais permitidas