EXPORTING COMMA DELIMITED FILES 2

[powerprinting]

I am exporting a file that has to be comma delimited. NO quotes, just the comma.

My fields are Nickname,fullname,firstname... etc

My results are as follows

,Nickname,,,FullName,,,FirstName,,,

Why am I getting extra commas where no fields exist and what command should I be using? Has anyone else had this problem before?

Thanks in advance,

Will

 

[powerprinting]

Kudos to you DSUM!!!

That command is a workaround I can use!!!

Thank you, thank you.

Will

 

[DSummZZZ]

You're welcome.


-Dave S.-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[craigsboyd]

DSummZZZ,

I hate to see a helpful post go without a star. So here you go.

Slighthaze = NULL

[ul][li]FAQ184-2483
An excellent guide to getting a fast and accurate response to your questions in this forum.[/li][/ul]

 

[ramani]

Good point slight and you took initiative is great. After so many answers, Dave came out with a nice suggestion. Cudos Dave!


ramani
(Subramanian.G)

http://winnersoft.coolfreepages.com/

 

[powerprinting]

Hold your horses....

SET HEADING OFF
list off NICKNAME+ "," +NAME+ "," +FIRST+ "," +LAST+ "," +TITLE+ "," +COMPANY+ "," +DEPT+ "," +ADDRESS+ "," +ADDRESS2+ "," +CITY+ "," +ST+ "," +ZIP+ "," +PHONE+ "," +EXT+ "," +FAX+ "," +PAGENUM+ "," +CELLNUM+ "," +COUNTRY+ "," +EMAILER+ "," +VERIFYFLAG+ "," +ACCEPTFLAG+ "," +VALIDFLAG+ "," +RESIDEFLAG+ "," +CUSTOMID+ "," +REFERENCE+ "," +SERVTYEP+ "," +PACKCODE+ "," +COLLECTCOD+ "," +BILLCODE+ "," +ACCTNO+ "," +DUTYBILL+ "," +DUTYBILL2+ "," +CURRENCY+ "," +INSIGHT+ "," +GROUNDREF+ "," +GROUNDS+ "," +GROUNDS2+ "," +GROUNDS3+ "," +EXALERT+ "," +EXEMAIL+ "," +PARTNER+ "," +NETRETURN+ "," +CUSTOMSID+ "," +ADDRESSYTP+ "," +F1+ "," +F2+ "," +F3+ "," +F4+ "," +F5+ "," +F6+ "," +F7+ "," +F8+ "," +F9+ "," +F10+ "," +F11+ "," +F12+ "," +F13+ "," +F14+ "," +F15+ "," +F16+ "," +F17+ "," +F18+ "," +F19+ "," +F20+ "," +F21+ "," +F22+ "," +F23+ "," +F24+ "," +F25

I am returned the message "expression is too complex"

geezzzzz.. I need to just get another line of work.. LOL

 

[DSummZZZ]

I think you may need to break it into sections using the ;. The line is probably too long:

SET HEADING OFF
list off ;
NICKNAME+ "," +NAME+ "," +FIRST+ "," +LAST+ "," ;
TITLE+ "," +COMPANY+ "," +DEPT+ "," +ADDRESS+ ;
ADDRESS2+ "," +CITY+ "," +ST+ "," +ZIP+ "," +PHONE+ "," ;

...and so on

By the way, thanks for the star.



-Dave S.-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[ramani]

Hello..

