not sure if there is an ado file to do this simply, a hard way:

gen var=""
gen group=.
gen mean=.
gen diff=.
gen t=.
gen p=.

local i = 0
global vars "x1 x2 x3 x4 x5 x6 x7 x8 x9"
        foreach v of varlist $vars {
                local i=`i'+1
                local i1 = 2*(`i'-1)+1
                local i2=`i'+1
          ttest `v', by (group) unequal
          replace var = "`v'" in `i1'/`i2'
          replace group = 0 in `i1'
          replace group = 1 in `i2'
          replace mean = r(mu_1) in `i1'
          replace mean = r(mu_2) in `i2'
          replace diff = r(mu_1)-r(mu_2) in `i1'
          replace t = r(t) in `i1'
          replace p = r(p) in `i1'
   }

请问，你的这个问题解决了没？我也遇到这个问题了~~~

我也遇到这个问题了，还想请教下如何输出的问题？