>> >>Function Table2ClipBoard >>lcTempFileName = "X"+sys(2015)+".tmp" >>handle = fcreate(lcTempFileName) && Create a temp file >>#Define TABULATE chr(9) >>#Define NL chr(13) >> >>For ix = 1 to fcount() >> =fwrite(handle, field(ix)) >> If ix < fcount() >> =fwrite(handle, TABULATE) >> Endif >>Endfor >>=fwrite(handle, NL) >>Scan && Start scan..endscan >> For ix = 1 to fcount() && Write field values >> =fwrite(handle, typeconvert(ix) ) >> If ix < fcount() >> =fwrite(handle, TABULATE) >> Endif >> Endfor >> =fwrite(handle, NL) >>Endscan >>lnSize=fseek(handle,0,2) >>=fseek(handle,0,0) >>_Cliptext = fread(handle, lnSize) && Read file to clipboard >>=fclose(handle) >>Erase (lcTempFileName) >> >