<< ... >>
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