杭州交通信息网德源镇:ubb代码转换
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/09 09:16:14
[color=#000066]代码转换[/color]
我想变成<font color=#000066>代码转换</font>的格式
问题是里面的颜色数是变化的，怎么解决这一问题，小弟谢谢了
我想变成<font color=#000066>代码转换</font>的格式
问题是里面的颜色数是变化的，怎么解决这一问题，小弟谢谢了
<Script language=vbscript>
Function ubbcode(str)
dim Usc
Usc=str
dim re
set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.Pattern="(\[\/color\])"
USC=re.Replace(USC,"[/color]" & VbCrLf)
re.Pattern="\[color=*(#*[a-z0-9]*)\](.*)\[\/color\]"
USC=re.Replace(USC,"<font color=""$1"">$2</font>")
USC = Replace(USC,VbCrLf,"")
ubbcode=USC
end function
msgbox ubbcode("[color=#ffffff]代码转换[/color]")
</script>