pcl_test

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

pcl_test

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

pcl_test

回复 9# meiszp
把你测试的文本打包发上来看看

pcl_test

回复 12# meiszp
不用了，你就用你顶楼的数据测试，每行开头的空格去掉，不知你原数据每行开头是否空格？

pcl_test

回复 17# meiszp

只针对顶楼7列的数据有效

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

pcl_test

$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;……}
此处定义每列的除数，如'0'=10表示第1列除以10，'1'=20表示第2列除以20……以此类推，只要定义到最大的列即可，如最多有20列，则定义到'19'=除数，如果不对某列操作，则该列不需定义除数或定义除数为1

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

pcl_test

回复 31# meiszp
26楼

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

28楼($b.Value/++$i)改为($b.Value/指定的共同除数)