求一正则表达式 在线等

changejill 2006-04-18 11:14:26
求一个正则表达式
例如:
a="0086000755860"

经正则表达式替换后变成:
a="86755860"
即替换第一个86左边和右边紧挨着的所有零
...全文
73 6 点赞 打赏 收藏 举报
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
changejill 2006-04-18
newskyline(小天)的分在那边给:)
接分~
  • 打赏
  • 举报
回复
changejill 2006-04-18
呵呵~谢谢啦~立马结贴:)
  • 打赏
  • 举报
回复
newskyline 2006-04-18
http://community.csdn.net//Expert/TopicView.asp?id=4694588
已经解决拉

━━━━━━━━━━━━━━━━━━━━━━━━━━
我的CSDN原则:无帖我回,有帖我优,优帖我避,强帖我顶!
━━━━━━━━━━━━━━━━━━━━━━━━━━
欢迎访问小天的维动世界 www.justrun.net
  • 打赏
  • 举报
回复
ybcola 2006-04-18
结贴给分吧!还发!!
  • 打赏
  • 举报
回复
ybcola 2006-04-18
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)
  • 打赏
  • 举报
回复
sky0120 2006-04-18
又发? http://community.csdn.net/Expert/topic/4694/4694588.xml?temp=.9414636
  • 打赏
  • 举报
回复
相关推荐
发帖
ASP
加入

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2006-04-18 11:14
社区公告
暂无公告