ASP语法高亮类代码(2)

   TRegEx.IgnoreCase = True  ' 设置是否区分字母的大小写。 
   TRegEx.Global = True   ' 设置全程性质。 
   TRegEx.Pattern="<.*?>" 
   Temp=TRegEx.Replace(Str,"") 
   Temp=Replace(Temp,"<","") 
   Temp=Replace(Temp,">","") 
   Re=Temp 
   Set TRegEx=Nothing 
  End Function 

  Public Function MakeLi() 
    Dim Temp 
If VBCode="" Then 
    MakeLi="" 
    Exit Function 
End If 
    VBCode=HTMLEncode(VBCode) 
    Temp=M_Replace(VBCode,"\b("&Keyword&")\b",KeyWordColor) 
    Temp=M_Replace(Temp,"\b("&ObjEctCommand&")\b",ObjectCommandColor) 
    Temp=String_Replace(Temp,"""(.*?)""","""(.*)(<.+?>)("&KeyWord&ObjectCommand&")+(<.+?>)(.*)""",StringsColor,1)' 字符串 
    Temp=String_Replace(Temp,"(('|rem).*)","'(.*)(<.+?>)("&KeyWord&ObjectCommand&")+(<.+?>)(.*)",Comment,0) '注释 
    MakeLi="<FONT  COLOR="&CodeColor&">"&RepVbCrlf(Temp)&"</FONT>" 
  End Function 
  Public Function RepVbCrlf(fString) 
     RepVbCrlf = Replace(fString, CHR(10), "<BR> ") 
  End Function 
  Public Function HTMLEncode(fString) 
     If IsNull(fString) or fString="" Then 
     HTMLEncode="" 
  Exit Function 
     End If 
     fString = replace(fString, ">", ">") 
     fString = replace(fString, "<", "<") 
     'fString = Replace(fString, CHR(32), " ") 
     'fString = Replace(fString, CHR(9), " ") 
     'fString = Replace(fString, CHR(34), """) 
     'fString = Replace(fString, CHR(39), "'") 
     'fString = Replace(fString, CHR(13), "") 
     'fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ") 
     'fString = Replace(fString, CHR(10), "<BR> ")