28,390
社区成员
发帖
与我相关
我的任务
分享正则问题（替换字符）
str ="1233||天权电子$$1235||港口和兴制品$$1236||新力量包装$$1260||普森堡机械$$"
有上面一样的字符串,现在我需要将全部||与$$之间的内容（包括||和$$）替换成“,”号
请问要怎么写这个正则表达式？？
...全文
请发表友善的回复…
发表回复
micher_yan 2004-12-11
- 打赏
- 举报
sorry,有点问题，以下调试通过
str="1233||天权电子$$1235||港口和兴制品$$1236||新力量包装$$1260||普森堡机械$$"
Function ReplaceTest(patrn,replStr,SourceStr)
Dim regEx, str1
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
ReplaceTest = regEx.Replace(SourceStr, replStr)
End Function
response.write str&"<br>"
str=ReplaceTest("\|\|([^\|])*\$\$",",",str)
response.write str
str="1233||天权电子$$1235||港口和兴制品$$1236||新力量包装$$1260||普森堡机械$$"
Function ReplaceTest(patrn,replStr,SourceStr)
Dim regEx, str1
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
ReplaceTest = regEx.Replace(SourceStr, replStr)
End Function
response.write str&"<br>"
str=ReplaceTest("\|\|([^\|])*\$\$",",",str)
response.write str
micher_yan 2004-12-11
- 打赏
- 举报
Function ReplaceTest(patrn,replStr,SourceStr)
Dim regEx, str1
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
ReplaceTest = regEx.Replace(SourceStr, replStr)
End Function
str=ReplaceTest("\|\|[^(\|*\$*)*]\$\$",",",str)
Dim regEx, str1
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
ReplaceTest = regEx.Replace(SourceStr, replStr)
End Function
str=ReplaceTest("\|\|[^(\|*\$*)*]\$\$",",",str)
