正则表达式过程分享
*"才能查找替换哟。记得当初把规格形如 23*12*24 的字符变为 23×12×24 着实使我犯愁,但
是你一旦掌握这个技巧之后,处理这个易如反掌。"*"和"?"在正则表达式中也属于特殊字符哟,
照样功能强大实用。请听我慢慢述来……
字符 功能说明
\ 转义符,功能是将下一个字符标记为特殊字符,或一个原义字符,或一个向后引用,
或一个八进制转义字符。例如:\f 匹配一个换页符,等价于"\x0c"或"\cL" (表示多样性,凸显功
能强大的灵活性)。\n 匹配一个换行符,等价于"\x0a"或"\cJ"
实例实测二: "\n"测试: "\x0a"测试: "\cJ"测试
ctp_119
江西乐平
ctp_119 江西乐平 ctp_119 江西乐平 ctp_119 江西乐平
注:如果你还不太理解,没
有关系,只要你有个初步印
象,相信读书百遍,其义自现,
打包封装函数思想,这种意识
始终贯穿自学全过程.
ctp_119 江西乐平
ctp_119
江西乐平
ctp_119 江西乐平
Function 去除换行符_n(str As String) As String
Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
With reg
.Global = True
.Pattern = "\n"
去除换行符_n = .Replace(str, "")
End With
Set reg = Nothing
End Function
Function 去除换行符_x(str As String) As String
Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
With reg
.Global = True
.Pattern = "\x0a"
去除换行符_x = .Replace(str, "")
End With
Set reg = Nothing
End Function
Function 去除换行符_c(str As String) As String
Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
第 3 页