Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Tab Separated Values
Message
 
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00406399
Message ID:
00406423
Views:
40
Put a space after the << and a space before the >>

>* TSV.PRG
>FUNCTION tsv
>* Purpose.........: Read in FoxPro table and writeout tab-separated values that are labelled and unquoted
>* Origination.....: Greg Griffith on 08/16/2000
>* Calling example.: =tsv('empps.dbf','empps.txt')
>LPARAMETER tcFileIn, tcFileOut
>
>USE (tcFileIn) ALIAS FileIn IN 0
>
>GOTO TOP
>
>nFieldCount=AFIELDS(laFields,'FileIn')
>
>SET TEXTMERGE TO (tcFileOut)
>SET TEXTMERGE ON NOSHOW
>
>FOR ni = 1 TO nFieldCount-1
> \\<< laFields(ni,1) >> << CHR(9) >>
>ENDFOR
> \\<< laFields(ni,1) >>
>
>SELECT FileIn
>SCAN
> *-- I like chatter...
> WAIT WINDOW NOWAIT "Processing record number " + STR(RECNO("filein")) + "..."
> ni=1
> \<< EVALUATE(laFields(ni,1)) >>
> FOR ni=2 TO nFieldCount
> IF TYPE("EVALUATE(LAFIELDS(NI,1))") = "D"
> IF EMPTY(EVALUATE(LAFIELDS(NI,1)))
> \\<< CHR(9) >>
> ELSE
> \\<< DTOC(EVALUATE(laFields(ni,1))) >><< CHR(9) >>
> ENDIF
> ELSE
> \\<< EVALUATE(laFields(ni,1)) >><< CHR(9) >>
> ENDIF
> ENDFOR
>
>ENDSCAN
>
>WAIT CLEAR
>SET TEXTMERGE OFF
>SET TEXTMERGE TO
>USE IN FILEIN
>
>*: eof
Mark McCasland
Midlothian, TX USA
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform