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

本文轉載自查看原文 2017-09-23 22:57 1438 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"))

免責聲明！

本站轉載的文章為個人學習借鑒使用，本站對版權不負任何法律責任。如果侵犯了您的隱私權益，請聯系本站郵箱yoyou2525@163.com刪除。

猜您在找 返回指定的字符串首次出現的位置 php strpos返回字符串首次出現的位置 C語言strchr()函數：查找某字符在字符串中首次出現的位置 C語言字符串：查找子串首次出現的位置（下標） AutoLisp 字符串函數用c++語言編寫函數 int index(char *s,char * t)，返回字符串t在字符串s中出現的最左邊的位置，如果s中沒有與t匹配的子串，則返回-1。類似於索引的功能。查找字符串中特定字符串出現的位置，返回這個位置的索引獲取字符串中某個指定的子串出現的開始位置(CHARINDEX用法) php查找字符串首次出現的位置判斷字符串是否在另一個字符串中 php strpos() 查找字符串首次出現的位置【轉】