apang

源文件a.txt，输出文件b.txt

@echo off
(for /f "delims=" %%a in (a.txt) do (
  set "str=%%a"
  setlocal enabledelayedexpansion
  call :11
  echo,!a:~1!&endlocal
))>b.txt
goto :eof

:11
if not "!str:~%n%!"=="" set "a=!a!,!str:~%n%,2!"&set/a n+=2&goto :11
复制代码

vbs，学习2楼乱码大侠的:

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile("a.txt",1)
Set Re = New RegExp
Re.Pattern = "(..)(?!$)"
Re.Global=True
Re.MultiLine = True
Str = Re.Replace(File.ReadAll,"$1,")
FSO.CreateTextFile("b.txt",True).Write(Str)
复制代码

Sorry，bat代码有错误，已修正