大家一起写一个以汉字或英文单词为单位字符串函数吧

Lispboy

写一个汉字或英文的单词为单位的SUBSTR
比如：str= 晓东CAD对你有帮助吗？

(#substr str 1 1)--->晓
(#substr str 3 1)--->CAD   ---对英文连续的单词算一个
(#substr str 2 3)--->东CAD对

Love-Lisp

1. (defun #Substr (STR START LEN / STRLST STRLST1 E_STR HZ_STR RES)  (setq        strlst        (vl-string->list str)
   
2.         strlst1        '()
   
3.   )
   
4.   (while strlst
   
5.     (cond
   
6.       ((and (not hz_str)
   
7.             (> (car strlst) 159)
   
8.        )
   
9.        (setq e_str nil)
   
10.        (setq hz_str (list (car strlst)))
    
11.        (setq strlst (cdr strlst))
    
12.       )
    
13.       ((and hz_str
    
14.             (> (car strlst) 159)
    
15.        )
    
16.        (setq e_str nil)
    
17.        (setq hz_str (append hz_str (list (car strlst))))
    
18.        (setq strlst (cdr strlst))
    
19.        (setq strlst1 (append strlst1 (list hz_str))
    
20.              hz_str  nil
    
21.        )
    
22.       )
    
23.       ((< (car strlst) 159)
    
24.        (setq hz_str nil)
    
25.        (if e_str
    
26.          (setq e_str (append e_str (list (car strlst))))
    
27.          (setq e_str (list (car strlst)))
    
28.        )
    
29.        (setq strlst (cdr strlst))
    
30.        (if (or (> (car strlst) 159)
    
31.                (= strlst nil)
    
32.            )
    
33.          (if strlst1
    
34.            (setq strlst1 (append strlst1 (list e_str)))
    
35.            (setq strlst1 (list e_str))
    
36.          )
    
37.        )
    
38.       )
    
39.     )
    
40.   )
    
41.   (setq str (mapcar 'vl-list->string strlst1))
    
42.   (repeat (1- start) (setq str (cdr str)))
    
43.   (setq res "")
    
44.   (if len
    
45.     (while (and str (not (zerop len)))
    
46.       (setq res        (strcat res (car str))
    
47.             str        (cdr str)
    
48.             len        (1- len)
    
49.       )
    
50.     )
    
51.     (setq res (apply 'strcat str))
    
52.   )
    
53.   res
    
54. )

(defun #Substr (STR START LEN / STRLST STRLST1 E_STR HZ_STR RES)  (setq        strlst        (vl-string->list str)<br />         strlst1        '()<br />   )<br />   (while strlst<br />     (cond<br />       ((and (not hz_str)<br />             (> (car strlst) 159)<br />        )<br />        (setq e_str nil)<br />        (setq hz_str (list (car strlst)))<br />        (setq strlst (cdr strlst))<br />       )<br />       ((and hz_str<br />             (> (car strlst) 159)<br />        )<br />        (setq e_str nil)<br />        (setq hz_str (append hz_str (list (car strlst))))<br />        (setq strlst (cdr strlst))<br />        (setq strlst1 (append strlst1 (list hz_str))<br />              hz_str  nil<br />        )<br />       )<br />       ((< (car strlst) 159)<br />        (setq hz_str nil)<br />        (if e_str<br />          (setq e_str (append e_str (list (car strlst))))<br />          (setq e_str (list (car strlst)))<br />        )<br />        (setq strlst (cdr strlst))<br />        (if (or (> (car strlst) 159)<br />                (= strlst nil)<br />            )<br />          (if strlst1<br />            (setq strlst1 (append strlst1 (list e_str)))<br />            (setq strlst1 (list e_str))<br />          )<br />        )<br />       )<br />     )<br />   )<br />   (setq str (mapcar 'vl-list->string strlst1))<br />   (repeat (1- start) (setq str (cdr str)))<br />   (setq res "")<br />   (if len<br />     (while (and str (not (zerop len)))<br />       (setq res        (strcat res (car str))<br />             str        (cdr str)<br />             len        (1- len)<br />       )<br />     )<br />     (setq res (apply 'strcat str))<br />   )<br />   res<br /> )

wowan1314

我来支持你了！  这个我不会， 谢谢

Free-Lancer

能识别单词这不太可能，论坛以前倒是有个中西拆分，连续中文做一个词，连续西文是一个，但达不到认单词程度来自: Android客户端

Lispboy

Free-Lancer 发表于 2013-5-31 18:57
能识别单词这不太可能，论坛以前倒是有个中西拆分，连续中文做一个词，连续西文是一个，但达不到认单词程度

我还没敢想那么智能，那要涉及到中文分词，能汉字作为一个字符，连续的英文作为一个字符就够了，暂时。