Page 1 of 1

Export output file as pipe delimited with headers

Posted: Mon Mar 02, 2009 10:57 am
by Eric

Code: Select all

* Copy all input files and related files to Archive Folder
SET SAFETY OFF
com_Csv=ADDBS(com_ArchiveFolder)+FORCEEXT(JUSTFNAME(com_InputFilePath),"csv")
com_Hdr=FORCEEXT(com_Csv,"hdr")
COPY TO (com_Hdr) TYPE CSV FOR .F.
COPY TO (com_Csv) TYPE DELIMITED WITH "" WITH CHARACTER |
com_FileString1=FILETOSTR(com_Hdr)
com_FileString2=FILETOSTR(com_Csv)
=STRTOFILE(STRTRAN(com_FileString1,[,],[|]),com_Csv)
=STRTOFILE(com_FileString2,com_Csv,1)