>Correction, because of the formatting... using textmerge delimiters doesn't show too nice in the HTML, therefore two new lines:
>
>>

>>* parameter checking left to users (if any)
>>LPARAMETERS tcPrgfile, tcNewFile, tcPrefix
>>CLOSE DATABASES all
>>CREATE CURSOR newprg (cLine c(127))
>>CREATE CURSOR prg (cLine c(127))
>>
>>APPEND FROM (tcPrgFile) sdf
>>SCAN
>>	lcLine=LOWER(ALLTRIM(cLine))
>>	lcFirstWord=GETWORDNUM(lcLine, 1)
>>	do case
>>		CASE INLIST(lcFirstWord, '#', 'lparam','param','enddef','endp','endfu','proc','func','protect','hidden')
>>			INSERT into newprg (cLine) value (TRIM(prg.cline))
>>		CASE lcFirstWord='define' and GETWORDNUM(lcLine,2)='class'
>>			lcOldClass=GETWORDNUM(lcLine, 3)
>>			lcOldParent=GETWORDNUM(SUBSTR(lcLine, AT('as ',lcline)+3),1)
>>			lcNewClass=STUFF(lcOldClass,1, LEN(tcPrefix), tcPrefix)
>>			lcNewLine=STRTRAN(lcLine, lcOldClass,lcNewClass)
>>			lcNewLine=STRTRAN(lcNewLine, lcOldParent, lcOldClass)
>>			lcComment="* redefinition of "+lcOldClass+" of "+tcPrgFile
>>			INSERT into newprg(cLine) value (lcComment)
>>			INSERT into newprg(cLine) value (lcNewLine)
>>	ENDCASE
>>ENDSCAN
>>
>>SELECT newprg
>>SET TEXTMERGE on noshow to memvar cNewText
><b>SET TEXTMERGE DELIMITERS TO "{{","}}"</b>
>>SCAN
>>	<b>\{{TRIM(cLine)}}</b>
>>	\
>>ENDSCAN
>>SET TEXTMERGE to
>>SET TEXTMERGE off show
>>=STRTOFILE(cNewText, tcNewFile)
>>
>

>>
>>I know, the result would need some extra formatting... what else would you want in 20 minutes?

Dragan,

I tried to run it in VFP6.0, I had to replace GetWordNum with WordNum, I passed wgUtility.prg, 'wgUtility_Def.prg',' '. Finally it gave me an Error message, variable cNewText is not found. What's wrong?