sysuse auto, clear

*-删除所有观察值缺失的变量(不包括文字变量)

foreach v of varlist _all{
  local vtype: type `v'
  *dis "`vtype'"
  local yesstr = strmatch("`vtype'","str*")
  *dis `yesstr'
  qui sum `v'
  if `r(N)'==0&`yesstr'==0{
    drop `v'
  }
}


*-取出变量的标签  help extended_fcn

  local vlabel: var label  make
  dis "`vlabel'"


*-取出 abcd 与 bcde 的交集

  *set trace on
  local a "abcd"
  local na = length("`a'")
  local b "bcde"
  local match ""   // 存放结果
  
  forvalues i = 1/`na'{
    local a_i = substr("`a'",`i',1)
          if strpos("`b'", "`a_i'")>=1{
            local match "`match'" "`a_i'"
          }
  }

  dis "`match'"

非常谢谢哈。呵呵，还有许多要向连老师学习的地方啊。差距。

nice answer.