ASP语法高亮类代码
2023-06-13 09:13:53 时间
此类高亮根据Editplus高亮来做的
复制代码代码如下:
Class Wyd_AspCodeHighLight
Private RegEx
Public Keyword,ObjectCommand,Strings,VBCode
Public KeyWordColor,ObjectCommandColor,StringsColor,Comment,CodeColor
Private Sub Class_Initialize()
Set RegEx = New RegExp
RegEx.IgnoreCase = True " 设置是否区分字母的大小写 True 不区分。
RegEx.Global = True " 设置全程性质。
KeyWordColor="#0000FF"
ObjectCommandColor="#FF0000"
StringsColor="#FF00FF"
Comment="#008000"
CodeColor="#993300"
Keyword="Set|Private|If|Then|Sub|End|Function|For|Next|Do|While|Wend|True|False|Nothing|Class" "关建字 请自己添加
ObjectCommand="Left|Mid|Right|Int|Cint|Clng|String|Join|Array" "函数 请自己添加
VBCode=""
End Sub
Private Sub Class_Terminate()
Set RegEx = Nothing
End Sub
Private Function M_Replace(Str,Pattern,Color)
RegEx.Pattern = Pattern " 设置模式。
M_Replace=RegEx.Replace(Str,"<font color="&Color&">$1</font>")
End Function
Private Function String_Replace(Str,Pattern,Pattern1,Color,IsString)
Dim Temp,RetStr
RegEx.Pattern =Pattern1
Set Matches = RegEx.Execute(Str)
For Each Match In Matches " 遍历 Matches 集合
Temp=Re(Match.value)
Str = Replace(Str,Match.value,Temp)
Next
RegEx.Pattern = Pattern " 设置模式。
If IsString=1 Then
String_Replace=RegEx.Replace(Str,"<font color="&Color&">"$1"</font>")
Else
String_Replace=RegEx.Replace(Str,"<font color="&Color&">$1</font>")
End If
End Function
Private Function Re(Str)
Dim TRegEx,Temp
Set TRegEx = New RegExp
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> ")
HTMLEncode = fString
End Function
End Class
例子
star=timer()
Set TT = New Wyd_AspCodeHighLight
If Request("xx")<>"" Then
TT.VBCode=Request("xx")
Response.write TT.MakeLi()
REsponse.write "<br>"&FormatNumber(timer()-star,2)*1000
Else
%>
<FORM METHOD=POST action="Index2.asp">
<TEXTAREA NAME="xx" ROWS="30" COLS="80">Class Lih
Private RegEx
Public Keyword,ObjectCommand,Strings,VBCode
Public KeyWordColor,ObjectCommandColor,StringsColor,Comment
Private Sub Class_Initialize()
Set RegEx = New RegExp
KeyWordColor="#0000FF"
ObjectCommandColor="#FF0000"
StringsColor="#FF00FF"
Comment="#008000"
Keyword="If|End|For|Next|Function|Then|Do|While|Wend|Class"
VBCode=""
End Sub
Private Sub Class_Terminate()
Set RegEx = Nothing
End Sub
Private Function M_Replace(Str,Pattern,Color)
RegEx.IgnoreCase = False " 设置是否区分字母的大小写。
RegEx.Global = True " 设置全程性质。
RegEx.Pattern = Pattern " 设置模式。</TEXTAREA>
<INPUT TYPE="submit" value=fff>
</FORM>
<%End If%>
相关文章
- ASP.NET 中验证的自定义返回和统一社会信用代码的内置验证实现
- .netLinux下部署ASP.NET环境指南(linux部署asp)
- 数据库使用 ASP 读取 MySQL 数据库的实现方法(asp读取mysql)
- 使用ASP连接MySQL实现数据库应用(asp连接空间mysql)
- ASP接入MySQL的操作指南(asp怎样连接mysql)
- ASP开发搭配MySQL更加优雅的数据库处理(asp加mysql)
- 非常不错的列出sql服务器上所有数据库的asp代码
- ASP,PHP与.NET伪造HTTP-REFERER方法及防止伪造REFERER方法探讨
- asp代码实现检测组件是否安装的函数
- asp.netLinq把数据导出到Excel的代码
- ASP.NET动态加载用户控件的实现方法
- Asp.Net动态页面转静态页面主要代码
- asp.netASPxTextBox等控件实现"回车模拟Tab"的常用代码整理
- asp.net仿腾讯微薄提示还能输入*个字符的实现代码
- ASP.NET性能优化之局部缓存分析
- ASP.NET对IIS中的虚拟目录进行操作的代码
- ASP.NET设计网络硬盘之删除文件夹实现代码
- ASP.Net中英文复合检索文本框实现思路及代码
- ASP中set与dim的区别(自己的理解)
- ASP.NET笔记之图库权限设置的方法
- ASP.NET打开新页面而不关闭原来的页面实例代码
- asp.net中水印的具体实现代码
- asp.net实现word文档在线预览功能的方法
- ASP.NET服务器控件的生命周期分析