yearharvest

回复 5# apang


  编码是UTF-8的话又乱码了

terse

回复 4# yearharvest

@echo off
set n=2
for /f "delims=" %%F in ('dir /b /a-d *.txt') do (
    (for /f "delims=" %%i in ('type "%%F"^|findstr /n .*') do (
        set "str=%%i"
        setlocal enabledelayedexpansion
        if "!str:\pos=(!" neq "%%i" (
           for /f "tokens=1,2 delims=,)" %%a in ("!str:*\pos(=!") do (
               set /a "i=%%a*n,j=%%b*n" 2>nul&&(
                   for /f %%j in ("\pos(!i!,!j!)") do (
                       set "str=!str:\pos(%%a,%%b)=%%j!"
                   )
               )
           )
        )
          echo;!str:*:=!
          endlocal
     ))>$
          move $ "%%F"

)
pause
复制代码

apang

回复 4# yearharvest


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

yearharvest

两个方法处理下面这个文件都有问题，用2楼的处理后变成空文件，用3楼的报错“无效的过程调用或参数”，好像是因为编码的原因，然后我把编码转换成UTF-8，但是用2楼和3楼处理后都会乱码，请问这要怎么解决？
还有3楼的有没有办法像2楼可以处理同一后缀名的多个文件？

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

terse

@echo off
set n=2
for /f "delims=" %%F in ('dir /b /a-d *.ini') do (
    (for /f "usebackq delims=" %%i in ("%%F") do (
         set "str=%%i"
         setlocal enabledelayedexpansion
         if "!str:\pos=(!" neq "%%i" (
            for /f "tokens=1,2 delims=,)" %%a in ("!str:*\pos(=!") do (
                set /a "i=%%a*n,j=%%b*n" 2>nul&&(
                    for /f %%j in ("\pos(!i!,!j!)") do (
                        set "str=!str:\pos(%%a,%%b)=%%j!"
                    )   
                )
            )
        )
    for /f "delims=" %%i in ("!str!") do endlocal&echo %%i
    ))>$
    move $ "%%F"
)
pause
复制代码