[文本处理] 批处理或VBS如何将多个txt文本每隔指定字符数插入一个指定字符串？

@echo off
set /a n=5,m=6
set "v=批处理之家"
for %%a in (*.txt) do (
  (for /f "usebackq delims=" %%b in ("%%a") do (
    set /a Lin+=1
    set "str=%%b"
    setlocal enabledelayedexpansion
    if !Lin! gtr %m% (echo,!str!
    ) else echo,!str:~,%n%!%v%!str:~%n%!
    endlocal
  ))>$
  move $ "%%a"&set "Lin="
)
pause
复制代码

@echo off&SetLocal EnableDelayEdexpansion&cd /d "%~dp0"
set /a n=5
set /a m=(4-1)*n
for /f "delims=" %%a in (11.txt) do (
  set "str=%%a"
  for /l %%a in (0 !n! !m!) do (
    for %%i in (!n!) do set /p=!str:~%%a,%%i!<nul
    set /p=批处理之家<nul
  )
  set /a mm=m+n
  for %%i in (!mm!) do set /p=!str:~%%i!<nul
  echo;
)
pause
复制代码

@echo off&SetLocal EnableDelayEdexpansion
set N=5&set M=4&set "s=批处理之家"
set /a "M=M*(N-1),i=N-1"
for /f "delims=" %%i in (test.txt) do (
    set var=&set "str=%%i"
    for /l %%j in (%N% %N% %M%) do (
        if "!str:~%n%!" neq "" (
           if defined str set "var=!var!!str:~,%N%!%s%"
           set str=!str:~%N%!
        )
    )
    if "!str:~%i%!" neq "" (
       set "var=!var!!str:~,%N%!%s%"
       set str=!str:~%N%!
    )
       echo;!var!!str!
)
pause
复制代码

set fso = createobject("scripting.filesystemobject")
for each file in fso.getfolder(".").files
   ext = fso.getextensionname(file)
   if lcase(ext) = "txt" then MySub 5,7,"批处理之家"
next
msgbox "OK"

sub MySub(n,m,v)
   set objTxt = fso.opentextfile(file)
   do until objTxt.atendofstream
      strLine = objTxt.readline
      redim ar(int(len(strline)/n))
      for i = 0 to ubound(ar)
         ar(i) = mid(strline,i*n+1,n)
         if s < m and len(ar(i)) = n then
            s = s + 1
            ar(i) = mid(strline,i*n+1,n) & v
         end if
      next
      str = str & join(ar,"") & vbcrlf
   loop
   objTxt.close :set objTxt = nothing
   fso.opentextfile(file,2,true).write str
end sub
复制代码

一个人命里不见得有太太或丈夫，但绝对不可没有朋友。ffff
abcd

即使是荒岛上的鲁滨逊，也不免需要一个“礼拜五”
复制代码

一个人命里批处理之家不见得有太批处理之家太或丈夫，批处理之家但绝对不可批处理之家没有朋友。批处理之家ffff
abcd

即使是荒岛批处理之家上的鲁滨逊批处理之家，也不免需要一个“礼拜五”。
复制代码