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