>Hi All,
>
>I need to build a string of tab delimited fields from a table. I have been using something similar to:
>
>
>cMyString = ""
>
>SCAN
>
> cMyString = m.cMyString + myTable.Field1 + CHR(9) + myTable.Field2 + CHR(9) + CHR(13)
>
>ENDSCAN
>
>
>Is there a faster way such as, for example, using TEXTMERGE?
>
>TIA
If the output is large and you don't want to write to a file, you can use ado stream
function do_it()
#ifndef adTypeBinary
#define adTypeBinary (1)
#define adTypeText (2)
#define adSaveCreateNotExist (1)
#define adSaveCreateOverWrite (2)
#define adReadAll (-1)
#define adReadLine (-2)
#define adWriteChar (0)
#define adWriteLine (1)
#endif
local streamObj
streamObj = createObject('ADODB.Stream')
streamObj.Type = adTypeText
=m.streamObj.Open()
=m.streamObj.WriteText('Part of a line', adWriteChar)
=m.streamObj.WriteText('Line 1', adWriteLine)
=m.streamObj.WriteText('Line 2', adWriteLine)
local s
streamObj.Position = 0
s = m.streamObj.ReadText(adReadAll)
?s
streamObj.Position = 0
do while ( !m.streamObj.EOS )
s = streamObj.ReadText(adReadLine)
?s
enddo
=m.streamObj.Close()
endfunc
Gregory