请帮忙检查个程序

adc

(defun tt (str)
  (mapcar '(lambda (x)
         (while (vl-string-search x str)
           (setq str (vl-string-subst "" x str))
         )
       )
      '("(" "[" "{" "<" "（" "｛" "〔" "《" "「" "『" "〖" "【"
        ")" "]" "}" ">" "）" "｝" "〕" "》"    "」" "』" "〗" "】"
       )
  )str
)
功能是删所有括号，找不出问题在哪里，希望哪位帮忙看看，谢谢！

Andyhon

Command: (tt "from-([{<test-（｛〔《「『?【edcft-)]}>）｝〕》」』?】end")
"from-test-edcft-end"

so,得依您的实例来调试...

ZZXXQQ

可以更简单

1. (defun tt (str)
   
2. (foreach x
   
3.    '("(" "[" "{" "<" "（" "｛" "〔" "《" "「" "『" "〖" "【"
   
4.         ")" "]" "}" ">" "）" "｝" "〕" "》" "」" "』" "〗" "】"
   
5.    )
   
6.    (if (vl-string-search x str)
   
7.     (setq str (vl-string-subst "" x str))
   
8.    )
   
9. )
   
10. str
    
11. )
    

(defun tt (str)<br /> (foreach x <br />    '("(" "[" "{" "<" "（" "｛" "〔" "《" "「" "『" "〖" "【" <br />         ")" "]" "}" ">" "）" "｝" "〕" "》" "」" "』" "〗" "】" <br />    )<br />    (if (vl-string-search x str)<br />     (setq str (vl-string-subst "" x str))<br />    )<br /> )<br /> str <br /> )<br />

或:

1. (defun tt (str)
   
2. (foreach x
   
3.    '("(" "[" "{" "<" "（" "｛" "〔" "《" "「" "『" "〖" "【"
   
4.         ")" "]" "}" ">" "）" "｝" "〕" "》" "」" "』" "〗" "】"
   
5.    )
   
6.   (setq str (vl-string-subst "" x str))
   
7. )
   
8. str
   
9. )
   

(defun tt (str)<br /> (foreach x <br />    '("(" "[" "{" "<" "（" "｛" "〔" "《" "「" "『" "〖" "【" <br />         ")" "]" "}" ">" "）" "｝" "〕" "》" "」" "』" "〗" "】" <br />    )<br />   (setq str (vl-string-subst "" x str))<br /> )<br /> str <br /> )<br />

adc

ZZXXQQ 发表于 2012-2-5 09:16
可以更简单

或:

我这里怎么还有问题？

ZZXXQQ

3楼改了

Ccccccc

ZZXXQQ 发表于 2012-2-6 22:40
3楼改了

程序好像不能用啊

我还有梦想

括号使用错误。。。。。