DCL文本框不能多行显示？怎么办啊~~~~

77077

DCL文本框不能多行显示？怎么办啊~~~~
目前用个列表框来代替文本框。可是中文又遇到了麻烦~~~

2. ;分割较长文本,填到listbox,用于弥补DCL对话框editbox不能多行显示的缺陷。
   
3. ;分割中文时，请注意n用偶数，否则会出错。
   
4. (defun str-lst(str n / lst a)
   
5.   (setq lst '())
   
6. (while (> (strlen str) 0)
   
7.      (setq a (substr str 1 n)
   
8.            lst (cons a lst)
   
9.            str (substr str (1+ n))
   
10.          )
    
11.   )
    
12. (reverse lst)
    
13. )
    
14. 
    
15. ;测试1，成功！
    
16. (setq str "斐波那契数列也叫黄金分割数列，从第三项开始值为前两项之和")
    
17. (str-lst str 20)
    
18. ;测试2，失败！
    
19. (setq str "斐波那契数列也叫黄金分割数列,从第三项开始值为前两项之和")
    
20. (str-lst str 20)

;分割较长文本,填到listbox,用于弥补DCL对话框editbox不能多行显示的缺陷。<br /> ;分割中文时，请注意n用偶数，否则会出错。<br /> (defun str-lst(str n / lst a)<br />   (setq lst '())<br /> (while (> (strlen str) 0)<br />      (setq a (substr str 1 n)<br />            lst (cons a lst)<br />            str (substr str (1+ n))<br />          )<br />   )<br /> (reverse lst)<br /> )<br /> <br /> ;测试1，成功！<br /> (setq str "斐波那契数列也叫黄金分割数列，从第三项开始值为前两项之和")<br /> (str-lst str 20)<br /> ;测试2，失败！<br /> (setq str "斐波那契数列也叫黄金分割数列,从第三项开始值为前两项之和")<br /> (str-lst str 20)

AbnerXk

换行显示"\n"

ZZXXQQ

第二个测试通不过是因为中间有个半角逗号。

77077

ZZXXQQ 发表于 2014-9-2 20:35
第二个测试通不过是因为中间有个半角逗号。

测试时故意弄上去的.
z版主,如何修改啊~~~

77077

substr分割的时候,按字符算,中文算两个字符,
如果中间夹杂着英文或英文符号,就会把中文截成一半,怎么整啊~~~

77077

从梁大师哪里找到思路,先分割成单字,然后在组合!!~~
        (if (> (ascii (setq nn (substr str 1 1))) 160)
          (setq nn (substr str 1 2)
                  str (substr str 3)
                  )
          (setq str (substr str 2))
        )

77077

做个笔记,明天弄

2. (defun stringtolist (sss / a_data a_list)
   
3.   (setq acadversion (getvar "acadver"))
   
4.   (cond
   
5.     ((or
   
6.        (= 17.0 (atof (substr acadversion 1 4)))
   
7.        (and
   
8.          (= 17.2 (atof (substr acadversion 1 4)))
   
9.          (/= (ver) "Visual LISP 2009 (en)")
   
10.        )
    
11.      )
    
12.       (while (/= sss "")
    
13.         (setq a_data (logand 224 (ascii sss)))
    
14.         (if (> (ascii (setq nn (substr sss 1 1))) 160)
    
15.           (setq nn (substr sss 1 2)
    
16.                 sss (substr sss 3)
    
17.           )
    
18.           (setq sss (substr sss 2))
    
19.         )
    
20.         (setq a_list (append
    
21.                        a_list
    
22.                        (list nn)
    
23.                      )
    
24.         )
    
25.       )
    
26.     )
    
27.     (t
    
28.       (while (/= sss "")
    
29.         (setq a_data (logand 224 (ascii sss)))
    
30.         (if (or
    
31.               (= a_data 224)
    
32.               (= a_data 128)
    
33.             )
    
34.           (progn
    
35.             (setq a_list (append
    
36.                            a_list
    
37.                            (list (substr sss 1 2))
    
38.                          )
    
39.             )
    
40.             (setq sss (substr sss 3))
    
41.           )
    
42.           (progn
    
43.             (if (> (ascii (setq nn (substr sss 1 1))) 160)
    
44.               (setq nn (substr sss 1 2)
    
45.                     sss (substr sss 3)
    
46.               )
    
47.               (setq sss (substr sss 2))
    
48.             )
    
49.             (setq a_list (append
    
50.                            a_list
    
51.                            (list nn)
    
52.                          )
    
53.             )
    
54.           )
    
55.         )
    
56.       )
    
57.     )
    
58.   )
    
59.   a_list
    
60. )
    
61. (defun listtostring (lll / newstring)
    
62.   (setq newstring "")
    
63.   (while (/= lll nil)
    
64.     (setq newstring (strcat newstring (car lll)))
    
65.     (setq lll (cdr lll))
    
66.   )
    
67.   newstring
    
68. )

(defun stringtolist (sss / a_data a_list)<br />   (setq acadversion (getvar "acadver"))<br />   (cond<br />     ((or<br />        (= 17.0 (atof (substr acadversion 1 4)))<br />        (and<br />          (= 17.2 (atof (substr acadversion 1 4)))<br />          (/= (ver) "Visual LISP 2009 (en)")<br />        )<br />      )<br />       (while (/= sss "")<br />         (setq a_data (logand 224 (ascii sss)))<br />         (if (> (ascii (setq nn (substr sss 1 1))) 160)<br />           (setq nn (substr sss 1 2)<br />                 sss (substr sss 3)<br />           )<br />           (setq sss (substr sss 2))<br />         )<br />         (setq a_list (append<br />                        a_list<br />                        (list nn)<br />                      )<br />         )<br />       )<br />     )<br />     (t<br />       (while (/= sss "")<br />         (setq a_data (logand 224 (ascii sss)))<br />         (if (or<br />               (= a_data 224)<br />               (= a_data 128)<br />             )<br />           (progn<br />             (setq a_list (append<br />                            a_list<br />                            (list (substr sss 1 2))<br />                          )<br />             )<br />             (setq sss (substr sss 3))<br />           )<br />           (progn<br />             (if (> (ascii (setq nn (substr sss 1 1))) 160)<br />               (setq nn (substr sss 1 2)<br />                     sss (substr sss 3)<br />               )<br />               (setq sss (substr sss 2))<br />             )<br />             (setq a_list (append<br />                            a_list<br />                            (list nn)<br />                          )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   a_list<br /> )<br /> (defun listtostring (lll / newstring)<br />   (setq newstring "")<br />   (while (/= lll nil)<br />     (setq newstring (strcat newstring (car lll)))<br />     (setq lll (cdr lll))<br />   )<br />   newstring<br /> )