[源码] 最快的字串分割方法

admin

(defun $zi-chuan-fen-ge$ (str fgf / jg)
          ;字符串分割
  (if (and str (= (type str) 'str) fgf (= (type fgf) 'str))
    (progn
      (setq str (vl-prin1-to-string str))
      (while (wcmatch str (STRCAT "[,*`" FGF "*,]"))
  (setq str (vl-string-subst "\"\"" fgf str))
      )
      (setq jg (read (strcat "(" str ")")))
    )
  )
  jg
)

admin

3. (defun $zi-chuan-fen-ge$ (str fgf / jg)
4.                                         ;字符串分割
5.   (if (and str (= (type str) 'str) fgf (= (type fgf) 'str))
6.     (progn
7.       (setq str (vl-prin1-to-string str))
8.       (while (wcmatch str (STRCAT "[,*`" FGF "*,]"))
9.         (setq str (vl-string-subst """" fgf str))
10.       )
11.       (setq jg (read (strcat "(" str ")")))
12.     )
13.   )
14.   jg
15. )
17. (defun syz-zi-chuan-fen-ge (str fgf)
18.                                         ;(setq fgf "明经")
19.   (if (and str (= (type str) 'str) fgf (= (type fgf) 'str))
20.     (progn
21.       (setq i 1
22.             k 1
23.       )
24.       (setq jg nil)
25.       (while (< i (+ 1 (- (strlen str) (strlen fgf))))
27.         (setq str2 (substr str i (strlen fgf)))
28.         (if (equal str2 fgf)
29.           (progn
31.             (setq jg (append jg (list (substr str k (- i k)))))
32.             (setq k (+ i (strlen fgf)))
33.             (setq i (+ i (strlen fgf)))
34.           )
36.           (setq i (+ 1 i))
37.         )
39.       )
40.     )
41.   )
42. )
43. (setq str "s")
44. (setq j 0)
45. (repeat        6000
46.   (setq        str (strcat str
47.                     "测试字符串1234567阿布炒大白菜的abcd"
48.                     (itoa j)
49.                     "明经"
50.             )
51.   )
52.   (setq j (+ 1 j))
53. )
54. (princ (strlen str))
55. (setq t0 (getvar "TDUSRTIMER"))
56. (syz-zi-chuan-fen-ge str "明经")
57.                                         ;($zi-chuan-fen-ge$ str "明经")
58. (princ "\n程序共用时")
59. (princ (* (- (getvar "TDUSRTIMER") t0) 86400))
60. (princ "秒")
61. (princ)

复制代码