lcResult = Textmerge( m.lcTemplate )
PS: StrTran was needed just because you cannot set textmerge delimiters to be more than 2 characters in length. >Clear All >Clear >Set Safety Off > > >Create Cursor _tempm (tekst1 M) >TEXT TO mtekst1 noshow > > First line : <<#_str1#>> > Second line: <<#_str2#>> and then again <<#_str1#>> and <<#_str3#>> for the end > Third line: <<#_str3#>> > > >ENDTEXT > > >Insert Into _tempm (tekst1) Values (mtekst1) >Browse Nomodify Nocaptions > >Create Cursor _temp (idtekst c(10), tekst c(50) ) > >For i=1 To 3 > Insert Into _temp(idtekst, tekst) Values ("_str"+Transform(i), "This is tekst_"+Transform(i)) >Endfor >Browse Nomodify Nocaptions > >Select * From _tempm Into Cursor _tempFill Where .F. Readwrite > >lmTranslated=DoProcessing(_tempm.tekst1, '_temp') >? "---" >? m.lmTranslated >? "---" > >Insert Into _tempFill Values (m.lmTranslated) > >Select _tempFill >Browse Nomodify Nocaptions > >Procedure DoProcessing(tcTemplate, tcSourceCursor) > Select (m.tcSourceCursor) > Scan > Store Trim(tekst) To ('m.'+Trim(idtekst)) > EndScan > Select 0 && just because you failed to use m. in your template > tcTemplate = Strtran(Strtran(m.tcTemplate, '<<#','<<'),'#>>','>>') > Return Textmerge(m.tcTemplate) >Endproc > >