lcStr = STRTRAN(lcStr,"< %",CHR(13)+"ENDTEXT"+CHR(13)) cEval = "PRIVATE strVar"+CHR(13)+"TEXT TO strVar TEXTMERGE NOSHOW"+CHR(13); + STRTRAN(lcStr,"%>",CHR(13)+"TEXT TO strVar TEXTMERGE NOSHOW ADDITIVE"+CHR(13)) + ; CHR(13)+"ENDTEXT"+CHR(13)+"RETURN strVar" oCodeBlock = CREATEOBJECT( "cusCodeBlock") oCodeBlock.SetCodeBlock(cEval) oCodeBlock.lAccumulateMergedText = .T. SET TEXTMERGE ON oCodeBlock.Execute() lcStr=oCodeBlock.GetMergedText() RETURN lcStrIt's taking the VFP code between
< %%>delims in an html file and adding it to a string and executing it at the end. (had to put a space in < % above because ut is messing up code - there should be no space)
lcVar = "" >TEXT TO lcVar NOSHOW TEXTMERGE ><<VERSION()>> >ENDTEXT >STRTOFILE(lcVar, ...)>