[文本处理] [已解决]批处理怎样把各列的值进行相减？

iq301

最近在不断处理非常多的文本，所要的要求都i一样，所以遇到没能力解决的问题，都得在论坛上请教了，

以下的文本，我要把A、B、C、D各列的值进行相减：如A列的第二个值减去A列第一个值，第三个值减去第二个值，依次下去相减，B、C、D都这样做。请指教


Date            Hour       Name              A                       B                                C                        D
8/14/2014        0        ABCD02        107720345        109392125        919715011        920990106
8/14/2014        1        ABCD02        107852093        109524934        920556210        921831784
8/14/2014        2        ABCD02        107984547        109658847        921288932        922564738
8/14/2014        3        ABCD02        108117032        109792471        921963014        923239061
8/14/2014        4        ABCD02        108250845        109927438        922589000        923865201
8/14/2014        5        ABCD02        108384408        110062071        923188315        924464719
8/14/2014        6        ABCD02        108519086        110197742        923854166        925131056
8/14/2014        7        ABCD02        108657902        110338247        924679253        925956963
8/14/2014        8        ABCD02        108803371        110485987        925778191        927056968
8/14/2014        9        ABCD02        108954056        110639097        927076377        928356233
8/14/2014        10        ABCD02        109107449        110795019        928352472        929633328
8/14/2014        11        ABCD02        109261612        110951619        929618215        930900013
8/14/2014        12        ABCD02        109415280        111107856        930874234        932156933
8/14/2014        13        ABCD02        109565084        111260056        932157757        933441421
8/14/2014        14        ABCD02        109717303        111414766        933495177        934780154
8/14/2014        15        ABCD02        109872163        111572582        934847317        936133504
8/14/2014        16        ABCD02        110027046        111730527        936190449        937477980
8/14/2014        17        ABCD02        110177877        111884036        937566416        938855449
8/14/2014        18        ABCD02        110329538        112038313        938995783        940286336
8/14/2014        19        ABCD02        110476014        112187084        940388582        941680607
8/14/2014        20        ABCD02        110615970        112329164        941719539        943012886
8/14/2014        21        ABCD02        110754641        112469863        942974740        944269506
8/14/2014        22        ABCD02        110892255        112609570        944201288        945497481
8/14/2014        23        ABCD02        111028377        112747442        945342172        946639611

DAIC

你的文本是保存在Excel里面的还是txt文件里面？

CrLf

gawk 可以这样：

gawk "NR>1{print $4-A,$5-B,$6-C,$7-D}{A=$4;B=$5;C=$6;D=$7}" table.txt
复制代码

powershell 可以这样：

$obj = (type table.txt) -replace '\s+',','|convertfrom-csv -Delimiter ","
for($i=1;$i -lt $obj.length;$i++){
    $j=$i-1;
    ($obj[$i].A-$obj[$j].A),($obj[$i].B-$obj[$j].B),($obj[$i].C-$obj[$j].C),($obj[$i].C-$obj[$j].C) -join ' '
}
复制代码

iq301

txt文本的， 不可以安装第三方或平台。只能通过系统自带的命令。。

DAIC

回复 4# iq301


    XP还是Win7？

terse

win7的话 二楼 powershell  系统自带哦

@echo off&setlocal enabledelayedexpansion
for /f "delims=U" %%a in ('cmd /u /c echo 唉') do set "tab=%%a"
for /f "tokens=1-7" %%a in (a.txt) do (
    if defined a (
       set /a a=%%d-a,b=%%e-b,c=%%f-c,d=%%g-d
       echo %%a%tab%%%b%tab%%%c%tab%!a!%tab%!b!%tab%!c!%tab%!d!
    ) else echo %%a%tab%%%b%tab%%%c%tab%%%d%tab%%%e%tab%%%f%tab%%%g
    set a=%%d&set b=%%e&set c=%%f&set d=%%g
)
pause
复制代码

CrLf

你们公司这么严吗...
第三方是不用安装的，gawk 就一个 exe，跟脚本扔在一起就行了

CrLf

其实像这种简单的需求，真的还不如用 excel 公式，比脚本简单多了
复杂的倒是适合用脚本

iq301

公司电脑没有权限噶，每天服务器生成的文本数量加起来，你无法想象
- -

apang

@set @n=0; /* & echo off
cscript -nologo -e:jscript "%~0"<a.txt>b.txt
pause & exit/b
*/

txt = WScript.StdIn.ReadAll();
re = /(\S+\s+){3}(\d+\s+){3}\d+\s*$/mg;
while((ar = re.exec(txt)) != null) {
    if (typeof(B) != "undefined") {
        A = ar[0].split(/\s+/);
        for (i=3; i<7; i++) { B[i] = A[i] - B[i] };
        WScript.Echo(B.join("\t"));
    }
    B = ar[0].split(/\s+/);
}
复制代码

iq301

不好意思，这些天都在培训，所以现在才来结贴，非常谢谢各位。