Amigos
Se puede pasar un archivo .TXT a EXCEL delimitado por pipe "|" con FWH.
Saludos,
Adhemar
COPY TO ... DELIMITED WITH TAB
APPEND FROM ... DELIMITED WITH TAB
// uses chr(9) as field separator and without string delimiters
COPY TO ... DELIMITED WITH PIPE
APPEND FROM ... DELIMITED WITH PIPE
// uses '|' as field separator and without string delimiters
COPY TO ... DELIMITED WITH ( { cStrDelim, cFldSeparator } )
APPEND FROM ... DELIMITED WITH ( { cStrDelim, cFldSeparator } )
// allows users to set and any character field
delimiters and fields separators
oTxtFile = TTxtFile():New(cPathYNombreDeTuArchivo,0)
DO WHILE ! oTxtFile:lEOF()
cLinea := oTxtFile:ReadLine()
FOR nVez := 1 TO LEN(cLinea)
IF SUBSTR(cLinea,nVez,1) == "|"
AADD(aTxt,cTxt)
cTxt := ""
ELSE
cTxt += SUBSTR(cLinea,nVez,1)
ENDIF
NEXT
AADD(aTxt,cTxt)
oTxtFile:Advance()
ENDDO
oTxtFile:END()
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 50 guests