LOCAL lnPieces,lnLen,ix lnPieces = 10 lnLen = 250 Set Textmerge To Memvar m.lcScript Noshow Set Textmerge On \\select For ix=1 To 10 \\ LEFT(SUBSTR(notes,<<(m.ix-1)*m.lnLen+1>>,<<m.lnLen>>),<<m.lnLen>>) as Piece<<PADL(m.ix,2,'0')>> If m.ix<m.lnPieces \\, Endif ENDFOR \\ from Employee into cursor crsSliced Set Textmerge To Set Textmerge Off EXECSCRIPT(m.lcScript) BROWSE WIDTH 20Cetin
>>CREATE CURSOR junk ( junk m ) >>INSERT INTO junk VALUES ( REPLICATE( "X", 5000 ) ) >> >>SELECT TRANSFORM( SUBSTR( junk, 1, 250 ) ) AS junk1, ; >> TRANSFORM( SUBSTR( junk, 251, 250 ) ) AS junk2 ; >> FROM junk >> >>LIST STRUCTURE >>>>
>>> TRANSFORM(SUBSTR(crsContributions.mNotes,1,250)) AS Description01, ; >>> TRANSFORM(SUBSTR(crsContributions.mNotes,251,500)) AS Description02, ; >>>