Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Alguem sabe como varrer dentro de um arquivo .txt em busca de uma palavra?
Exemplo, tenho o arquivo abaixo chamado teste.txt dentro de uma pasta chamada c:\testeDeArquivo\
ZCZC LEO002
GG SBBRZXCP SBBRZXIM SBGRYMYX SBCWYMYX SBGLYMYX SBREYMYX
010301 SBRJYMYX
SIBQTA SBRJ 010300
AAXX 01034 83755 41556 62012 1//// 2//// 40099 5//// 71022 81530 =
NNNN
dai a palavra que tenho que encontrar dentro desse arquivo acima é QTA (negrito).
Alguém pode me ajudar?
funcionou!Valeu mano.vou só adaptar o código as minhas necessidades. obrigado.
otimo fera!!!q bom q resolveu seu problema ... abraço
Opa kra ... beleza?
você pode fazer alguma coisa neste sentido:
var Arq: TextFile; Path,Linha: string;begin Path:= 'C:\'; //aki vai a pasta em questao AssignFile(Arq,Path + 'teste.txt'); Reset(Arq); while not Eof(Arq) do begin Readln(Arq,Linha); if (Pos('QTA',Linha) >0) then begin ShowMessage('A String informada foi localizada!'); end; end; CloseFile(Arq);