recuperar valores de um txt?
Boa tarde a todos!!
Gostaria de saber como faço para recuperar um determinado valor em um arquivo txt. Acho q fazer uma busca em um arquivo txt seria o termo mais correto e colocar o resultado desta busca em uma variavel
Desde já aradeço
Luiz Jesuz Pires da Silva Jr.
Gostaria de saber como faço para recuperar um determinado valor em um arquivo txt. Acho q fazer uma busca em um arquivo txt seria o termo mais correto e colocar o resultado desta busca em uma variavel
Desde já aradeço
Luiz Jesuz Pires da Silva Jr.
Kandrus
Curtidas 0
Respostas
Anonymous
05/02/2003
Amigo se vc estiver uzando um Edit por exemplo vc pode usar consulta em SQL usando parametros.
é mais ou menos assim
Select * from (tabela) where (Like´Campo da Tabela´);
params[0]edit.txt
mais ou menos isso os parametros vai armazenar os dados digitados no edit e vai procura-lo na tabela via consulta sql.
espero ter ajudado
é mais ou menos assim
Select * from (tabela) where (Like´Campo da Tabela´);
params[0]edit.txt
mais ou menos isso os parametros vai armazenar os dados digitados no edit e vai procura-lo na tabela via consulta sql.
espero ter ajudado
GOSTEI 0
Dantonds
05/02/2003
Neste exemplo vc digita uma palavra em um edit aperta o botão procurar e vc seleciona o arquivo texto desejado.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;
type
TForm1 = class(TForm)
Edit1: TEdit;
BitBtn1: TBitBtn;
OpenDialog1: TOpenDialog;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
FileToFind : TextFile;
StrToCompare: string;
linha : integer;
Achou : boolean;
begin
if length(Trim(Edit1.Text)) > 0 then begin
if OpenDialog1.Execute then begin
AssignFile(FileToFind,OpenDialog1.FileName);
Label1.Caption := OpenDialog1.FileName;
end else exit;
Achou := False;
linha := 0;
Reset(FileToFind);
while not Eof(FileToFind) do
begin
linha := linha + 1;
Readln(FileToFind,StrToCompare);
if Pos(Edit1.Text,StrToCompare) > 0 then begin
ShowMessage(´Achei a palavra na linha : ´ + IntToStr(linha));
Achou := True;
end;
end;
CloseFile(FileToFind);
if not(Achou) then
ShowMessage(´Palavra não encontrada!´);
end
else ShowMessage(´Digite a palavra a ser pesquisada!´);
end;
end.
Espero ter ajudado
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;
type
TForm1 = class(TForm)
Edit1: TEdit;
BitBtn1: TBitBtn;
OpenDialog1: TOpenDialog;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
FileToFind : TextFile;
StrToCompare: string;
linha : integer;
Achou : boolean;
begin
if length(Trim(Edit1.Text)) > 0 then begin
if OpenDialog1.Execute then begin
AssignFile(FileToFind,OpenDialog1.FileName);
Label1.Caption := OpenDialog1.FileName;
end else exit;
Achou := False;
linha := 0;
Reset(FileToFind);
while not Eof(FileToFind) do
begin
linha := linha + 1;
Readln(FileToFind,StrToCompare);
if Pos(Edit1.Text,StrToCompare) > 0 then begin
ShowMessage(´Achei a palavra na linha : ´ + IntToStr(linha));
Achou := True;
end;
end;
CloseFile(FileToFind);
if not(Achou) then
ShowMessage(´Palavra não encontrada!´);
end
else ShowMessage(´Digite a palavra a ser pesquisada!´);
end;
end.
Espero ter ajudado
GOSTEI 0
Dor_poa
05/02/2003
Coloca um memo em teu projeto, mande ele abrir o arquivo TXT...
Para ler o conteudo faça assim
edit1.text := memo1.lines.string[1];
Obs.: o nº 1 equivale a linha onde esta sendo lido o arquivo...
para ler todo o arquivo faça assim
var i> integer;
begin
I= 1 // ou 0 eu nao me lembro direito
Repeat
edit1.text := memo1.lines.string[1];
inc(i)
until i >= memo1.lines.count;
Para ler o conteudo faça assim
edit1.text := memo1.lines.string[1];
Obs.: o nº 1 equivale a linha onde esta sendo lido o arquivo...
para ler todo o arquivo faça assim
var i> integer;
begin
I= 1 // ou 0 eu nao me lembro direito
Repeat
edit1.text := memo1.lines.string[1];
inc(i)
until i >= memo1.lines.count;
GOSTEI 0
Anonymous
05/02/2003
Ué ? se vc precisa gravar um valor em uma arquivo texto e recupera-lo
não é bem mais facil usar um ini ?
não é bem mais facil usar um ini ?
GOSTEI 0
Kandrus
05/02/2003
Valew galera pela a ajuda!!!!
GOSTEI 0