Export output file as pipe delimited with headers
| * 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) |
