自如自乐小命令：取出观察值中的数字

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

程序说明：如果变量中有类似这样的观察值：&388&8*3￥#lj号89996%799^3

我这个小程序就是将数字取出来，得到：38883899967993
语法：capnum  varname
代码：

1. cap program drop capnum
   
2. pro define capnum
   
3. version 13.0
   
4. syntax varlist
   
5. tokenize `varlist'
   
6. loc vn : word count `varlist'
   
7. forval var=1/`vn'       {
   
8.         loc i=1
   
9.         while `i'<=_N  {
   
10.                 loc n=""
    
11.                 if indexnot(``var''[`i'],"0123456789") != 0  {
    
12.                         loc m=length(``var''[`i'])
    
13.                         forval j=1/`m'  {
    
14.                                 loc a=substr(``var''[`i'],`j',1)
    
15.                                 if indexnot("`a'","0123456789") == 0  {
    
16.                                         loc n=plural(0,"`n'","+`a'")
    
17.                                 }
    
18.                                 loc ++j
    
19.                         }
    
20.                         qui     replace ``var''="`n'"  in `i'
    
21.                 }
    
22.                         loc ++i
    
23.         }
    
24. }
    
25. end

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：varlist Version Program DEFINE SYNTAX stata 字符 数字 取出