cPrgTxt = FileToStr(cPrgFile) n1startPos = AT("TEXT",cPrgTxt,1)+5 n1endPos = AT("ENDTEXT",cPrgTxt,1)-1 REPLACE cMemoField1 WITH SUBSTR(cPrgTxt,n1startPos,n1endPos-n1startPos) n2startPos = AT("TEXT",cPrgTxt,3)+5 n2endPos = AT("ENDTEXT",cPrgTxt,2)-1 REPLACE cMemoField2 WITH SUBSTR(cPrgTxt,n2startPos,n2endPos-n2startPos)condense to only three!
cPrgTxt = FileToStr(cPrgFile) REPLACE cMemoField1 WITH STREXTRACT(cPrgTxt,"TEXT","ENDTEXT",1) REPLACE cMemoField2 WITH STREXTRACT(cPrgTxt,"TEXT","ENDTEXT",3)Thanks! This is almost fun... :-) Text from 199 .PRG files distributed to 398 memo fields in just 2 seconds! (after 2 hours of coding). Sure beats retyping or endless Ctrl^C-Ctrl^V. Have a great day.