[原创] ！将vbscript移植到lisp！

无痕

xxvbs升级到第二版.

版本: v2 完善数组返回值.完善对wscript. 的判断 . ret支持表,字符,符号格式.

请看第1,2楼更新内容.

xxjs v1版本(支持jscript已经出来了,还再调试一下)

js版本的改写比我想像中的要麻烦一点.主要是: js的数组和vbs的数组不一样.更像vl的安全数组.

无痕

不好意思,v2版本的数组返回值处理函数对多维数组还是有点问题.v2.2版本解决了.

更新到v2.2版本

ivde

2. 楼主讲解下如何取得返回值吧，参数传递是VBS Lisp 直接头痛的问题，谢谢
3. 下面的返回String，多维数组如何处理？
4.   (setq    *wsc (vla-GetInterfaceObject
5.            (vlax-get-acad-object)
6.            "ScriptControl"
7.          )
8.   )
9.   (vlax-put-property *wsc "language" "vbs")
10.   (vlax-invoke
11.     *wsc
12.     'ExecuteStatement
13.     "Function   test() 
14.        Dim ss, re, rv
15.        ss = inputbox("将两个连续字符替换为一个，输入测试字符:")
16.        Set re = New RegExp
17.        re.Pattern = "(.+)\\1"
18.        re.Global = True
19.        re.IgnoreCase = True
20.        re.MultiLine = True
21.        rv = re.Replace(ss,"$1")
22.        test = rv 
23.   End   Function"
24.   )
25.   (vlax-invoke *wsc 'eval "test")

楼主讲解下如何取得返回值吧，参数传递是VBS Lisp 直接头痛的问题，谢谢 下面的返回String，多维数组如何处理？   (setq    *wsc (vla-GetInterfaceObject            (vlax-get-acad-object)            "ScriptControl"          )   )   (vlax-put-property *wsc "language" "vbs")   (vlax-invoke     *wsc     'ExecuteStatement     "Function   test()         Dim ss, re, rv        ss = inputbox("将两个连续字符替换为一个，输入测试字符:")        Set re = New RegExp        re.Pattern = "(.+)\\1"        re.Global = True        re.IgnoreCase = True        re.MultiLine = True        rv = re.Replace(ss,"$1")        test = rv    End   Function"   )   (vlax-invoke *wsc 'eval "test")

龙龙仔

(setq STR
       "
          Function   GetValue()  
          Dim   arrX(3 , 3 , 2)
          Dim   i,j,k,ans1
            For   i = 0 To 3  
               For j = 0 To 3
                  For k = 0 To 2
                     arrX (i , j , k) = i * j + k
                  Next
               Next
          Next  
          GetValue = arrX 
  End   Function
  For Each present In GetValue
  ans=ans & \" \" & present
 Next
"
)
(XXVBS STR "ans")
;;返回: " 0 0 0 0 0 1 2 3 0 2 4 6 0 3 6 9 1 1 1 1 1 2 3 4 1 3 5 7 1 4 7 10 2 2 2 2 2 3 4 5 2 4 6 8 2 5 8 11"
;|
有那麼複雜嗎?
" 0 0 0 0 0 1 2 3 0 2 4 6 0 3 6 9
  1 1 1 1 1 2 3 4 1 3 5 7 1 4 7 10
  2 2 2 2 2 3 4 5 2 4 6 8 2 5 8 11"
  |;

狂刀无痕

为保持返回值的数据类型，我用了一个递归函数来处理。

分别取各数组项，如果子项是表，递归处理。

ivde

函数形式唯一的不足就是 string 的长度受 AuotLisp 的限制，不能运行太长的 VBS，解决的方法是用读文件形式

i-Stone

VBS返回值是如何传递给LISP变量的?能否指点一二

无痕

VBS返回值是如何传递给LISP变量的?能否指点一二

没有传递,不是vb->lisp. 直接用(vla-eval 就可以返回啊

无痕

将jscript移植到lisp

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=62386

oyxx1023

版主什么时候发布源码.