[代码合集] [已解决]批处理怎样在一个文本上每2个字符加个逗号？

var file = "text.txt";
var fso = new ActiveXObject("scripting.filesystemobject");
var str = fso.OpenTextFile(file,1).ReadAll().replace(/(..)(?!$)/gm,'$1,');
fso.OpenTextFile(file,2).Write(str);
WSH.echo("OK");
复制代码

@echo off&SetLocal EnableDelayEdexpansion&cd /d "%~dp0"

set "str=FFFFFFFFFFFFFFFFFF0000000000"
for /l %%a in (0 2 100) do (
  if not "!str:~%%a,2!" == "" (
    set /p nstr=!str:~%%a,2!,<nul
  ) else (
    echo;&pause&exit
  )
)
复制代码

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

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

sed "s/../&,/g" a.txt | sed "s/,$//" >b.txt
复制代码

@ECHO OFF
Setlocal enableDelayedExpansion
for /f "tokens=*" %%i in ("FFFFFFFFFFFFFFFFFF0000000000") do (
	set str=%%i&set str=!str:F=F !&set str=!str:0=0 !
	for %%j in (!str!) do (
		set /a a+=1&set /a b=!a!%%2
		if !b!==1 set str2=!str2!%%j
		if !b!==0 set str2=!str2!%%j,
	)
	echo !str2!
)
复制代码