Lendo e gravando arquivos TXT
Amigos estou com o seguinte problema:
Tenho vários arquivos *.txt com um textos dentro deles. Preciso de um forma de varrer esses arquivos, e gravar o conteúdo em banco de dados, onde cada ESTROFE ficará em um linha da tabela. Tipo Estrofe 1, Estrofe 2 etc. O Arquivo precisa ser lido por estrofe.
Exemplo do texto no arquivo
Eu te amo porque te amo
Não precisas ser amante
e nem sempre sabes sê-lo
Eu te amo porque te amo
Amor é estado de graça
e com amor não se paga
Amor é dado de graça
é semeado no vento
na cachoeira, no eclipse
Amor foge a dicionários
e a regulamentos vários
Eu te amo porque não amo
bastante ou demais a mim
Porque amor não se troca
não se conjuga nem se ama
Porque amor é amor a nada
feliz e forte em si mesmo
Amor é primo da morte
e da morte vencedor
por mais que o matem (e matam)
a cada instante de amor
Tenho vários arquivos *.txt com um textos dentro deles. Preciso de um forma de varrer esses arquivos, e gravar o conteúdo em banco de dados, onde cada ESTROFE ficará em um linha da tabela. Tipo Estrofe 1, Estrofe 2 etc. O Arquivo precisa ser lido por estrofe.
Exemplo do texto no arquivo
Eu te amo porque te amo
Não precisas ser amante
e nem sempre sabes sê-lo
Eu te amo porque te amo
Amor é estado de graça
e com amor não se paga
Amor é dado de graça
é semeado no vento
na cachoeira, no eclipse
Amor foge a dicionários
e a regulamentos vários
Eu te amo porque não amo
bastante ou demais a mim
Porque amor não se troca
não se conjuga nem se ama
Porque amor é amor a nada
feliz e forte em si mesmo
Amor é primo da morte
e da morte vencedor
por mais que o matem (e matam)
a cada instante de amor
Wancley Ribeiro
Curtidas 0
Respostas
Antonio Junior
09/02/2019
Amigos estou com o seguinte problema:
Tenho vários arquivos *.txt com um textos dentro deles. Preciso de um forma de varrer esses arquivos, e gravar o conteúdo em banco de dados, onde cada ESTROFE ficará em um linha da tabela. Tipo Estrofe 1, Estrofe 2 etc. O Arquivo precisa ser lido por estrofe.
Exemplo do texto no arquivo
Eu te amo porque te amo
Não precisas ser amante
e nem sempre sabes sê-lo
Eu te amo porque te amo
Amor é estado de graça
e com amor não se paga
Amor é dado de graça
é semeado no vento
na cachoeira, no eclipse
Amor foge a dicionários
e a regulamentos vários
Eu te amo porque não amo
bastante ou demais a mim
Porque amor não se troca
não se conjuga nem se ama
Porque amor é amor a nada
feliz e forte em si mesmo
Amor é primo da morte
e da morte vencedor
por mais que o matem (e matam)
a cada instante de amor
Tenho vários arquivos *.txt com um textos dentro deles. Preciso de um forma de varrer esses arquivos, e gravar o conteúdo em banco de dados, onde cada ESTROFE ficará em um linha da tabela. Tipo Estrofe 1, Estrofe 2 etc. O Arquivo precisa ser lido por estrofe.
Exemplo do texto no arquivo
Eu te amo porque te amo
Não precisas ser amante
e nem sempre sabes sê-lo
Eu te amo porque te amo
Amor é estado de graça
e com amor não se paga
Amor é dado de graça
é semeado no vento
na cachoeira, no eclipse
Amor foge a dicionários
e a regulamentos vários
Eu te amo porque não amo
bastante ou demais a mim
Porque amor não se troca
não se conjuga nem se ama
Porque amor é amor a nada
feliz e forte em si mesmo
Amor é primo da morte
e da morte vencedor
por mais que o matem (e matam)
a cada instante de amor
Olá.
var arq : TextFile;
estrofe,linha: string;
begin
estrofe:='';
AssignFile(arq,'C:\\arquivo.txt');
Reset(arq);
if (IOResult <> 0) then
ShowMessage('Erro')
else
while (not eof(arq)) do begin
readln(arq, linha);
if linha.IsEmpty then begin
//aqui vc chama a sua funçao para savar a estrofe no banco...
// E depois limpe a estrofe
estrofe:= '';
end else begin
estrofe:= estrofe +' '+linha;
end;
end;
CloseFile(arq);
end;GOSTEI 0
Wancley Ribeiro
09/02/2019
Amigos estou com o seguinte problema:
Tenho vários arquivos *.txt com um textos dentro deles. Preciso de um forma de varrer esses arquivos, e gravar o conteúdo em banco de dados, onde cada ESTROFE ficará em um linha da tabela. Tipo Estrofe 1, Estrofe 2 etc. O Arquivo precisa ser lido por estrofe.
Exemplo do texto no arquivo
Eu te amo porque te amo
Não precisas ser amante
e nem sempre sabes sê-lo
Eu te amo porque te amo
Amor é estado de graça
e com amor não se paga
Amor é dado de graça
é semeado no vento
na cachoeira, no eclipse
Amor foge a dicionários
e a regulamentos vários
Eu te amo porque não amo
bastante ou demais a mim
Porque amor não se troca
não se conjuga nem se ama
Porque amor é amor a nada
feliz e forte em si mesmo
Amor é primo da morte
e da morte vencedor
por mais que o matem (e matam)
a cada instante de amor
Tenho vários arquivos *.txt com um textos dentro deles. Preciso de um forma de varrer esses arquivos, e gravar o conteúdo em banco de dados, onde cada ESTROFE ficará em um linha da tabela. Tipo Estrofe 1, Estrofe 2 etc. O Arquivo precisa ser lido por estrofe.
Exemplo do texto no arquivo
Eu te amo porque te amo
Não precisas ser amante
e nem sempre sabes sê-lo
Eu te amo porque te amo
Amor é estado de graça
e com amor não se paga
Amor é dado de graça
é semeado no vento
na cachoeira, no eclipse
Amor foge a dicionários
e a regulamentos vários
Eu te amo porque não amo
bastante ou demais a mim
Porque amor não se troca
não se conjuga nem se ama
Porque amor é amor a nada
feliz e forte em si mesmo
Amor é primo da morte
e da morte vencedor
por mais que o matem (e matam)
a cada instante de amor
Olá.
var arq : TextFile;
estrofe,linha: string;
begin
estrofe:='';
AssignFile(arq,'C:\\\\arquivo.txt');
Reset(arq);
if (IOResult <> 0) then
ShowMessage('Erro')
else
while (not eof(arq)) do begin
readln(arq, linha);
if linha.IsEmpty then begin
//aqui vc chama a sua funçao para savar a estrofe no banco...
// E depois limpe a estrofe
estrofe:= '';
end else begin
estrofe:= estrofe +' '+linha;
end;
end;
CloseFile(arq);
end;Obrigado Antônio vou testar seu código
GOSTEI 0