apang

Set fso = Createobject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("1.txt")
Set re = New RegExp
re.Pattern = "^\S+(\s+\S+\s+([036]).*)"
while Not file.AtEndOfStream
        s = Trim(file.ReadLine)
        If re.Test(s) Then
                Set m = re.Execute(s)(0)
                s = Int(m.SubMatches(1)/6) & m.SubMatches(0)
        End If
        str = str & s & vbCrLf
wend
fso.OpenTextFile("2.txt", 2, true).Write str
复制代码