topic-28970

Posts: 72

Joined: Tue Oct 02, 2012 04:36 PM

LEER ARCHIVOS TXT
Posted: Thu Jul 31, 2014 08:07 PM

Amigos

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 (fw): Select all Collapse

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()

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: LEER ARCHIVOS TXT
Posted: Thu Jul 31, 2014 09:32 PM

Code (fw): Select all Collapse

oFile:= TTxtFile():New( cFile )

  while !oFile:EOF()

    cLinea := oFile:ReadLine()

     MsgInfo(cLinea)
    
    (archivodbf)->(DBAPPEND())
    replace (archivodbf)->TXT with cLinea
    (archivodbf)->( DBRECALL() )
    (archivodbf)->( DBCOMMIT() )

    oFile:Skip()
  EndDo
  
  oFile:End()

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

FiveTech Support Forums

Continue the discussion