strparse函数不支持汉字目录
 

strparse函数不支持汉字目录
www.dimcax.com
strparse函数不支持汉字目录
(defun strparse (str delimiter / searchstr stringlen return n char)
(setq searchstr str)
(setq stringlen (strlen searchstr))
(setq return '())
(while (> stringlen 0)
(setq n 1)
(setq char (substr searchstr 1 1))
(while (and (/= char delimiter) (/= char ""))
(setq n (1+ n))
(setq char (substr searchstr n 1))
) ;_ end of while
(setq return (cons (substr searchstr 1 (1- n)) return))
(setq searchstr (substr searchstr (1+ n) stringlen))
(setq stringlen (strlen searchstr))
) ;_ end of while
(reverse return)
)
经测试strparse函数不支持带有汉字的目录，如何判断字串中有汉字呢？
d