[问题求助] VBS怎样判断等号后面是数字就在数字前面加^（已解决）

窄口牛

判断文本中所有的等号后面的第一个字符（略过空格）是数字的话，就在这个数字前面加个^。

窄口牛

群里求来了判断，网上搜到替换，但是还是弄不出来，vbs确实玩不来。

窄口牛

Set regex=New RegExp

regex.Global=True

regex.Pattern="\=\s*(\d)"

For Each i In regex.Execute(text)

wsh.echo i.Submatches(0)

Next
复制代码

s=Split(text,"=")

For i=1 To UBound(s)

If IsNumeric(Left(LTrim(s(i)),1))then

wsh.echo Left(LTrim(s(i)),1)
else wsh.echo "no"
End If

Next
复制代码

set fso = createobject("scripting.filesystemobject")
' 读取文件
set stream = fso.opentextfile("a.txt",1)
content = stream.readall()
call stream.close()
' 替换字符串
content = replace(content,"=","=^")
content = replace(content,"*","♀")
' 保存文件
set stream = fso.opentextfile("a.txt",2)
call stream.write(content)
call stream.close()
复制代码

窄口牛

非常完美，谢谢