Hi Cetin,

Thanks. This is fine.

Something like this I wanted.
Maybe it could be UDF (User Def. Funct.) inside TextMerge().
The parameter might be

<< ... >>

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