在VBA中使用JAVASCRIPT和VBSCRIPT（1）

wsri

好！学习学习！！！！

detergent181

好好学习，天天向上。

ldshuishijie

高手高手，学无止境呀

赵国辉

原帖由 figfig 于 2009-9-3 00:53 发表
Sub fig8()

Set x = CreateObject("msscriptcontrol.scriptcontrol")
x.Language = "vbscript"

arr6 = Array("aa", "bb", "cc")
For Each arr In arr6
x.addcode "sub " & arr & "(): msgbox """ & arr & " ...

请教楼主：上面的这个代码需要考虑什么安全设置么？

xiaowang2999

高手，高手，必须支持

ldy

其他参考

JScript 字符串数组另类排序

[第35期] 宏中宏--动态控件\代码 (已结)    1 2

figfig

学习研究了一下LDY版主的代码，发现一个现象，
jscript返回的对象应该是一个数组，可以在VB直接调用相关函数，但又可以直接显示所有元素

Sub Mytest()

    Set sp1 = CreateObject("ScriptControl")
        sp1.Language = "JScript"
    s = "function sortarr(arr){return arr.toArray();}"    '顺序
sp1.AddCode s
    aa = Array("张", "王", "李", "赵", "钱", "孙", "周", "吴", "郑", "王")
Set bb = sp1.codeobject.sortarr(aa)
MsgBox bb
MsgBox bb.slice(1, 4)
MsgBox bb.concat("888").concat("777")
bb.push ("999")
MsgBox bb


End Sub

figfig

Sub Mytest()

    Set sp1 = CreateObject("ScriptControl")
        sp1.Language = "JScript"
    s = "function sortarr(arr){return arr.toArray();}"    '顺序
sp1.AddCode s
    aa = Array("张", "王", "李", "赵", "钱", "孙", "周", "吴", "郑", "王")
aa2 = Array("33", "王", "44")
Set bb = sp1.codeobject.sortarr(aa)
Set bb2 = sp1.codeobject.sortarr(aa2)
cc = bb.concat(bb2)
MsgBox cc
End Sub

figfig

Sub Mytest()

    Set sp1 = CreateObject("ScriptControl")
        sp1.Language = "JScript"
    s = "function sortarr(arr){return arr.toArray();}"    '顺序
sp1.AddCode s
    aa = Array("张", "王", "李", "赵", "钱", "孙", "周", "吴", "郑", "王")

Set bb = sp1.codeobject.sortarr(aa)

bb.push ("999") '直接添加到数组末尾，不再需要重定义
MsgBox bb

bb.unshift ("888") '直接添加到数组开头，不再需要重定义
MsgBox bb


bb.pop '删除最后一个元素
MsgBox bb
bb.shift '删除最前一个元素

MsgBox bb


bb.splice 2, 3, "a", "b", "c" '直接替换数组
MsgBox bb







End Sub

ldy

JScript 语法同 C 语言。VBscript 语法 同 VB 。
我没有专门学c语言，希望figfig兄多整理介绍些 js对于字符串、数组方面的用法。