基于前一列添加2列

Question

我有一个带有4列的选项卡分隔文件。第2列和第3列有数字。

我要总结第一列3项与第二柱2条目和代替第二柱2的打印，然后用在第二列3的地方第二列3条目和打印，且该结果该结果总和与第三栏第2栏输入和第三栏第2栏打印，依此类推。预期的结果将是：

Answer 1

你没问Tcl代码，但这里有一种方法可以实现。它可能更漂亮，但它的工作原理。

set data { 
A1 1 2 a1 
B1 3 4 b1 
C1 5 6 c1 
} 

set ns {} 
foreach {- a b -} $data { 
    lappend ns $a $b 
} 

set a 0 
set xs 1 
foreach n [lrange $ns 1 end] { 
    lappend xs [incr a $n] 
} 

foreach {a b} $xs r {a b c} { 
    puts "[string toupper $r]1\t$a\t$b\t${r}1" 
} 

Answer 2

下面的Python的解决方案应该工作：

import csv 

def convert(row): 
    for col in [1, 2]: 
     row[col] = int(row[col]) 
    return row 

with open('input.csv', 'rb') as f_input, open('output.csv', 'wb') as f_output: 
    csv_input = csv.reader(f_input, delimiter='\t') 
    csv_output = csv.writer(f_output, delimiter='\t') 

    last = convert(next(csv_input)) 
    csv_output.writerow(last) 

    for cols in csv_input: 
     cols = convert(cols) 
     cols[1] = cols[1] + last[2] 
     cols[2] = cols[1] + cols[2] 
     csv_output.writerow(cols) 
     last = cols 

给你一个output.csv文件，如下所示：

A1 1 2 a1 
B1 5 9 b1 
C1 14 20 c1