Lendo e gravando arquivos TXT

09/02/2019

16

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
Responder

Posts

11/02/2019

Antonio Junior

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


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;
Responder
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


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
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira