StrParse函数不支持汉字目录

wangph

(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函数不支持带有汉字的目录，如何判断字串中有汉字呢？

唐树贺

(defun strparse (Str / SearchStr StringLen return n lenstr)
        (setq SearchStr Str)
        (setq StringLen (strlen SearchStr))
        (setq return '())
        (setq lenstr 0)
        (while (and (> StringLen 0) (/= lenstr stringlen))
                (setq n 1)
                (setq lenstr (strlen searchstr))
                (while (and (/= (substr SearchStr n 1) ",") (< n stringlen))
                        (setq n (1+ n))
                )
                (if (< n stringlen)
                        (progn
                                (setq return (cons (substr searchstr 1 (1- n)) return))
                                (setq SearchStr (substr SearchStr (1+ n) StringLen))
                                (setq StringLen (strlen SearchStr))
                        ))
               
        ) ;_ end of while
        (if (equal searchstr ",") (setq return (cons "" return)) (setq return (cons (substr searchstr 1) return)))
        (reverse return)
)