查找与替换函数 Replace

/db_自贡黄明儒_ · 发表于 2016-12-15 13:46:53

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 /db_自贡黄明儒_ 于 2016-12-15 14:17 编辑

;;成功
(defun C:w2 (/ SCR)
  (or *scr*
      (setq *scr* (vlax-create-object "MSScriptControl.ScriptControl.1"))
  )
  (vlax-put *scr* "language" "vbs")
  (vlax-invoke
    *scr*
    'ExecuteStatement
    "x = Replace(5.5, \".\", \"-\")"
  )
  (setq str(vlax-invoke *scr* 'eval "x"))
;;;  (vlax-release-object *scr*)
)

;;成功
(defun w3 (str old New)
  (or *scr*
      (setq *scr* (vlax-create-object "MSScriptControl.ScriptControl.1"))
  )
  (vlax-put *scr* "language" "vbs")
  (vlax-invoke
    *scr*
    'ExecuteStatement
    (strcat "x = Replace(" str ",\"" old "\",\"" new "\")")
  )
  (vlax-invoke *scr* 'eval "x")
)
;;;;;示例==>Command: w3 "5-5"
(defun C:w3 ()  
  (w3 "5.5" "." "-")
)

上面的函数虽然可以运行，但觉得还是不好使

newer · 发表于 2016-12-15 13:55:54

这些东西不是他的强项，文字功能还是用正则吧。

/db_自贡黄明儒_ · 发表于 2016-12-15 14:00:50

newer 发表于 2016-12-15 13:55

是呀是呀，关键是看哪些VB函数可被lisp利用，这样可以偷懒。

Lisphk · 发表于 2016-12-15 14:07:12

/db_自贡黄明儒_ 发表于 2016-12-15 14:00

钦佩黄总的钻研精神，希望多找出来好的功能，后人就有福了。

/db_自贡黄明儒_ · 发表于 2016-12-15 14:13:08

本帖最后由 /db_自贡黄明儒_ 于 2016-12-15 14:17 编辑

Lisphk 发表于 2016-12-15 14:07

网上可以找到大量的VB程序，可惜没有高手系统论述一下怎么利用，比如网抓。好像是老猫大师发过VB转lisp，试过不怎么好用。

kqqt6236 · 发表于 2016-12-17 22:02:10

用到了VBS啊

账号		自动登录	找回密码
密码			立即注册

[研讨] 查找与替换 函数 Replace

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

[研讨] 查找与替换函数 Replace