请教数据处理
以下数据，2001年到2006年,A和B 两种物品
   2001   2002    2003   2004   2005    2006  
A  1         1         0        1        0         1
B   0         0       1          1        1         0
我想要A和B物品连续取值为1的时期数，数据为零表示间断期，比如A 2001-2002持续两期，2004年持续一期，2006年持续1期，对A我想得到以下数据
        T
A1     2
A2     1
A3     1
数据B我想得到以下数据
     T
B1  3

A和B 想得到以下数据
        T
A1     2
A2     1
A3     1
B1     3
需要处理几千条数据，应该如何用STATA编程，谢谢!