>>What exactly are you testing, Nadya? The colors sure work fine. You've got me curious.....
>
>Its a program that I wrote to automatically format and color syntax in HTML.
>
>Nayda, I have already fixed all the Inline stuff a while ago (including the reserved words in the comment), its just been to busy to post. I can also tell your using an older version because the blank lines dn't appear.
lparameters lcCode, lcPath
lnWA = select()
select 0
use (iif(empty(lcPath), '', lcPath) + 'words')
lcCode = strtran(lcCode, chr(9), space(5))
lcCode = strtran(lcCode, '&', '&')
lcCode = strtran(lcCode, 'strtran(lcCode, '>', '>')
local laLines[1], lcReturn
alines(laLines, lcCode)
lcReturn = ''
for lnI = 1 to alen(laLines)
lcLine = laLines[lnI]
if empty(alltrim(lcLine))
lcReturn = lcReturn + chr(13) + chr(10)
loop
endif
if upper(alltrim(lcLine)) = '*' or;
upper(alltrim(lcLine)) = 'NOTE'
lcLine = '' + ;
lcLine + ''
lcReturn = lcReturn + chr(13) + chr(10) + lcLine
loop
endif
local lcFormat, lnFormatLength, lcFL, ;
lcRW, lnRWLength, lnStartRW, lnOccurance
lcFormat = ''
lnFormatLength = len(lcFormat)
lcFL = ' '+ upper(trim(chrtran(lcLine, ':;./\+=-}]()#', space(15)))) + ' '
local lcDoubleAmp, lnStartComment
lcDoubleAmp = '&&'
lnStartComment = at(lcDoubleAmp, lcLine)
if lnStartComment > 0
lcLine = stuff(lcLine, lnStartComment, 0, '') + ;
''
endif
scan
wait window nowait 'Line ' + alltrim(str(lnI)) + ;
' RW ' + alltrim(str(recno()))
lcRW = ' ' + alltrim(REVWORD) + ' '
lnRWLength = len(lcRW) - 2
lnOccurance = 1
lnStartRW = at(lcRW, lcFL, 1)
do while lnStartRW > 0 and (lnStartComment = 0 or lnStartRW *Put in the format tags
lcLine = stuff(lcLine, lnStartRW, 0, lcFormat)
lcLine = stuff(lcLine, lnStartRW + lnFormatLength + lnRWLength, 0, '')
lcFL = ' '+ upper(trim(chrtran(lcLine, ':;./\+=-}]()', space(14)))) + ' '
lnOccurance = lnOccurance + 1
lnStartRW = at(lcRW, lcFL, lnOccurance)
enddo
endscan
lcReturn = lcReturn + chr(13) + chr(10) + lcLine
endfor
lcReturn = lcReturn + '
'
use
select (lnWA)
return lcReturn
Same problem... :(
If it's not broken, fix it until it is.
My Blog