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
Voltar