利用字典去重复 scripting.dictionary

kurt1000 · 发表于 2016-12-31 13:28:36

本帖最后由 kurt1000 于 2016-12-31 13:44 编辑

看下黄老师的贴，VB中用过，Lisp中真的不会，黄老师这个还真是VB中的词典，厉害!

/db_自贡黄明儒_ · 发表于 2016-12-31 14:32:20

cabinsummer 发表于 2016-12-30 14:01

lisp没有数组的概念，而scripting.dictionary的keys是数组，所以可能用它在VBA和Lisp之间沟通。

st788796 · 发表于 2016-12-31 21:20:09

safearray 就是数组

kurt1000 · 发表于 2016-12-31 21:28:03

楼上黄老师提到的scripting.dictionary能在vb6和lisp之间通信吗？晓东有一个邮件提到VBA写入数据到字典，然后在lisp用字典读取数据，测试可行，但好像不是这种字典，那天我从明经中发给黄老师吧，晓东我电脑登陆不上

/db_自贡黄明儒_ · 发表于 2016-12-31 21:35:37

kurt1000 发表于 2016-12-31 21:28

你说的是词典吧，发上来大家学习一下。

/db_自贡黄明儒_ · 发表于 2016-12-31 21:40:48

st788796 发表于 2016-12-31 21:20

http://bbs.xdcad.net/thread-706184-1-1.html(defun w5 () (setq scr (vlax-create-object "ScriptControl")) (vlax-put Scr "language" "JScript") (vlax-invoke scr 'AddCode "function aa(bb){x=bb.split(',');return x;}") (setq str (strcat "aa(" "'12了,地'" ")")) (vlax-invoke scr 'eval str))

VBA中split返回的是数组，safearry-value也没有办法获取这个值。

00YF00 · 发表于 2017-6-1 16:52:07

好资料，学习学习

1121443108qaz · 发表于 2018-3-21 00:28:02

字典到底怎么用呢

xinxirong · 发表于 2018-3-21 07:16:37

感谢楼主的程序！这个相当实用

scnjlwb · 发表于 2018-3-21 08:05:44

谢谢分享！

liulisheng · 发表于 2018-3-21 08:48:32

支持一下我顶你

lijiao · 发表于 2018-3-21 11:24:18

看看有出什么高科技了

ntwison · 发表于 2018-4-20 18:42:29

好帖子不要藏，学习下

ngc · 发表于 2018-4-21 08:24:21

感谢分享，支持楼主，学习

zixuan203344 · 发表于 2018-4-21 09:23:34

向黄总学习！

账号		自动登录	找回密码
密码			立即注册

[每日一码] 利用字典去重复 scripting.dictionary

点评