PESQUISA EM ARQUIVO DE TEXTO

DANLEONHART 02/05/2011 15:46:42
#372989
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).
MARCELO.TREZE 02/05/2011 15:56:59
#372992
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?
DANLEONHART 02/05/2011 16:05:16
#372994
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)
MARCELO.TREZE 02/05/2011 18:31:52
#373003
Resposta escolhida
faça assim

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.

DANLEONHART 02/05/2011 19:24:01
#373006
Essa Função é bem elaborada...

Valeu !
Tópico encerrado , respostas não são mais permitidas