SELECT myTable
tString = ''
SCAN
tString = tstring + ;
NICKNAME+ "," +NAME+ "," +FIRST+ "," + ;
LAST+ "," +TITLE+ "," + ;
COMPANY+ "," +DEPT+ "," +ADDRESS+ "," + ;
ADDRESS2+ "," +CITY+ "," +;
ST+ "," +ZIP+ "," +PHONE+ "," +EXT+ "," +;
FAX+ "," +PAGENUM+ "," +;
CELLNUM+ "," +COUNTRY+ "," +EMAILER+ "," + ;
VERIFYFLAG+ "," + ACCEPTFLAG+ "," +VALIDFLAG+;
"," +RESIDEFLAG+ "," +CUSTOMID+ "," +;
REFERENCE+ "," +SERVTYEP+ "," +PACKCODE+ "," +'
COLLECTCOD+ "," +BILLCODE+ "," +ACCTNO+ "," + ;
DUTYBILL+ "," +DUTYBILL2+ "," +CURRENCY+ "," +;
INSIGHT+ "," +GROUNDREF+ "," +GROUNDS+ "," + ;
GROUNDS2+ "," +GROUNDS3+ "," +;
EXALERT+ "," +EXEMAIL+ "," +PARTNER+ "," + ;
NETRETURN+ "," +CUSTOMSID+ "," +;
ADDRESSYTP+ "," +F1+ "," +F2+ "," +F3+ "," + ;
F4+ "," +F5+ "," +F6+ "," +F7+;
"," +F8+ "," +F9+ "," +F10+ "," +F11+ "," +F12+;
"," +F13+ "," +F14+ "," +;
F15+ "," +F16+ "," +F17+ "," +F18+ "," +F19+ "," + ;
F20+ "," +F21+ "," +F22+;
"," +F23+ "," +F24+ "," +F25 + CHR(13)
ENDSCAN
=STRTOFILE(tString,"myText.txt&quot

OR

ERASE FILE "myFile.txt"
SELECT myTable
tString = ''
SCAN
tString = ;
NICKNAME+ "," +NAME+ "," +FIRST+ "," + ;
LAST+ "," +TITLE+ "," + ;
COMPANY+ "," +DEPT+ "," +ADDRESS+ "," + ;
ADDRESS2+ "," +CITY+ "," +;
ST+ "," +ZIP+ "," +PHONE+ "," +EXT+ "," +;
FAX+ "," +PAGENUM+ "," +;
CELLNUM+ "," +COUNTRY+ "," +EMAILER+ "," + ;
VERIFYFLAG+ "," + ACCEPTFLAG+ "," +VALIDFLAG+;
"," +RESIDEFLAG+ "," +CUSTOMID+ "," +;
REFERENCE+ "," +SERVTYEP+ "," +PACKCODE+ "," +'
COLLECTCOD+ "," +BILLCODE+ "," +ACCTNO+ "," + ;
DUTYBILL+ "," +DUTYBILL2+ "," +CURRENCY+ "," +;
INSIGHT+ "," +GROUNDREF+ "," +GROUNDS+ "," + ;
GROUNDS2+ "," +GROUNDS3+ "," +;
EXALERT+ "," +EXEMAIL+ "," +PARTNER+ "," + ;
NETRETURN+ "," +CUSTOMSID+ "," +;
ADDRESSYTP+ "," +F1+ "," +F2+ "," +F3+ "," + ;
F4+ "," +F5+ "," +F6+ "," +F7+;
"," +F8+ "," +F9+ "," +F10+ "," +F11+ "," +F12+;
"," +F13+ "," +F14+ "," +;
F15+ "," +F16+ "," +F17+ "," +F18+ "," +F19+ "," + ;
F20+ "," +F21+ "," +F22+;
"," +F23+ "," +F24+ "," +F25 + CHR(13)
=STRTOFILE(tString,"myText.txt",1)
ENDSCAN

which eever suits you. We could have the first written with the cumulative tString, but to be on safe side as to its size, I have made it progressive in the second suggestion.


ramani
(Subramanian.G)

http://winnersoft.coolfreepages.com/

 

[baltman]

Would this be shorter?

Use MyTable
COPY TO test.csv DELIMITED

lnhandle= fopen("test.csv&quot
lnNewFile= fcreate("Output_test.csv&quot

do while not Feof(lnHandle)
lcString=fgets(lnHandle,2000)
= fput(lnNewFile,CHRTRAN(fgets(lnHandle,2000),CHR(34),"&quot)
enddo
=fclose(lnHandle)
=fclose(lnNewFile

 

[baltman]

Please note I used fgets() twice by accident.

Use this code as a replacement for the last few lines instead:

do while not Feof(lnHandle)
= fput(lnNewFile,CHRTRAN(fgets(lnHandle,2000),CHR(34),"&quot)
enddo
=fclose(lnHandle)
=fclose(lnNewFile)

 

[powerprinting]

Everyone.. thanks for your help. I have the program up and running and hope to never have to mess with it again.

You are all great!