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