利用VBS分离字符串以及计算公式

wuqiu1986

我是在晓东CAD家园看到的一篇帖子，下面两个函数第一个算是照搬别人的，稍微改了一点；第二个是自己琢磨的。
我还是附上网址，不是做广告，只是尊重他人成果，我认识明经比晓东CAD时间长。。。
http://bbs.xdcad.net/thread-670090-1-1.html（8楼）
1、分离字符串

2. ;;;string 要分离的字符串
   
3. ;;;str 分隔符
   
4. ;;;测试：(str-split "明经,CAD" ",")->("明经" "CAD") (str-split "明经 CAD " " ")->("明经" "CAD")
   
5. ;;;(str-split "明经123CAD123测试" "123")->("明经" "CAD" "测试")
   
6. (defun str-split (string str / vbs ret **ScriptControl**)
   
7.   (setq **ScriptControl** (vlax-create-object "ScriptControl"))
   
8.   (vlax-put **ScriptControl** "Language" "VBS")
   
9.   (setq  vbs
   
10.    (strcat "Dim ret\n"      "s = ""
    
11.      string        ""\nsn = ""
    
12.      str        ""\nret = Split(s,sn)"
    
13.     )
    
14.   )
    
15.   (vlax-invoke **ScriptControl** 'ExecuteStatement vbs)
    
16.   (setq ret (vlax-invoke **ScriptControl** 'eval "ret"))
    
17.   (if (not (vlax-object-released-p **ScriptControl**))
    
18.     (vlax-release-object **ScriptControl**)
    
19.   )
    
20.   (vl-remove "" ret)
    
21. )

;;;string 要分离的字符串<br /> ;;;str 分隔符<br /> ;;;测试：(str-split "明经,CAD" ",")->("明经" "CAD") (str-split "明经 CAD " " ")->("明经" "CAD")<br /> ;;;(str-split "明经123CAD123测试" "123")->("明经" "CAD" "测试") <br /> (defun str-split (string str / vbs ret **ScriptControl**)<br />   (setq **ScriptControl** (vlax-create-object "ScriptControl"))<br />   (vlax-put **ScriptControl** "Language" "VBS")<br />   (setq  vbs<br />    (strcat "Dim ret\n"      "s = ""<br />      string        ""\nsn = ""<br />      str        ""\nret = Split(s,sn)"<br />     )<br />   )<br />   (vlax-invoke **ScriptControl** 'ExecuteStatement vbs)<br />   (setq ret (vlax-invoke **ScriptControl** 'eval "ret"))<br />   (if (not (vlax-object-released-p **ScriptControl**))<br />     (vlax-release-object **ScriptControl**)<br />   )<br />   (vl-remove "" ret)<br /> )

2、计算公式

2. ;;;arguments 包含参数的表
   
3. ;;;expression 表达式，以字符串形式表达
   
4. ;;;测试：(gruel:calculate '("x=2" "y=3" "z=100") "(x+y)*2/z")->0.1
   
5. ;;;(gruel:calculate '("x=2" "y=3" "z=3") "(x+y)^z")->125.0
   
6. (defun gruel:calculate
   
7.        (arguments expression / str **ScriptControl** ret)
   
8.   (setq str "dim ret\n")
   
9.   (foreach x arguments
   
10.     (setq str (strcat str x "\n"))
    
11.   )
    
12.   (setq str (strcat str "ret=" expression))
    
13.   (setq **ScriptControl** (vlax-create-object "ScriptControl"))
    
14.   (vlax-put **ScriptControl** "Language" "VBS")
    
15.   (vlax-invoke **ScriptControl** 'ExecuteStatement str)
    
16.   (setq ret (vlax-invoke **ScriptControl** 'eval "ret"))
    
17.   (if (not (vlax-object-released-p **ScriptControl**))
    
18.     (vlax-release-object **ScriptControl**)
    
19.   )
    
20.   ret
    
21. )

;;;arguments 包含参数的表<br /> ;;;expression 表达式，以字符串形式表达<br /> ;;;测试：(gruel:calculate '("x=2" "y=3" "z=100") "(x+y)*2/z")->0.1<br /> ;;;(gruel:calculate '("x=2" "y=3" "z=3") "(x+y)^z")->125.0<br /> (defun gruel:calculate<br />        (arguments expression / str **ScriptControl** ret)<br />   (setq str "dim ret\n")<br />   (foreach x arguments<br />     (setq str (strcat str x "\n"))<br />   )<br />   (setq str (strcat str "ret=" expression))<br />   (setq **ScriptControl** (vlax-create-object "ScriptControl"))<br />   (vlax-put **ScriptControl** "Language" "VBS")<br />   (vlax-invoke **ScriptControl** 'ExecuteStatement str)<br />   (setq ret (vlax-invoke **ScriptControl** 'eval "ret"))<br />   (if (not (vlax-object-released-p **ScriptControl**))<br />     (vlax-release-object **ScriptControl**)<br />   )<br />   ret<br /> )

清风明月名字

谢谢楼主的分享！很有用啊。

自贡黄明儒

你效率很高嘛，st788796才贴出来，你就写出了gruel:calculate
好程序，顶

crtrccrt

一个字

很好

自贡黄明儒

很想知道你是从哪儿看到ScriptControl应用的，能否把这本书提供给大家.

wuqiu1986

自贡黄明儒 发表于 2013-8-13 09:47
很想知道你是从哪儿看到ScriptControl应用的，能否把这本书提供给大家.

我也只是看到别人用，觉得有点意思，自己百度搜索一些资料看了看

我爱lisp

用这个适合改写加密程序，

ynhh

  太好了，但建议改为(gruel:calculate '("2" "3" "3") "(x+y)^z")->125.0，省去X=之类的字就更精简了哈

dcl1214

支持！！！！高版本cad会报错的问题需要解决一下