[求助]：怎么取这样的字符串

cqxt00

各位能否用程序取这样的字符串：
“TF1-1          塘坊村一社”
“QG-2   青杠镇塘坊村六社”
“G2                        国有”
用程序只取得   中文字部分   其它的可以不取
英文字符 与 中文字符 之间的空隔是不定的（随机性）
各中文字符长度不等。
小弟先谢过了

eachy

2. 
   
3. (vl-string-left-trim
   
4.   "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz- "
   
5.   string
   
6. )

<br /> (vl-string-left-trim<br />   "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz- "<br />   string<br /> )

cqxt00

eachy 老大
有点行不通
不过还是谢谢你
助人为乐！

eachy

最初由 cqxt00 发布
[B]eachy 老大
有点行不通
不过还是谢谢你
助人为乐！ [/B]

如何行不同？你的字串两端是中文引号？

2. 
   
3. (defun trimstr (string)
   
4.   (vl-string-trim
   
5.     "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz“”- "
   
6.     string
   
7.   )
   
8. )

<br /> (defun trimstr (string)<br />   (vl-string-trim<br />     "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz“”- "<br />     string<br />   )<br /> )

_$ (trimstr "“TF1-1 塘坊村一社”")
"塘坊村一社"
_$ (trimstr "“QG-2 青杠镇塘坊村六社”")
"青杠镇塘坊村六社"
_$ (trimstr "“G2 国有”")
"国有"
_$ (trimstr "G2 国有")
"国有"
_$ (trimstr "QG-2 青杠镇塘坊村六社")
"青杠镇塘坊村六社"
_$ (trimstr "TF1-1 塘坊村一社")
"塘坊村一社"
_$

雪山飞狐(lzh)

这样不行？
命令: (trimstr "“慢123慢“")
"慢123慢"

cqxt00

这个被 我搞定了上班的时候想到了
用计算空格的方法
首先得到第一个空格所在的位置，然后取掉前面的TF1-1部分，计算字符串长度n，再循环取空格
(setq i 1)
(while (= a " ")
()
)
(setq i(1+ i))
得到i的次数
再从i开始取（- n i）
就行了

不过在运行时有一个小问题我没有搞明白，写出的“塘坊村一社”变成了乱字符
但在CAD命令栏一步一步的运行没有一点问题，这得请教大哥们了？