[文本处理] [已解决]批处理如何修改文本中含指定字符/字符串的行的指定列的数值

@echo off&setlocal enabledelayedexpansion
(for /f "delims=" %%i in (1.txt) do (
    set "str=%%i"
    if "!str:@=!"=="!str!" (
    	echo,%%i
    ) else (
        for /f "tokens=1-2* delims=,." %%a in ("%%i") do (
            set "tmp=%%b"
            echo,%%a,!tmp:~,-3!.!tmp:~-3!%%c
        )
    )
))>2.txt
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (1.txt) do (
    set "str=%%i"
    if "!str:@=!"=="!str!" (
        echo,%%i
    ) else (
        for /f "tokens=1-2* delims=,." %%a in ("%%i") do (
            set "tmp=00000%%b"
            for /f "tokens=*delims=0" %%d in ("!tmp:~,-4!") do (
                if "%%d" == "" (set z=0) else set "z=%%d"
            )
            echo,%%a,!z!.!tmp:~-4!%%c
        )
    )
)
pause
复制代码

@set @n=0;//&cscript -nologo -e:jscript "%~0">2.txt & exit/b
fso = new ActiveXObject("Scripting.FileSystemObject");
txt = fso.OpenTextFile("1.txt").ReadAll();
txt = txt.replace(/(\d+)\.(\d+.+@)$/mg,
      function(s,s1,s2) {return s1/10000 + s2}
);
WScript.StdOut.Write(txt)
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /a-d /b *.txt') do (
    (for /f "usebackq delims=" %%j in ("%%i") do (
        set "str=%%j"
        if "!str:@=!" neq "!str!" (
            for /f "tokens=1-2* delims=,." %%a in ("!str!") do (
                set "tmp=00000%%b"
                for /f "tokens=*delims=0" %%d in ("!tmp:~,-4!") do (
                    if "%%d" == "" (set z=0) else set "z=%%d"
                )
                echo,%%a,!z!.!tmp:~-4!%%c
            )
        ) else echo,!str!
    ))>$
    move $ "%%i"
)
pause
复制代码

@set @n=0;//&cscript -nologo -e:jscript "%~0" & pause & exit/b
fso = new ActiveXObject("Scripting.FileSystemObject");
txt = fso.OpenTextFile("1.txt").ReadAll();
txt = txt.replace(/(\d+)\.(\d+.+@)/g,
    function(s,s1,s2) {return new Number(s1/10000).toFixed(4)+s2}
);
WScript.Echo(txt)
复制代码