> lcStr = FILETOSTR("header3.htm") > >DIMENSION laLines[1] >ALINES(laLines, lcStr) >lcNewTextFile = "header3b.htm" >lcCrLf = CHR(13) + CHR(10) >ERASE (lcNewTextFile) >FOR i=1 TO ALEN(laLines) > if not empty(laLines[i]) && skip blank lines > IF ("http://www" $ laLines[i]) > STRTOFILE('<a href="http://www.acrisoft.com"> '+ lcCrLf, lcNewTextFile, .T.) ELSE STRTOFILE(laLines[i]) + lcCrLf, lcNewTextFile, .T.) > endif > endif > >ENDFOR