Batcher

@echo off
setlocal enabledelayedexpansion
set "folder=结果"
if not exist "%folder%" (
    md "%folder%"
)
set interval=5
for %%a in (*.txt) do (
    for /f "tokens=1-2 delims=," %%b in ("%%~na") do (
        set "ins1=%%b"
        set "ins2=%%c"
    )
    set /p line=<"%%a"
    call :StrLen !line!
    call :RandGen offset1
    set /a offset2=offset1+interval
    call :StrInsert !offset1! %interval% !offset2! > "%folder%\%%a"
)
goto :eof

:StrLen
set StrMAX=100
for /l %%i in (0,1,%StrMAX%) do if "!line:~%%i,1!"=="" set num=%%i&goto :eof

:RandGen
set /a %1=%random%%%!num!
goto :eof

:StrInsert
echo !line:~0,%1!!ins1!!line:~%1,%2!!ins2!!line:~%3!
goto :eof
复制代码

Batcher

回复 8# yong8723


修复_第一段落以后的内容全部删除了.bat

@echo off
setlocal enabledelayedexpansion
set "folder=结果"
if not exist "%folder%" (
    md "%folder%"
)
set interval=5
for %%a in (*.txt) do (
    for /f "tokens=1-2 delims=," %%b in ("%%~na") do (
        set "ins1=%%b"
        set "ins2=%%c"
    )
    set /p line=<"%%a"
    call :StrLen !line!
    call :RandGen offset1
    set /a offset2=offset1+interval
    call :StrInsert !offset1! %interval% !offset2! > "%folder%\%%a"
    (for /f "skip=1" %%b in ('type "%%a"') do (
        echo,%%b
    ))>>"%folder%\%%a"
)
goto :eof

:StrLen
set StrMAX=100
for /l %%i in (0,1,%StrMAX%) do if "!line:~%%i,1!"=="" set num=%%i&goto :eof

:RandGen
set /a %1=%random%%%!num!
goto :eof

:StrInsert
echo !line:~0,%1!!ins1!!line:~%1,%2!!ins2!!line:~%3!
goto :eof
复制代码

Batcher

回复 12# yong8723


    11楼代码你再重新测试一下