[求助]：寻找某个函数

xbx7920

（VL-STRING-SEARCH）函数可以返回子字符串在字符串内
的开始位置，但是只能在CAD2000中运用，在R14中有与它
功能相似的函数吗？谢谢！

zhynt

用lsp实现的方法：

2. 
   
3. (defun string_find (string str / n m str_1 string str)
   
4.   (setq n (strlen string))
   
5.   (setq m 0)
   
6.   (while (/= m n)
   
7.     (setq m (1+ m))
   
8.     (setq str_1 (substr string m 1))
   
9.     (if        (= str_1 str)
   
10.       (setq str_n m)
    
11.     )
    
12.   )
    
13.   str_n
    
14. )
    

<br /> (defun string_find (string str / n m str_1 string str)<br />   (setq n (strlen string))<br />   (setq m 0)<br />   (while (/= m n)<br />     (setq m (1+ m))<br />     (setq str_1 (substr string m 1))<br />     (if        (= str_1 str)<br />       (setq str_n m)<br />     )<br />   )<br />   str_n<br /> )<br />

不过如果用来判断汉字就比较复杂，如果是汉字和英文混排就更复杂啦。

xbx7920

实际上我发这个帖子的真正目的是想断开大量具有相同子字符的文字。我还发了一个帖子，名字是“怎样断开单行文字”。你可以搜索一下。有个网友给我发了一个解决问题的LISP，但是只能在CAD2000里面运用，虽然能在2000里面修改后再把文件存为R14的格式，曲线救国，但是总觉得有点别扭。你有更好的方法吗？

zhynt

晓东工具箱中有一个函数：
xdrx_string_tok
功    能：将由给定分割字符串分割的字符串组成表，若是"",忽略

调用格式：(xdrx_string_tok <字符串> <分割字符串>)

返 回 值：字符串表

示    例：(xdrx_string_tok "abc;;def;;efg" ";;")=("abc" "def" "efg")
          (xdrx_string_tok "abc;;def;;efg" ";")=("abc" "def" "efg")
          (xdrx_string_tok "abcddefgddzdf" "d")=("abc" "efg" "z" "f")
          (xdrx_string_tok "abcddefgddzdf" "dd")=("abc" "efg" "z" "f")
          (xdrx_string_tok ",1,2" ",")=("1" "2) ;前面的""忽略
          (xdrx_string_tok ",1,2,,,3,")=("1" "2" "3") ;;""忽略

而且xd工具箱可以在R14中用哦。
加载xdrx_api14.arx

eachy

一些字串处理函数

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.autolisp.mapcar.net/strings.html">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码