VBS正则表达式实例

最近写了些小玩意，用到一些在VBS下的正则，主要用作字符匹配和替换，在此仅作记录

先整个函数做替换用

1. Function RegExp(str1, patrn, replStr)
   
2.     Dim regEx
   
3.     Set regEx = New RegExp
   
4.     regEx.Pattern = patrn
   
5.     regEx.IgnoreCase = True
   
6.     regEx.Global = True
   
7.     RegExp = regEx.Replace(str1, replStr)
   
8. End Function

用 TAB键替换 连续空格（两个以上）

1. strContent = RegExp(strContent, "([ ])([ ])+", chr(9))

用 空格替换特定格式间的 逗号，XXXX,X，X都是数字

1. strContent = RegExp(strContent, "([0-9][0-9][0-9][0-9])[,]([0-9])", "$1" & chr(32) & "$2")

用 空格替换两个非数字字符间的 逗号，$1和$2代表逗号两侧原有内容不变，仅作定位用，如果两侧是数字则需要[\d]

1. strContent = RegExp(strContent, "([\D])[,]([\D])", "$1" & chr(32) & "$2")

ASCII标准字符在 http://ascii.cl/可查

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/24644775/viewspace-1299552/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/24644775/viewspace-1299552/