UC知道vbs“通配符”问题...
来源：百度知道 编辑：UC知道 时间：2024/06/08 04:40:04
我写了个脚本啊啊，用Replace函数，如下：
a=Replace(d,"1313","222")
现在我想把诸如“我爱1313”，“aaasdfdsdfsdfsdfs1313”等等1313前面带东西的（空格不算）换成222，怎么弄？
你这就像个笑话...（笑话内容：我发短信问一哥们作业“今天作业是什么？”，回了个“明白”，我又发“那你告诉我吧？”回答“好的”）
听出来是什么意思了吧？ 2009-09-14
正则表达式明白，我写成这样了但是不行，请指教：“a=Replace(d,"\S"&"1313","222")” 2009-09-14
a=Replace(d,"1313","222")
a=Replace(d,"asdfa1313","222")
a=Replace(d,"45647561313","222")
a=Replace(d,"1u2j%1313","222")
就这样，1313前面不管有什么东西都要替换成222 2009-09-15
a=Replace(d,"1313","222")
现在我想把诸如“我爱1313”，“aaasdfdsdfsdfsdfs1313”等等1313前面带东西的（空格不算）换成222，怎么弄？
你这就像个笑话...（笑话内容：我发短信问一哥们作业“今天作业是什么？”，回了个“明白”，我又发“那你告诉我吧？”回答“好的”）
听出来是什么意思了吧？ 2009-09-14
正则表达式明白，我写成这样了但是不行，请指教：“a=Replace(d,"\S"&"1313","222")” 2009-09-14
a=Replace(d,"1313","222")
a=Replace(d,"asdfa1313","222")
a=Replace(d,"45647561313","222")
a=Replace(d,"1u2j%1313","222")
就这样，1313前面不管有什么东西都要替换成222 2009-09-15
replace不支持通配符。可以使用正则表达式。
------------------------------------------
既然没有样本就将就用吧：
strFile = "1.txt"
oFile = "2.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile, 1)
Do While not objFile.AtEndOfStream
strLine = objFile.ReadLine
If Instr(strLine,"1313") > 0 Then
strLine = Replace(strLine,"asdfa1313","2221313")
strLine = Replace(strLine,"45647561313","2221313")
strLine = Replace(strLine,"1u2j%1313","2221313")
Else
strLine = strLine
End If
colLines = colLines & strLine & vbCrLf
Loop
objFile.Close
Set objFile = objFSO.CreateTextFile(oFile, True)
objFile.Write colLines
objFile.Close
Set objFSO = Nothing