....
>MCGDATA = MCGDATA + CRLF
>scan
> for ix = 1 to nCols
> MCGDATA = MCGDATA + iif(ix=1,"",TAB)+nvl(str(evaluate(field(ix))),"")
> endfor
> MCGDATA = MCGDATA + CRLF
>endscan
>* Data prepare *
>
>create cursor testgen (genfld1 g)
>append blank
>append general genfld1 class "msgraph" data MCGDATA
Cetin,
Why not to replace this scan with copy to ... deli with tab ?
This works much faster:
copy to TEMP.txt deli with tab
local fp, cstr
fp = fopen( 'TEMP.txt' )
cstr = fread( m.fp, 99999 )
= fclose( m.fp )
create cursor testgen (genfld1 g)
append blank
append general genfld1 class "msgraph" data
data ( MSGDATA+chr(13)+chr(10) + m.cstr )
Andrus