estoy leyendo y quiero sacar informacion por renglon de dicho archivo y guargar por renglon en un archivo DBF, en el cual hay un campo alfanumerico de 300 caracteres.
cada rengon del txt no son iguales de largo (o cantidad de caracteres), Nunca supera los 300.
?¿ como puedo saber cuando hago el corte cuando hay un salto de renglon en dicho TXT
- Code: Select all Expand view
- oFile:= TTxtFile():New( cFile )
while !oFile:EOF()
cLinea := oFile:ReadLine()
MsgInfo(cLinea)
(archivodbf)->(DBAPPEND())
(archivodbf)->TXT := cLinea
(archivodbf)->( DBRECALL() )
(archivodbf)->( DBCOMMIT() )
oFile:Skip()
EndDo
oFile:End()