#*第三方http://www.bathome.net/s/tool/index.html?key=gawk
#*&cls&dir /a-d/b *.txt|gawk -f "%~f0"&pause&exit
BEGIN{
    folder="结果";
    system("md \""folder"\" 2>nul");
    list="1=10,2=20,3=30,4=40,5=50,6=60,7=70,8=80,9=90,10=100,11=110,12=120";
    #此处定义每列的除数，如1=10表示第1列除以10，2=20表示第2列除以20……以此类推，
    #只要定义到最大的列即可，如最多有20列，则定义到20=除数，
    #如果不对某列操作，则该列不需定义除数或定义除数为1
    split(list,a,",");
    for(i=1;i<=length(a);i++){
        split(a[i],b,"=");
        map[b[1]]=b[2];
    }
    while(getline file>0){
        while(getline<file>0){
            if($0~/^[[:space:]]*$/){
                print>folder"\\New_"file;
            }else{
                for(i=1;i<=NF;i++){
                    printf i<NF?"%.8e  ":"%.8e\n",map[i]==""?$i:$i/map[i]>folder"\\New_"file;
                }
            }
        }
    }
}
复制代码

powershell -c "dir *.txt|?{$_ -is [IO.FileInfo]}|%%{gc $_|%%{$a=($_.trim() -split '\s+');('{0:e8} {1:e8} ' -f ($a[0]/10),($a[1]/20))+($a[2..($a.length-1)] -join ' ')}|out-file ('New_'+$_.name) -encoding default}"
pause
复制代码

open READ, "<:raw", "data.txt";

my @divi = map { $_ * 10 } (1 .. 20);  #10 20 30 ... 200
my $i;

while ($e = <READ> )
{
    $e =~s/^\s+//;      #开头空格清除
    $e =~s/\r?\n$//;    #换行符清除
    $i = 0;
    @arr =  map { $divi[$i++] * $_  } split(/\s+/, $e);
    grep { printf("% e  ", $_) } @arr;
    print "\n";
}

close READ;
复制代码

-6.705523e-006   9.132935e+006   2.069218e+006  -1.526766e+007   1.043421e+007  -2.945188e+007   2.172848e+007  
 5.000000e-001   9.238625e+006   4.093383e+006  -1.436891e+007   1.036955e+007  -2.850440e+007   2.380366e+007  
 9.999932e-001   9.967751e+006   7.828288e+006  -1.409941e+007   1.014586e+007  -2.763844e+007   2.568582e+007  
 1.500000e+000   1.016323e+007   1.191119e+007  -1.432231e+007   9.860271e+006  -2.663541e+007   2.749764e+007  
 1.999993e+000   9.631241e+006   1.518526e+007  -1.545164e+007   9.571748e+006  -2.537090e+007   2.923343e+007  
 2.500000e+000   8.920181e+006   1.689968e+007  -1.754524e+007   9.413743e+006  -2.387482e+007   3.087182e+007  
 2.999993e+000   8.686865e+006   1.620382e+007  -1.962749e+007   9.421916e+006  -2.225997e+007   3.236232e+007  
 3.500000e+000   9.163929e+006   1.410576e+007  -2.072869e+007   9.521359e+006  -2.060406e+007   3.358839e+007  
 3.999993e+000   9.702406e+006   1.152561e+007  -2.226319e+007   9.665547e+006  -1.895729e+007   3.468742e+007  
复制代码

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION
(for /f "tokens=1,2,*" %%a in ('type test.txt') do (
	for /f "tokens=1,2 delims=e" %%A in ("%%a") do (
		set "str=%%B"
		if "!str:~0,1!"=="-" (
			set/a "str=1!str:~1!+1"&set "str=-!str:~-3!"
		) else (
			if "!str!"=="+000"   (
				set "str=-001"
			) else (
				set/a "str=1!str:~!-1"&set "str=+!str:~-3!"
			)
		)
		set "lie1=  %%Ae!str!"
	)
	for /f "tokens=1,2 delims=e" %%A in ("%%b") do (
		set "str=%%B"&set "ptr=%%A"&set "ptr=!ptr:.=!"
		if !ptr! geq 200000000 (set/a ptr/=2) else (set/a ptr=!ptr!0/2)
		if !ptr! geq 500000000 (set Mark=1) else (set Mark=0)
		if "!str:~0,1!"=="-" (
			set/a "str=1!str:~!+1+Mark"&set "str=-!str:~1!"
		) else (
			if "!str!"=="+000"   (
				if !Mark! equ 1 (set "str=-001") else (set "str=-002")
			) else (
				set/a "str=1!str:~1!-1-Mark"&set "str=+!str:~1!"
			)
		)
		set "lie2=  !ptr:~0,1!.!ptr:~1!e!str!"
	)
	echo !lie1:~-16! !lie2:~-16! %%c
))>new.txt
start new.txt
set/p=修改完毕！
复制代码

$str = [IO.File]::ReadAllText('D:\Test\a.txt', [Text.Encoding]::Default);
[regex]::Replace($str, '(?m)^(\s*\S+)', {param($m); ($m.Value/10).ToString('e8')})
复制代码

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

powershell -c "dir *.txt|?{$_ -is [IO.FileInfo]}|%%{gc $_|%%{if($_ -match '^\s*$'){$_}else{$a=($_.trim() -split '\s+');$line='';for($i=0;$i -le ($a.length-1);$i++){$line+='  '+('{0:e8}' -f ($a[$i]/指定的共同除数))};$line.trim()}}|out-file ('New_'+$_.name) -encoding ascii}"
pause
复制代码

#2016年9月30日 08:39:27 codegay

from pandas import *

csv = read_csv("F31_03.txt",sep='\s+',header=None)
s = Series([10,20,30,40,50,60,70])

newcsv = csv / s #csv 中的数据每列除以 s中对应的数值

print(newcsv)
复制代码

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