inserir dados em um txt
07/04/2006
0
tenho um programinha que tem edit1.txt e campo data
no edit ele vai ler um cod. de barra com codigo de funcionario
ate ai ok.. so que apos a leitura eu preciso que o programa adiciona uma linha com o codigo do funcionario, horario em um arquivo.txt
ficaria assim
0000050149060320075447040102
o programa não precisa gravar em banco de dados so no txt
desde já agradeço....
Emerson1
Posts
07/04/2006
Paullsoftware
try AssignFile(Arq,xNomeArquivo); Rewrite(Arq);//Regrava o arquivo WriteLn(Arq,´Dados a Ser Gravado´);//Acrescenta uma linha WriteLn(Arq,´Outra Linha´);//Acrescenta outra linha ... Finally CloseFile(Arq); end; ...
espero ter ajudado :wink:
07/04/2006
Emerson1
no campos de 1 a 10 eo codigo, 11 a 16 a data, 17 a 22 a hora, 23a24 n loja, 25 a 26 ´01´, 27a28 ´02´
o campo codigo tem que ser adicionado 0 para completar o campo
07/04/2006
Paullsoftware
então qual o problema?
var Dados:String; ... Dados := IntToStr(0000050149060320075447040102); WriteLn(Arq,Dados);
07/04/2006
Osocram
var Dados:String; ... Dados := IntToStr(0000050149060320075447040102); WriteLn(Arq,Dados);
Esse numero ae estoura o Integer, non>????
E Respondendo ao Emerson... eh so concatenar a string e e escrever no arquivo como o PaullSoft disse...
mas jogue direto como string.
07/04/2006
Emerson1
com um edit.txt e
DateTimePicker1.Date + BitBtn
quando clicar no BitBtn o programa vai adicionar uma linha no arquivo txt como Layout que passei
0000050149060320075447040102
no campos de 1 a 10 eo codigo, 11 a 16 a data, 17 a 22 a hora, 23a24 n loja, 25 a 26 ´01´, 27a28 ´02´
****
so que eu não sei como fazer para quando clicar no BitBtn o programa faça isso...
desculpe se não fui claro, pois estou começando agora no delphi
08/04/2006
Rjun
10/04/2006
Paullsoftware
var Dados:String; ... Dados := IntToStr(0000050149060320075447040102); WriteLn(Arq,Dados);
Esse numero ae estoura o Integer, non>????
E Respondendo ao Emerson... eh so concatenar a string e e escrever no arquivo como o PaullSoft disse...
mas jogue direto como string.[/quote:e7a1e56e21]
coloca como String então...
10/04/2006
Emerson1
muito obrigado deu certo fiço assim
***
var
arq : TextFile;
hora: String;
begin
hora := Edit1.Text + FormatDateTime(´yyMMdd´,DateTimePicker1.Date);
try
AssignFile(Arq, ´C:\hora.txt´);
Rewrite(Arq);//Regrava o arquivo(((((aqui ele está apagando))))
Writeln(Arq,hora);//Acrescenta uma linha(((((gravar sempre na ultima linha)))))
WriteLn(Arq,´´);//Acrescenta outra linha
Finally
CloseFile(Arq);
end;
****
agora como eu faço para que ele não apage o anterio que foi gravado
para ele gravar sempre na ultima linha
desde ja agradeco....
11/04/2006
Aroldo Zanela
Siga o exemplo:
var Registro: string;
Arquivo: TextFile;
NomeArquivo: string;
begin
NomeArquivo := ´c:\arquivo.txt´;
AssignFile(Arquivo, NomeArquivo);
if FileExists(NomeArquivo) then
Append(Arquivo)
else
Rewrite(Arquivo);
// no campos de
// 1 a 10 eo codigo,
// 11 a 16 a data,
// 17 a 22 a hora,
// 23 a 24 n loja,
// 25 a 26 ´01´,
// 27 a 28 ´02´
Registro := FormatFloat(´0000000000´, StrToInt(edt1.Text)) +
FormatDateTime(´ddmmyy´, Date) +
FormatDateTime(´hhMMss´, Time) +
FormatFloat(´00´, 1) + // Loja 1
´01020´; // Filler
Writeln(Arquivo, Registro);
CloseFile(Arquivo);
end;
11/04/2006
Emerson1
valeu cara
erra tudo que eu precisava ,,,muito obrigado ...mesmo
so o ouro!!!!!!!!!!!!!
Clique aqui para fazer login e interagir na Comunidade :)
