删除第三行为空的所有变量，代码报错invalid syntax

我把要处理的变量存在a这个全局暂元中，然后执行以下代码

1. foreach v in $a {
   
2. if `v'[3]=="" {
   
3. drop `v'
   
4. }
   
5. }

复制代码

invalid syntax
r(198);
下面的方法也不行，但是全局暂元a中并没有名字为varlist的变量

1. foreach v of varlist $a{
   
2. if `v'[3]=="" {
   
3. drop `v'
   
4. }
   
5. }

复制代码

variable varlist not found
r(111);

stata13/14 都试过了，报一样的错，应该不是软件问题

$a是怎么设定的？

夏目贵志 发表于 2015-8-7 00:50
$a是怎么设定的？

ds
global a r(varlist)

夏目贵志 发表于 2015-8-7 00:50
$a是怎么设定的？

我解决了

1. foreach v in $a {
   
2. if “`v'”[3]=="" {
   
3. drop `v'
   
4. }
   
5. }

复制代码

按照你写的，虽然没有报错，但执行也没删除啊

1. . list
   
2. 
   
3.      +---------+
   
4.      | x1   x2 |
   
5.      |---------|
   
6.   1. |  1    1 |
   
7.   2. |  2    2 |
   
8.   3. |        3 |
   
9.   4. |  4       |
   
10.   5. |  5    5 |
    
11.      +---------+
    
12. 
    
13. . ds
    
14. x1  x2
    
15. 
    
16. . global a r(varlist)
    
17. 
    
18. . display $a
    
19. x1 x2
    
20. 
    
21. .
    
22. . foreach v in $a {
    
23.   2. if "`v'"[3]=="" {
    
24.   3. drop `v'
    
25.   4. }
    
26.   5. }
    
27. 
    
28. .
    
29. . list
    
30. 
    
31.      +---------+
    
32.      | x1   x2 |
    
33.      |---------|
    
34.   1. |  1    1 |
    
35.   2. |  2    2 |
    
36.   3. |        3 |
    
37.   4. |  4       |
    
38.   5. |  5    5 |
    
39.      +---------+

复制代码

你在哪里看的

x[]  这种写法的？

蓝色 发表于 2015-8-7 14:35
按照你写的，虽然没有报错，但执行也没删除啊

。。。。。。。刚刚才发现不能删除，连老师觉得怎么写代码才能达到我的目的？我试了一下，把变量名字直接放在x的位置是可以删除的，但是用暂元就不行了

1. if varname[3]=="" {
   
2. drop varname
   
3. }

复制代码

确切的说是这样定义暂元是不可以的

1. ds
   
2. global a r(varlist)
   
3. foreach v in $a {
   
4. if “`v'”[3]=="" {
   
5. drop `v'
   
6. }
   
7. }

复制代码

但是用下面的方法定义暂元是可以的，就是把每个变量的名字写出来，但是我想要上面的那个方法，因为我的变量很多

1. global a “var1 var2 var3”
   
2. foreach v in $a {
   
3. if “`v'”[3]=="" {
   
4. drop `v'
   
5. }
   
6. }

复制代码

x[]这种写法来自，stata官方论坛http://www.stata.com/statalist/archive/2013-03/msg01237.html

1、我不是连老师

2、你后面写的那个也是无法剔除的

3、你给的那个连接

> forvalues i=2(1)1285{
>         replace var`i'=subinstr(var`i',"(PE)","",.)   in 1
>         if var`i'[1]=="#ERROR" {
>                 drop var`i'
>         }
> }

人家后面都写了error 说明是错误的

蓝色 发表于 2015-8-7 21:16
1、我不是连老师

2、你后面写的那个也是无法剔除的

1、不好意思，我以为您是连老师

2、我确定是可以的

1. set obs 100
   
2. gen a=""
   
3. gen b ="c"
   
4. global var "a b"
   
5. foreach v in $var{
   
6. if `v'[3]==""{
   
7. drop `v'
   
8. }
   
9. }

复制代码

3、他们确实报错invalid syntax，但是x[]的用法是可行的

4、您是否知道有什么办法可以解决我的问题

天斯吾下 发表于 2015-8-7 22:24
1、不好意思，我以为您是连老师

2、我确定是可以的3、他们确实报错invalid syntax，但是x[]的用法是可 ...

我始终没看懂问题是什么。你给的那个例子没问题啊。你要是想要不一一写出变量名，就用
foreach v of varlist _all {
至于[]的写法，确实没问题的。我一直都这么用。

1. . clear
   
2. 
   
3. . sysuse auto
   
4. (1978 Automobile Data)
   
5. 
   
6. . di price[2]
   
7. 4749
   
8. 
   
9. . di price[3]
   
10. 3799
    
11. 
    
12. . list price in 2/3
    
13. 
    
14.      +-------+
    
15.      | price |
    
16.      |-------|
    
17.   2. | 4,749 |
    
18.   3. | 3,799 |
    
19.      +-------+

复制代码