[求助]:[0514]文字断行程序问题?

xyz518mm

[求助]:[0514]文字断行程序问题?
我想要写一个单行文字可以切断分开的程序
但有个问题在於文字内容中若有中文字,会切出奇怪的代码来.
请教该怎样让程序可以检查出切断的部分,
调整为一个完整的中文字呢?

例如: 选取文字为=> "完成后的图面"
(setq p:es1 (entsel "\n 选取文字:"))
(setq p:eg1 (entget (car p:es1)))
(setq p:1   (cdr (assoc 1 p:eg1)))
(setq p:len (strlen p:1))

;使用时切点选到
(setq p:1:f (substr p:1 3))
回传 "成后的图面" [正确]

(setq p:1:f (substr p:1 4))
回传 "走嶊犒洐? [不正确]

此不正确就是我的问题所在.
烦请个位高手可以解答一下
谢谢~

eachy

一个汉字等于两个西文字符，知道这个就要根据是否为中文进行偏移指针

_$ (strlen "晓东空间")
8
_$ (substr "晓东空间" 1 2)
"晓"
_$ (substr "晓东空间" 3 2)
"东"
_$ (substr "晓东空间" 5 2)
"空"
_$ (substr "晓东空间" 7)
"间"
_$ (vl-string->list "晓东空间")
(207 254 182 171 191 213 188 228)
_$

xyz518mm

那假如本文中有中文又有英文及数字标点等字元,
那又该怎样判断处理呢?
如:"晓东空间=XDCAD=0060514"

eachy

最初由 xyz518mm 发布
[B]那假如本文中有中文又有英文及数字标点等字元,
那又该怎样判断处理呢?
如:"晓东空间=XDCAD=0060514" [/B]

到 函数库 论坛去找“中西拆分”函数

xyz518mm

谢谢版主的解答
不知道版主说的是不是这函数呢?

2. 
   
3. ;;中西文拆分 By Eachy
   
4. (defun yb:string_split (str / strlst strlst1 hz_str e_str)
   
5.   (setq strlst (vl-string->list str)
   
6. strlst1 '()
   
7.   )
   
8.   (while strlst
   
9.     (cond
   
10.       ((> (car strlst) 159)
    
11.        (setq e_str nil)
    
12.        (if hz_str
    
13. (setq hz_str (append (list (car strlst)) hz_str))
    
14. (setq hz_str (list (car strlst)))
    
15.        )
    
16.        (setq strlst (cdr strlst))
    
17.        (if (or (< (car strlst) 159)
    
18.        (= strlst "")
    
19.    )
    
20. (if strlst1
    
21.    (setq strlst1 (append strlst1 (list hz_str)))
    
22.    (setq strlst1 (list hz_str))
    
23. )
    
24.        )
    
25.       )
    
26.       ((< (car strlst) 159)
    
27.        (setq hz_str nil)
    
28.        (if e_str
    
29. (setq e_str (append (list (car strlst)) e_str))
    
30. (setq e_str (list (car strlst)))
    
31.        )
    
32.        (setq strlst (cdr strlst))
    
33.        (if (or (> (car strlst) 159)
    
34.        (= strlst "")
    
35.    )
    
36. (if strlst1
    
37.    (setq strlst1 (append strlst1 (list e_str)))
    
38.    (setq strlst1 (list e_str))
    
39. )
    
40.        )
    
41.       )
    
42.     )
    
43.   )
    
44.   (mapcar 'vl-list->string (mapcar 'reverse strlst1))
    
45. )

<br /> ;;中西文拆分 By Eachy<br /> (defun yb:string_split (str / strlst strlst1 hz_str e_str)<br />   (setq strlst (vl-string->list str)<br /> strlst1 '()<br />   )<br />   (while strlst<br />     (cond<br />       ((> (car strlst) 159)<br />        (setq e_str nil)<br />        (if hz_str<br /> (setq hz_str (append (list (car strlst)) hz_str))<br /> (setq hz_str (list (car strlst)))<br />        )<br />        (setq strlst (cdr strlst))<br />        (if (or (< (car strlst) 159)<br />        (= strlst "")<br />    )<br /> (if strlst1<br />    (setq strlst1 (append strlst1 (list hz_str)))<br />    (setq strlst1 (list hz_str))<br /> )<br />        )<br />       )<br />       ((< (car strlst) 159)<br />        (setq hz_str nil)<br />        (if e_str<br /> (setq e_str (append (list (car strlst)) e_str))<br /> (setq e_str (list (car strlst)))<br />        )<br />        (setq strlst (cdr strlst))<br />        (if (or (> (car strlst) 159)<br />        (= strlst "")<br />    )<br /> (if strlst1<br />    (setq strlst1 (append strlst1 (list e_str)))<br />    (setq strlst1 (list e_str))<br /> )<br />        )<br />       )<br />     )<br />   )<br />   (mapcar 'vl-list->string (mapcar 'reverse strlst1))<br /> )

eachy

是这个，但贴的函数有错误。你应该去研究下晓东工具箱中的“文字断开”类中用到函数的思路。