subinstr 同时替换多个字符串

大家好，我的数据里面有乱七八糟的符号，数据如下：

Ia+mthe?bes&t+yo&uarethe?best?theya+ret&h?ebest

我用 subinstr 函数将他们都删掉，程序如下:

replace abc=subinstr(abc,"&","",.)
replace abc=subinstr(abc,"+","",.)
replace abc=subinstr(abc,"?","",.)

其实这样就OK了，但是我那个完美主义的老板要求我把这三个命令写在一个命令里，他不会写但他坚信必有一种方法可以搞定

悬赏100论坛币，多谢了。

Hope this is what your boss wants:

1. foreach name in "&" "+" "?" {
   
2. replace abc=subinstr(abc,"`name'","",.)
   
3. }

复制代码

hplcdadong 发表于 2015-3-10 06:29
Hope this is what your boss wants:

多谢！多谢！多谢！

hplcdadong 发表于 2015-3-10 06:29
Hope this is what your boss wants:

您的代码管用，但是我老板要的不止是三个符号，其实我们有三十多个符号要清理，如下：

"~" "`" "!" "@" "#" "$" "%" "^" "&" "*" "(" ")" "-" "_" "+" "=" "[" "]" "{" "}" "\" "|" ";" ":" "’" " " """ "." "," "<" ">" "?" "/"

当我把这些全部写进do file的时候，就出问题了，是不是因为太多了（我用的是Stata MP）？是不是应该先把这些符号都写进一个macro里面，然后在foreach的时候调用那个macro就好了？如何编写呢？

期待您的答复！

If you have many things to clean, you'd better use the following new user-written command:

1. ssc install txttool, replace        //install the command
   
2. txttool abc, gen(abc_new)       //abc_new should be what you want

复制代码

hplcdadong 发表于 2015-3-11 08:59
If you have many things to clean, you'd better use the following new user-written command:

哦哦，txttool，又学习了，多谢多谢！

不过我找到之前出错的原因了，并不是因为符号太多了，而是因为双引号，例如

原始字符串：china?gdp+growth&rate"is"high
我想要的字符串：chinagdpgrowthrateishigh

按照您的代码，是没有问题的

1. foreach name in "&" "+" "?" {
   
2. replace abc=subinstr(abc,"`name'","",.)
   
3. }

复制代码

争对双引号，我去查了double quotation，写了下面这个代码

1. foreach name in "&" "+" "?" `"""' {
   
2. replace abc=subinstr(abc,"`name'","",.)
   
3. }

复制代码

Stata出错

1. too few quotes
   
2. r(132)

复制代码

我觉得自己没写错啊，到底是哪里错了？期待您的答复。

1. clear
   
2. input str60 x
   
3. "Ia+mthe?bes&t+yo&uarethe?best?theya+ret&h?ebest"
   
4. `"china?gdp+growth&rate"is"high"'
   
5. end
   
6. list
   
7. 
   
8. 
   
9. foreach name in "&" "+" "?" `"""' {
   
10.     replace x=subinstr(x,`"`name'"',"",.)
    
11. }
    
12. list

复制代码

1. . clear
   
2. 
   
3. . input str60 x
   
4. 
   
5.                                                                 x
   
6.   1. "Ia+mthe?bes&t+yo&uarethe?best?theya+ret&h?ebest"
   
7.   2. `"china?gdp+growth&rate"is"high"'
   
8.   3. end
   
9. 
   
10. . list
    
11. 
    
12.      +-------------------------------------------------+
    
13.      |                                               x |
    
14.      |-------------------------------------------------|
    
15.   1. | Ia+mthe?bes&t+yo&uarethe?best?theya+ret&h?ebest |
    
16.   2. |                   china?gdp+growth&rate"is"high |
    
17.      +-------------------------------------------------+
    
18. 
    
19. .
    
20. .
    
21. . foreach name in "&" "+" "?" `"""' {
    
22.   2.     replace x=subinstr(x,`"`name'"',"",.)
    
23.   3. }
    
24. (2 real changes made)
    
25. (2 real changes made)
    
26. (2 real changes made)
    
27. (1 real change made)
    
28. 
    
29. . list
    
30. 
    
31.      +---------------------------------------+
    
32.      |                                     x |
    
33.      |---------------------------------------|
    
34.   1. | Iamthebestyouarethebesttheyarethebest |
    
35.   2. |              chinagdpgrowthrateishigh |
    
36.      +---------------------------------------+

复制代码

引号还需要多加一对

蓝色 发表于 2015-3-11 16:23
引号还需要多加一对

非常感谢！到现在，我已经学会了foreach、在不同情况下用不同的引号，但我还是没有完全掌握，例如下面这种情况：

1. clear
   
2. 
   
3. input str5 name
   
4. "jack,"
   
5. "jack."
   
6. "jack`"
   
7. `"jack'"'
   
8. `"jack""'
   
9. end
   
10. list name
    
11. 
    
12. foreach x in "," "." "`" {
    
13. replace name=subinstr(name,"`x'","",.)
    
14. }
    
15. 
    
16. foreach y in `"'"' `"""' {
    
17. replace name=subinstr(name,`"`y'"',"",.)
    
18. }
    
19. 
    
20. list name

复制代码

我只能写2个foreach来完成任务，必须为单引号和双引号额外写一个foreach，我试了很久，都无法把这2个foreach合在一起，总会报错。那么到底有没有办法可以写到一起呢？我知道这是吹毛求疵的要求了，不过还是很好奇。

期待您的答复，谢谢！

有用，谢谢！

http://blog.sina.com.cn/s/blog_71e93c250100yd9s.html

replace name=subinstr(name," ","",.)

这个不错