[查找替换]

WhoCanSay

;;[查找替换]成功
(defun w3 (str old New compare)
  (or *scr*
      (setq *scr* (vlax-create-object "MSScriptControl.ScriptControl.1"))
  )
  (vlax-put *scr* "language" "vbscript")
  (vlax-invoke
    *scr*
    'ExecuteStatement
    (strcat "x = Replace("
            (VL-PRIN1-TO-STRING str)
            ","
            (VL-PRIN1-TO-STRING old)
            ","
            (VL-PRIN1-TO-STRING new)
            ","
            (VL-PRIN1-TO-STRING compare)
            ")"
    )
  )
  (vlax-invoke *scr* 'eval "x")
)
;;;;;示例==>Command: w3 "5-5"
;;;(defun C:w3 ()  
;;;  (w3 "5.5" "." "-" 1)
;;;(w3"1234567890123456""123""a" 1)=>"a4567890a456"
;;;
;;;)


;;;Sub fig8()
;;;Set x = CreateObject("msscriptcontrol.scriptcontrol")
;;;x.Language = "vbscript"
;;;x.addcode "sub aa(): msgbox ""hello.."":end sub : sub bb:msgbox 3:end sub :sub cc: msgbox ""cc"":end sub"
;;;x.Run "aa"
;;;x.Run "bb"
;;;x.Run "cc"
;;;End Sub
(defun w6 ()
  (or *scr*
      (setq *scr* (vlax-create-object "MSScriptControl.ScriptControl.1"))
  )
  (vlax-put *scr* "language" "vbscript")
  (vlax-invoke
    *scr*
    'AddCode
    "sub aa(): msgbox \"hello..\":end sub : sub bb:msgbox 3:end sub :sub cc: msgbox \"cc\":end sub"
  )
  (vlax-invoke *scr* 'run "aa")
  (vlax-invoke *scr* 'run "bb")
  (vlax-invoke *scr* 'run "cc")
)
;;;(w6);成功


;;;自定义函数的用法
;;;Sub fig8()
;;;Set x = CreateObject("msscriptcontrol.scriptcontrol")
;;;x.Language = "vbscript"
;;;x.addcode "function sum(x,y):sum=x+y:end function "
;;;bb = x.Run("sum", 2, 3)
;;;MsgBox bb
;;;End Sub
(defun w7 ()
  (or *scr*
      (setq *scr* (vlax-create-object "MSScriptControl.ScriptControl.1"))
  )
  (vlax-put *scr* "language" "vbscript")
  (vlax-invoke
    *scr*
    'AddCode
    "function sum(x,y):sum=x+y:end function "
  )
  (vlax-invoke *scr* 'run "sum" 2 3)
)
;;;(w7)=>5

WhoCanSay

网上可以搜到《在VBA中使用JAVASCRIPT和VBSCRIPT（1）》，各位版主，有没有《在Lisp中使用JAVASCRIPT和VBSCRIPT（1）》?
问题：当我想将“人之初”三个字写入一个文本文件，没有成功？
;;;(w5)
(defun w5 ()
  (or *scr*
      (setq *scr* (vlax-get-or-create-object "msscriptcontrol.scriptcontrol"))
  )
  (vlax-put *scr* "language" "vbscript")
  (vlax-invoke
    *scr*
    'AddCode
    "Sub StrToTxt(ByVal txt As String)
            Open \"D://MySwap.txt\" For Output As #1
            Write #1, txt
            Close #1
    End Sub"
  );本句错误
  (vlax-invoke *scr* 'run "StrToTxt" "人之初")
)

kqqt6236

谢谢分享！

marting

WhoCanSay 发表于 2017-1-19 14:59

这本书确实有，还是你自己想的名字？

WongFoling

喜欢看到简短的代码

WongFoling

打卡了