powershell -c "dir 1.txt|?{$_ -is [IO.FileInfo]}|%%{gc $_|%%{$a=($_.Trim() -split '\s+');'{0:e8} {1:e8} {2:e8} {3:e8} {4:e8} {5:e8} {6:e8}' -f ($a[0]/10),($a[1]/20),($a[2]/30),($a[3]/40),($a[4]/50),($a[5]/60),($a[6]/70)}|out-file ('New_'+$_.name) -encoding default}"
pause
复制代码

$str = [IO.File]::ReadAllText('D:\Test\a.txt', [Text.Encoding]::Default);
[regex]::Replace($str, "[^`r`n]+", {param($a); $i=0; [regex]::Replace($a.Value, '\S+', {param($b); ($b.Value/++$i).ToString('e8')})})
复制代码

powershell -c "$map=@{'0'=10;'1'=20;'2'=30;'3'=40;'4'=50;'5'=60;'6'=70;'7'=80;'8'=90;'9'=100;'10'=110;'11'=120};dir *.txt|?{$_ -is [IO.FileInfo]}|%%{gc $_|%%{if($_ -match '^\s*$'){$_}else{$a=($_.trim() -split '\s+');$line='';for($i=0;$i -le ($a.length-1);$i++){if($map.ContainsKey(''+$i)){$line+='  '+('{0:e8}' -f ($a[$i]/$map[''+$i]))}else{$line+=' '+$a[$i]}};$line.trim()}}|out-file ('New_'+$_.name) -encoding default}"
pause
复制代码

 @echo off&&setlocal enabledelayedexpansion
set "[set]=10 20 30 40 50 60 80"
for /l %%n in (1,1,8192)do (
 for /f "tokens=1,* delims= " %%i in ("![set]!")do (
  set "[set]=%%j"&&set/a "[set][n]+=1"
  for /f "delims=" %%n in ("![set][n]!")do set "[set][new][%%n]=%%i"
 )
)
for /f "delims=" %%i in ('type "新建文本文档 (4).txt"')do (
 set "[type]=%%i"&&set "[type][n]="&&set "[true]="
 for /l %%n in (1,1,![set][n]!)do (
  for /f "tokens=1,* delims= " %%i in ("![type]!")do (
   set "[type]=%%j"&&set/a "[type][n]+=1"
   for /f "delims=" %%n in ("![type][n]!")do (
    set "[calc]=%%i/![set][new][%%n]!"
    call :[calc]
    if defined [true] (
     set "[true]=![true]! ![calc][new]!"
    )else (
     set "[true]=![calc][new]!"
    )
   )
  )
 )
 echo/
 echo,![true]!
)
pause
exit
:[calc]
for /f "delims=" %%c in ('mshta.exe "vbscript:createobject("scripting.filesystemobject").getstandardstream(1).write(%[calc]%)(close)"') do set "[calc][new]=%%~c"
goto:eof
复制代码

@echo off
set "r='\d+\.?\d*[Ee][-+]\d{3}'"
md new\ 2>nul
PowerShell -c "dir *.txt|%%{$str=[IO.File]::ReadAllText($_,[Text.Encoding]::Default);[regex]::Replace($str,\"[^^`r`n]+\",{param($a);$i=0;[regex]::Replace($a.Value,%r%,{param($b);($b.Value/++$i).ToString('e8')})})>('new\'+$_.Name)}"
pause
复制代码