AutoLisp 返回字符串中某一子串首次出现的位置的函数

 1 ;返回字符串中某一子串首次出现的位置
 2 (defun my_strstr(mstr zstr / retu)
 3     (setq mstr_l (strlen mstr) zstr_l (strlen zstr))
 4     (if (<= zstr_l mstr_l)
 5         ;主字符串长度大于或等于子字符长度
 6         (progn 
 7             (setq i 1)
 8             (setq tc_w1 T) ;退出循环时使用
 9             (setq ppqk nil) ;表示匹配情况
10             (while (and tc_w1 (<= i (+ 1 (- mstr_l zstr_l))))
11                 (setq j 1)
12                 (setq tc_w2 T)  ;退出循环时使用
13 
14                 ;对子串的每一个字符逐一比较
15                 (while (and tc_w2 (<= j zstr_l))
16                     (if (= (substr mstr (+ i (- j 1)) 1) (substr zstr j 1))
17                         (setq j (+ j 1))
18                         (setq tc_w2 nil)
19                     
20                     )
21                 )
22                 (if (= j (+ 1 zstr_l))
23                     (progn (setq tc_w1 nil ppqk i))
24                     (setq i (+ 1 i))
25                 )
26             
27             )
28             (setq retu ppqk)
29         
30         )
31         
32         ;否则
33         (setq retu nil)
34     
35     )
36     
37 )
38 
39 
40 (print (strstr "ABCDEFG" "EFG"))