VBS怎样判断等号后面是数字就在数字前面加^（已解决）

窄口牛

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

yhcfsr

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

codegay

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

窄口牛

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

Batcher

回复 4# 窄口牛


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

窄口牛

1. Set regex=New RegExp
   
2. 
   
3. regex.Global=True
   
4. 
   
5. regex.Pattern="\=\s*(\d)"
   
6. 
   
7. For Each i In regex.Execute(text)
   
8. 
   
9. wsh.echo i.Submatches(0)
   
10. 
    
11. Next
    

复制代码

1. s=Split(text,"=")
   
2. 
   
3. For i=1 To UBound(s)
   
4. 
   
5. If IsNumeric(Left(LTrim(s(i)),1))then
   
6. 
   
7. wsh.echo Left(LTrim(s(i)),1)
   
8. else wsh.echo "no"
   
9. End If
   
10. 
    
11. Next
    
12. 
    

复制代码

1. set fso = createobject("scripting.filesystemobject")
   
2. ' 读取文件
   
3. set stream = fso.opentextfile("a.txt",1)
   
4. content = stream.readall()
   
5. call stream.close()
   
6. ' 替换字符串
   
7. content = replace(content,"=","=^")
   
8. content = replace(content,"*","♀")
   
9. ' 保存文件
   
10. set stream = fso.opentextfile("a.txt",2)
    
11. call stream.write(content)
    
12. call stream.close()

复制代码

yhcfsr

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

1. @set @n=0/*&echo off
   
2. dir /a-d/s/b *.txt|cscript -nologo -e:jscript "%~f0"
   
3. pause&exit /b */
   
4. 
   
5. var fso=new ActiveXObject('scripting.FileSystemObject');
   
6. while(!WSH.StdIn.AtEndOfStream){
   
7.         var file=WSH.StdIn.ReadLine();
   
8.         var fo=fso.OpenTextFile(file,1);
   
9.         content=fo.ReadAll();
   
10.         content=content.replace(/(=\s*)(\d+)/g,'$1^$2');
    
11.         fo.close();
    
12.         fo=fso.OpenTextFile(file,2);
    
13.         fo.Write(content);
    
14.         fo.close();
    
15. }

复制代码

窄口牛

非常完美，谢谢