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

窄口牛

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

yhcfsr

用支持正则的脚本语言可以轻松办到，纯BAT实现起来很麻烦

codegay

正则表达式：
(=\s*)(\d+)
\1^\2

窄口牛

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

Batcher

回复 4# 窄口牛


    把你求到的代码更新到顶楼，我试试。

窄口牛

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()
复制代码

yhcfsr

BAT放在源目录下执行.记得备份源文件.

@set @n=0/*&echo off
dir /a-d/s/b *.txt|cscript -nologo -e:jscript "%~f0"
pause&exit /b */

var fso=new ActiveXObject('scripting.FileSystemObject');
while(!WSH.StdIn.AtEndOfStream){
	var file=WSH.StdIn.ReadLine();
	var fo=fso.OpenTextFile(file,1);
	content=fo.ReadAll();
	content=content.replace(/(=\s*)(\d+)/g,'$1^$2');
	fo.close();
	fo=fso.OpenTextFile(file,2);
	fo.Write(content);
	fo.close();
}
复制代码

窄口牛

非常完美，谢谢