[文本处理] 批处理如何对文本里各列数据分别除以指定数值

#*第三方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')})
复制代码