[功能] 倒置字符串 => "串符字置倒"

自贡黄明儒

;;[功能] 倒置字符串
;;示例(HH:StrReverse "明经cad");返回"dac经明"

1. (defun HH:StrReverse (stri / STR)  
   
2.   (setq str(VL-PRIN1-TO-STRING stri))
   
3.   (setq str (strcat "Dim ret \n ret=StrReverse(" str ") "))
   
4.   (or *wscript*
   
5.       (setq *wscript* (vlax-create-object "ScriptControl"))
   
6.   )
   
7.   (vlax-put *wscript* 'language "vbs")
   
8.   (vlax-invoke-method *wscript* 'ExecuteStatement str)
   
9.   (vlax-invoke-method *wscript* 'eval "ret")
   
10. )

(defun HH:StrReverse (stri / STR)  <br />   (setq str(VL-PRIN1-TO-STRING stri))<br />   (setq str (strcat "Dim ret \n ret=StrReverse(" str ") "))<br />   (or *wscript*<br />       (setq *wscript* (vlax-create-object "ScriptControl"))<br />   )<br />   (vlax-put *wscript* 'language "vbs")<br />   (vlax-invoke-method *wscript* 'ExecuteStatement str)<br />   (vlax-invoke-method *wscript* 'eval "ret")<br /> )

阿然

老黄，把你的字符串各函数整到一个贴里呗，也方便大伙查找

自贡黄明儒

阿然 发表于 2013-10-10 14:46
老黄，把你的字符串各函数整到一个贴里呗，也方便大伙查找

我也是试出一个贴一个，万能的方法还是正则表达式

springwillow

黄大师最近高产啊，第一页几乎都被你占领了。呵呵！

xujinhua

很好用的功能......能不能像三楼说的，放到一贴里...我慢慢学...

xiaxiang

黄老师，整理一下帖子吧，这样看帖好累的。。。

434939575

这个我还真不会。幸亏老大放马了。谢谢。！

20060510412

vlax-create-object
这个函数的返回值为nil，不能正常使用啊
win10 64位 cad2012