自贡黄明儒 发表于 2013-10-10 14:44:19

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

本帖最后由 自贡黄明儒 于 2013-10-10 15:02 编辑

;;[功能] 倒置字符串
;;示例(HH:StrReverse "明经cad");返回"dac经明"
(defun HH:StrReverse (stri / STR)
(setq str(VL-PRIN1-TO-STRING stri))
(setq str (strcat "Dim ret \n ret=StrReverse(" str ") "))
(or *wscript*
      (setq *wscript* (vlax-create-object "ScriptControl"))
)
(vlax-put *wscript* 'language "vbs")
(vlax-invoke-method *wscript* 'ExecuteStatement str)
(vlax-invoke-method *wscript* 'eval "ret")
)

阿然 发表于 2013-10-10 14:46:07

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

自贡黄明儒 发表于 2013-10-10 14:49:38

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

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

springwillow 发表于 2013-10-10 15:09:15

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

xujinhua 发表于 2013-10-10 17:43:33

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

xiaxiang 发表于 2013-10-10 22:10:41

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

434939575 发表于 2014-7-20 22:11:24

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

20060510412 发表于 2019-10-30 10:57:43

vlax-create-object
这个函数的返回值为nil，不能正常使用啊
win10 64位 cad2012
页: [1]
查看完整版本: [功能] 倒置字符串 => "串符字置倒"