apang

纯练习

Set fso = CreateObject("Scripting.FileSystemObject")
text = fso.OpenTextFile("a.txt").Readall

Set re = New RegExp
re.Pattern = "([\s\S]*?\\pos\()(\d+),(\d+)\)|([\s\S]+)$"
re.IgnoreCase = True
re.Global = True
For Each a In re.Execute(text)
    If a.SubMatches(3) = "" Then
        str = str & a.SubMatches(0) & _
        a.SubMatches(1) * 2 & "," & _
        a.SubMatches(2) * 2 & ")"
    Else str = str & a.SubMatches(3)
    End If
Next

fso.OpenTextFile("b.txt",2,True).Write str
复制代码

apang

回复 4# yearharvest


    附件是unicode编码，第2行改成 text = fso.OpenTextFile("a.txt",1,,-1).Readall

apang

回复 7# yearharvest


    你的文件夹里到底有几种编码类型的文件需要修改？不说清楚要别人去猜呀？

你如果是真心求助的话，把你最终的需求更新到顶楼，我可以尝试一下，帮你写一段支持utf-8的代码。

apang

回复 25# yearharvest


    你这个人还真是奇葩，把你最终的要求更新到顶楼，很难吗？
像你这样没完没了地提要求，是对回复者的不尊重，说严重点，就是无理取闹