分割字符串，错在什么地方？（Lisp调用VBA函数）

aeo

又搜到：

1. 
   
2. 确定使用最新版的ScriptControl，确定
   
3. 以管理员身份运行
   
4. 以XP兼容模式运行
   
5. 
   
6. 在64位Windows下：
   
7. 64位exe和dll在目录c:\windows\system32目录下；
   
8. 32位exe和dll在目录c:\windows\syswow64目录下；
   
9. 所以要注意：
   
10.     在win64位系统下注册32位ocx或dll需要将32位ocx或dll拷贝到c:\windows\syswow64\目录下。
    
11.     且注册要用c:\windows\syswow64\regsvr32 xxxxxxx.ocx或dll
    
12. 
    

复制代码

我没64位的机器，不知道是不是真的。看着好像可以

/db_自贡黄明儒_

aeo 发表于 2016-11-21 14:30

我搜到的解决办法如http://bbs.xdcad.net/thread-706702-1-1.html 6楼，但lisp怎么写还没有试过

cabinsummer

64位的机器和32位的大不同。估计我那个VLISP控制IE网页的程序也是这个原因

xinxirong

aeo 发表于 2016-11-19 18:49

版主这么烂的代码收费也太市侩了，调用了N+1次控件，效率非常低下。其实只要调用 一次就够了，生成字符串后用eval得到lisp列表就OK

/db_自贡黄明儒_

xinxirong 发表于 2017-1-4 14:20

我认为发源码的都是好同志，好与烂是相对的。
你的代码呢？在什么地方？

Lisphk

xinxirong 发表于 2017-1-4 14:20

是啊，把你修改的代码贴上来和大家分享吧

xinxirong

方法我都说了，还要我把代码给你写好。好吧，为你们的懒买单吧。
[sell=10] [/sell]

Lisphk

xinxirong 发表于 2017-1-4 17:40

大师，怎么变成图片了，不好拷贝啊，给大家文字的吧。

aeo

xinxirong 发表于 2017-1-4 14:20

lisp直接写，也就几行代码而已。

他非得用这个控件，谁会用这控件去写那样的功能

aeo

xinxirong 发表于 2017-1-4 17:40

况且，你加了一堆的引号，原文字里面本身就有引号怎么办。更不要说其他特殊符号。
等你在那一堆里面判断清楚，大概比lisp直接写要代码多很多了吧

xpyjc

新的一年，好好学习天天向上。各位万事顺心！

/db_自贡黄明儒_

aeo 发表于 2017-1-7 12:06

这个代码很有意思的呀，如何使用VB的自定义函数，只不过是JScript如果是VBScript就更好了。你的代码也不错，提供了一种如何处理VB中的数组的方法。

/db_自贡黄明儒_

aeo 发表于 2016-11-19 20:05

您的成功，是我的动力

1. ;;http://bbs.xdcad.net/thread-706184-1-1.html by aeo
   
2. ;;(Split1 "滋S味C滋D味C如" "味C") => ("滋S" "滋D" "如")
   
3. ;;(Split1 "滋S味C 滋D味C如" "") => ("滋" "S" "味" "C" " " "滋" "D" "味" "C" "如")
   
4. (defun Split1 (str deli / A FUNC LST N STR1)
   
5.   (or *wscript*
   
6.       (setq *wscript* (vlax-create-object "ScriptControl"))
   
7.   )
   
8.   (vlax-put *wscript* "language" "JScript")
   
9.   (setq func (strcat "function aa(bb){x=bb.split("  (VL-PRIN1-TO-STRING deli) ");return x.length;}"))
   
10.   (vlax-invoke *wscript* 'AddCode func)
    
11.   (setq str1 (strcat "aa(\"" str "\")"))
    
12.   (setq n (vlax-invoke *wscript* 'eval str1))
    
13.   (repeat n
    
14.     (setq n (1- n))
    
15.     (setq func (strcat "function aa(bb){x=bb.split(" (VL-PRIN1-TO-STRING deli) ");return x[" (VL-PRIN1-TO-STRING n) "];}"))
    
16.     (vlax-invoke *wscript* 'AddCode func)
    
17.     (setq str1 (strcat "aa(\"" str "\")"))
    
18.     (setq a (vlax-invoke *wscript* 'eval str1))   
    
19.     (setq lst (cons a lst))
    
20.   )
    
21. )
    
22. ;;(Split2 "滋S味C滋D味C如" "味C") => ("滋S" "滋D" "如")
    
23. ;;(Split2 "滋S味C 滋D味C如" " ")出错
    
24. (defun Split2 (str deli /  FUNC STR1)
    
25.   (or *wscript*
    
26.       (setq *wscript* (vlax-create-object "ScriptControl"))
    
27.   )
    
28.   (vlax-put *wscript* 'language "vbs")
    
29.   (setq func "function aa(str , deli) \n aa = Split(str,deli,-1,1)\n End Function")
    
30.   (vlax-invoke *wscript* 'AddCode func)
    
31.   (setq str1 (strcat "aa(" (VL-PRIN1-TO-STRING str) "," (VL-PRIN1-TO-STRING deli) ")"))
    
32.   (vlax-invoke *wscript* 'eval str1)
    
33. )
    

;;<a href=\"http://bbs.xdcad.net/thread-706184-1-1.html\" target=\"_blank\">http://bbs.xdcad.net/thread-706184-1-1.html</a> by aeo<br /> ;;(Split1 "滋S味C滋D味C如" "味C") => ("滋S" "滋D" "如")<br /> ;;(Split1 "滋S味C 滋D味C如" "") => ("滋" "S" "味" "C" " " "滋" "D" "味" "C" "如")<br /> (defun Split1 (str deli / A FUNC LST N STR1)<br />   (or *wscript*<br />       (setq *wscript* (vlax-create-object "ScriptControl"))<br />   )<br />   (vlax-put *wscript* "language" "JScript")<br />   (setq func (strcat "function aa(bb){x=bb.split("  (VL-PRIN1-TO-STRING deli) ");return x.length;}"))<br />   (vlax-invoke *wscript* 'AddCode func)<br />   (setq str1 (strcat "aa(\"" str "\")"))<br />   (setq n (vlax-invoke *wscript* 'eval str1))<br />   (repeat n<br />     (setq n (1- n))<br />     (setq func (strcat "function aa(bb){x=bb.split(" (VL-PRIN1-TO-STRING deli) ");return x[" (VL-PRIN1-TO-STRING n) "];}"))<br />     (vlax-invoke *wscript* 'AddCode func)<br />     (setq str1 (strcat "aa(\"" str "\")"))<br />     (setq a (vlax-invoke *wscript* 'eval str1))    <br />     (setq lst (cons a lst))<br />   )<br /> )<br /> ;;(Split2 "滋S味C滋D味C如" "味C") => ("滋S" "滋D" "如")<br /> ;;(Split2 "滋S味C 滋D味C如" " ")出错<br /> (defun Split2 (str deli /  FUNC STR1)<br />   (or *wscript*<br />       (setq *wscript* (vlax-create-object "ScriptControl"))<br />   )<br />   (vlax-put *wscript* 'language "vbs")<br />   (setq func "function aa(str , deli) \n aa = Split(str,deli,-1,1)\n End Function")<br />   (vlax-invoke *wscript* 'AddCode func)<br />   (setq str1 (strcat "aa(" (VL-PRIN1-TO-STRING str) "," (VL-PRIN1-TO-STRING deli) ")"))<br />   (vlax-invoke *wscript* 'eval str1)<br /> )<br />