Página 1 de 1
criar txt via dbf
Enviado: 21 Out 2005 14:22
por tonyx
tenho um dbf e gero um txt pelo comando
USE &ARQUIVO
COPY TO TEXTO.TXT SDF
--------
so que o banco diz que no final do arquivo txt tem uma linha em branco
que eo comando de fim do arquivo que o proprio clipper usa
como detonar esta misera linha sem toda vez usar o notepad
--------
Enviado: 21 Out 2005 14:56
por Stanis Luksys
Ola amigo,
Crie um rotina que abra seu TXT com MemoRead(), pesquise o caracter com At(), delete este caracter com StrTran() ou Stuff(), e finalmente grave novamente o TXT com MemoWrit().
Se encontrar dificuldades em criar esta rotina poste aqui que podemos ajuda-lo.
É isso aí.
resp
Enviado: 21 Out 2005 16:38
por tonyx
nada ainda tem uma linha a baixo e feita automatica
Enviado: 21 Out 2005 17:50
por Stanis Luksys
Não entendi bem, vc quer jogar o TXT pro banco?
Se for isso, uma alternativa seria tentar usando a funcao
FCount() para saber quantas linhas tem seu TXT, depois execute um loop de inclusão no banco, tipo:
Código: Selecionar todos
var := 1
do while var <= fCount("arq.txt")-1
dbAppend()
replace campo with...
var++
enddo
Seria issso?
esta aqui funcionou
Enviado: 21 Out 2005 18:44
por tonyx
* esta aqui o banco aceitou *
*---- coisa simples ----------
)
*----------
parte1:= 'parte1.txt'
parte2:= 'parte2.txt'
parte3:= 'parte3.txt'
erase(parte1)
erase(parte2)
erase(parte3)
use banco2400
reg_fim:= reccount()
go bott
txt_fim:= alltrim(linha)
copy to &parte1 sdf for recno() < reg_fim
close
tst:= memowrit(parte2,txt_fim)
run copy &parte1+&parte2 &parte3