Export csv

[Kenneth Brody]

Quoting Christopher Yerry (Fri, 19 Aug 2005 07:57:32 -0700 (PDT)):
[...]
>     Then:X="1"                                             'Initilize
> the counter
> Loop  If:   asc(mid(<FieldNumber>,"1",x)) = "34"           'If there is
> a   "
>     Then:   mid(FieldName,"1",x)= asc("39")                'replace it
> with '
>       If:   x < len(<FieldNumber>                          'Search to
> the end
>     Then:   goto loop
>       if:
>     Then:(export routine)
>
> Then write it to the export. ... and yes I indent filepro code and I
> make everyone else here do the same. (gasp!)

FYI -

This can be simplified as:

    field = xlate(field,chr("34"),"'")

--
KenBrody at BestWeb dot net        spamtrap: <g8ymh8uf001 at sneakemail.com>
http://www.hvcomputer.com
http://www.fileProPlus.com