不能收钱？

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun th-get-ldata (data / thdata lst)
   
5.   (t2-catch '(lambda ()
   
6.                (setq thdata (vlax-ldata-get "thdict" data))
   
7.                (setq lst (txt-str-split thdata "|"))
   
8.              )
   
9.   )
   
10. )
    
11. (defun th-put-ldata (data lst / str)
    
12.   (t2-catch '(lambda ()
    
13.                (setq str (th-str-unparse lst "|"))
    
14.                (vlax-ldata-put "thdict" data str)
    
15.              )
    
16.   )
    
17. )
    
18. (defun t2-get-ldata (data / thdata lst)
    
19.   (t2-catch '(lambda ()
    
20.                (setq thdata (vl-registry-read "HKEY_CURRENT_USER\\Software\\Autodesk\\THCAD"
    
21.                                               data
    
22.                             )
    
23.                )
    
24.                (setq lst (txt-str-split thdata "|"))
    
25.              )
    
26.   )
    
27. )
    
28. (defun t2-put-ldata (data lst / str)
    
29.   (t2-catch '(lambda ()
    
30.                (setq str (th-str-unparse lst "|"))
    
31.                (vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\THCAD"
    
32.                                   data str
    
33.                )
    
34.              )
    
35.   )
    
36. )
    
37. (defun txt-str-split (str x / lst n str-n xlen)
    
38.   (setq xlen (strlen x))
    
39.   (while (setq n (vl-string-search x str))
    
40.     (setq str-n (substr str 1 n))
    
41.     (if (/= str-n "")
    
42.       (setq lst (cons str-n lst))
    
43.     )
    
44.     (setq str (substr str (+ 1 xlen n)))
    
45.   )
    
46.   (if (/= str "")
    
47.     (setq lst (cons str lst))
    
48.   )
    
49.   (reverse lst)
    
50. )
    
51. (defun th-str-unparse (lst delimiter)
    
52.   (t2-catch '(lambda ()
    
53.                (apply
    
54.                  'strcat
    
55.                  (mapcar
    
56.                    '(lambda (x)
    
57.                       (strcat x delimiter)
    
58.                     )
    
59.                    lst
    
60.                  )
    
61.                )
    
62.              )
    
63.   )
    
64. )
    
65. (defun t2-catch (lambda-expression / catch:err)
    
66.   (setq catch:err (vl-catch-all-apply lambda-expression))
    
67.   (if (vl-catch-all-error-p catch:err)
    
68.     (prompt (strcat "\n" (vl-catch-all-error-message catch:err)
    
69.                     "\n执行表达式: " (vl-princ-to-string lambda-expression)
    
70.                     "时出错.\n\n"
    
71.             )
    
72.     )
    
73.     catch:err
    
74.   )
    
75. )
    
76. 
    
77.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun th-get-ldata (data / thdata lst)<br />   (t2-catch '(lambda ()<br />                (setq thdata (vlax-ldata-get "thdict" data))<br />                (setq lst (txt-str-split thdata "|"))<br />              )<br />   )<br /> )<br /> (defun th-put-ldata (data lst / str)<br />   (t2-catch '(lambda ()<br />                (setq str (th-str-unparse lst "|"))<br />                (vlax-ldata-put "thdict" data str)<br />              )<br />   )<br /> )<br /> (defun t2-get-ldata (data / thdata lst)<br />   (t2-catch '(lambda ()<br />                (setq thdata (vl-registry-read "HKEY_CURRENT_USER\\Software\\Autodesk\\THCAD"<br />                                               data<br />                             )<br />                )<br />                (setq lst (txt-str-split thdata "|"))<br />              )<br />   )<br /> )<br /> (defun t2-put-ldata (data lst / str)<br />   (t2-catch '(lambda ()<br />                (setq str (th-str-unparse lst "|"))<br />                (vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\THCAD"<br />                                   data str<br />                )<br />              )<br />   )<br /> )<br /> (defun txt-str-split (str x / lst n str-n xlen)<br />   (setq xlen (strlen x))<br />   (while (setq n (vl-string-search x str))<br />     (setq str-n (substr str 1 n))<br />     (if (/= str-n "")<br />       (setq lst (cons str-n lst))<br />     )<br />     (setq str (substr str (+ 1 xlen n)))<br />   )<br />   (if (/= str "")<br />     (setq lst (cons str lst))<br />   )<br />   (reverse lst)<br /> )<br /> (defun th-str-unparse (lst delimiter)<br />   (t2-catch '(lambda ()<br />                (apply<br />                  'strcat<br />                  (mapcar<br />                    '(lambda (x)<br />                       (strcat x delimiter)<br />                     )<br />                    lst<br />                  )<br />                )<br />              )<br />   )<br /> )<br /> (defun t2-catch (lambda-expression / catch:err)<br />   (setq catch:err (vl-catch-all-apply lambda-expression))<br />   (if (vl-catch-all-error-p catch:err)<br />     (prompt (strcat "\n" (vl-catch-all-error-message catch:err)<br />                     "\n执行表达式: " (vl-princ-to-string lambda-expression)<br />                     "时出错.\n\n"<br />             )<br />     )<br />     catch:err<br />   )<br /> )<br /> <br />   [/FONT]<br />

测试：

1. 
   
2.   [FONT=courier new]
   
3. 命令: !lst ("aeo" "wkai" "zml" "eachy" "xyp1964" "露水" "狂刀" "都是牛人" "oye" "晓东不管事"
   
4. "最近偶尔冒泡")
   
5. 
   
6. 命令: (t2-put-ldata "thdata" lst)
   
7. "aeo|wkai|zml|eachy|xyp1964|露水|狂刀|都是牛人|oye|晓东不管事|最近偶尔冒泡|"
   
8. 
   
9. 命令: (th-put-ldata "thdata" lst)
   
10. "aeo|wkai|zml|eachy|xyp1964|露水|狂刀|都是牛人|oye|晓东不管事|最近偶尔冒泡|"
    
11. 
    
12. 命令: (th-get-ldata "thdata")
    
13. ("aeo" "wkai" "zml" "eachy" "xyp1964" "露水" "狂刀" "都是牛人" "oye" "晓东不管事" "最近偶尔冒泡")
    
14. 
    
15. 命令: (t2-get-ldata "thdata")
    
16. ("aeo" "wkai" "zml" "eachy" "xyp1964" "露水" "狂刀" "都是牛人" "oye" "晓东不管事" "最近偶尔冒泡")
    
17. 
    
18.   [/FONT]
    

复制代码

Free-Lancer

Put-data 最好有个 Key，这样一个 Dict 下可以记录多个数据

taner

现在就是将多个数据存在表里，再转化为字符串。取出时再将字串转化为表的。

Free-Lancer

我的意思是

1. 
   
2. Thdict -> "key1" -> string1
   
3.        -> "key2" -> string2
   
4.        -> "key3" -> string3

复制代码

TYEEXDD

多谢二位老师，正需要用到词典存储数据，学习了。再请教一下，您这个方式储存的数据的大小有限制吗？我想用关联表的形式将我应用程序中的一些数据保存在图中，总表里有很多子表，数据量可能很大的，会有限制吗？有些资料说任意不限，最多可达2GB，您这个是不是也能这样呢？ 还有Free-Lancer 大侠说的 多个key 又如何实现呢？