[问题求助] vbs如何提取一个文本里特定行中的指定内容并替换掉另一个文本特定行中的指定内容

zll855

提取指定数字再，除法算出数字再替换替换原有数字，略复杂求大神帮忙
此为文本内容

      1        : 85.000000%
      2        : 3.30GHz  8 cores 
      3         :99.493383%
      4        : 7601 
复制代码

首先根据特征提取出第二行GHz和cores之间的数字8（数字随机），然后用这个数字乘以 0.65（就是8乘以0.65=5.2）获得答案数值后只提取小数点前的数字5
然后在把这个5替换掉另一个文本中的2并保存文本

-s  2  -g -1 -o
复制代码

替换后应为

-s  5  -g -1 -o
复制代码

批处理或者vbs都行 最好是vbs 求前辈帮忙



我只能用vbs提取出文本指定数字 下面的就不行了

Set FSO = CreateObject("Scripting.FileSystemObject")
ss = Split(FSO.OpenTextFile("1.txt").ReadAll, "GHz")
Set f2 = FSO.OpenTextFile("2.txt", 2, True)
For i = 1 To UBound(ss)
f2.WriteLine Trim(Split(ss(i), " cores ")(0))
Next
f2.Close
复制代码

zll855

回复 2# pcl_test


    前辈有运算这替换部分吗

pcl_test

Set fso = CreateObject("Scripting.FileSystemObject")
Set reg = New RegExp
Set f1 = fso.OpenTextFile("1.txt", 1)
reg.Pattern = "GHz\s+(\d+)\s+cores"
n = reg.Execute(f1.ReadAll)(0).SubMatches(0)
f1.Close()
Set f2 = fso.OpenTextFile("2.txt", 1)
text = f2.ReadAll
f2.Close()
reg.Pattern = "(-s\s+)\d+(\s+-g)"
msgbox reg.replace(text, "$1"&int(n*.65)&"$2")
复制代码