求一正则表达式 在线等

[changejill]

求一个正则表达式
例如：
a="0086000755860"

经正则表达式替换后变成：
a="86755860"
即替换第一个86左边和右边紧挨着的所有零

[sky0120]

又发？ http://community.csdn.net/Expert/topic/4694/4694588.xml?temp=.9414636

[ybcola]

Public Function RegExpReplace(str1,patrn, replStr,ModeSet)
Dim regEx, Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = ModeSet ' 设置是否区分大小写。
regEx.Global=True '搜索是否应用于整个字符串
RegExpReplace = regEx.Replace(str1, replStr) ' 作替换。
Set regex = nothing
End Function

patrn="([0]{0,}86[0]{0,})(.{0,})"
response.Write RegExpReplace("00860000021",patrn,"86$2",false)

[ybcola]

结贴给分吧！还发！！

[newskyline]

http://community.csdn.net//Expert/TopicView.asp?id=4694588
已经解决拉

━━━━━━━━━━━━━━━━━━━━━━━━━━
我的CSDN原则:无帖我回，有帖我优，优帖我避，强帖我顶!
━━━━━━━━━━━━━━━━━━━━━━━━━━
欢迎访问小天的维动世界 www.justrun.net

[changejill]

呵呵~谢谢啦~立马结贴:)

[changejill]

newskyline(小天)的分在那边给：）
接分~