怎么向脚本中代码里的变量传值、

2013-02-23 10:08:37 620 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【BLE】HID设备开发实战：从自拍杆到复合设备的蓝牙控制方案本文深入解析了BLE HID（低功耗蓝牙人机接口设备）的开发实战，从蓝牙自拍杆的工作原理切入，详细阐述了HID Report Map的设计与实现。通过拆解自拍杆、键盘、鼠标等案例，指导开发者如何利用BLE的低功耗与即插即用特性，构建从单一功能到键盘鼠标复合设备的完整蓝牙控制方案。阅读详情

我通过
ScriptControl
VBScript
执行txt脚本文件。
问题：
我在程序中获得
值45
我要把这个值赋值给脚本代码中的变量a
该怎么传递这个值、

...全文

[Windows] 发票识别工具。支持xml、pdf、ofd文件。发票识别是财务自动化中的关键环节，支持多种格式（XML、PDF、OFD）的识别工具能显著提升工作效率。以下介绍基于Windows平台开发此类工具的技术方案。发票识别是财务自动化中的关键环节，支持多种格式（XML、PDF、OFD）的识别工具能显著提升工作效率。以下介绍基于Windows平台开发此类工具的技术方案。阅读详情

liuxiaoboQQ

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

liuxiaoboQQ 2013-02-23

打赏
举报

与题目不符把

bcrun 2013-02-23

打赏
举报

楼主应该要把那个"26.csq"文件的内容贴出来

楼主怎么不反馈啊,还好我的版主,不能接连回复3次,我还可以编辑帖子:

刚测试了一下,直接头痛医头的办法是这个(意思软件设计时这类需求,弄成基于对象的似乎更好)
如前,假设你用AddCode加进去的代码中有这么一行定义公共变量的
Dim s1
那个,在VB中的那些代码里,可以通过这样的方式读写这变量



    script_control.ExecuteStatement ("s1=""cool""")

    MsgBox script_control.Eval("s1")

bcrun 2013-02-23

打赏
举报

我帖的代码是Vbs脚本,是供VB6程序调用的,用ScriptControl的Run方法

bcrun 2013-02-23

打赏
举报

看到你的问题,我在没系统复习这个控件的全部用法前,第一个想到的是这个方案: 看你从哪个角度说,如果只需要处理眼前的问题,一般你在Vbs里专门定义个函数,把新值当参数赋给那变量也行 dim var1 sub SetVar1(newValue) var1=newValue end sub

liuxiaoboQQ 2013-02-23

打赏
举报




'Form1 Module
Option Explicit
Private mScript As New CScript
'---------------------------------------------------------------------------------------
' 过程名    : Command1_Click
' 时间      : 2013-1-28 18:07
' 作者      : 杨过.网狐.cn(csdn bcrun)
' 功能      :
' 说明      :
' 备注      : CSDN之VB一群:283362041
'---------------------------------------------------------------------------------------
'
Private Sub Command1_Click()
On Error GoTo Command1_Click_Error

    mScript.WAIT 200

    Dim script_control As Object
    Dim strLine As String
    Dim iLen As Long
    Open "26.csq" For Input As #1
        iLen = LOF(1)
        strLine = StrConv(InputB$(iLen, #1), vbUnicode)
        Text1.Text = strLine
    Close #1

    Set script_control = CreateObject("MSScriptControl.ScriptControl")
    script_control.Language = "VBScript"
    script_control.AddCode strLine
    script_control.AddObject "list", List1
    script_control.AddObject "Text", Text1
    script_control.AddObject "scrobj", mScript

    script_control.Run "main"

    On Error GoTo 0
    Exit Sub

Command1_Click_Error:

    MsgBox "错误 " & Err.Number & " (" & Err.Description & ") in procedure Command1_Click of Form Form1"
End Sub

'CScript ClassModule
Option Explicit

Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub WAIT(ByVal msec As Long, Optional blnVar As Boolean = True)
    Dim iTick As Long
    iTick = GetTickCount
    While GetTickCount - iTick < msec And blnVar
        DoEvents
    Wend
End Sub

liuxiaoboQQ 2013-02-23

打赏
举报

'Form1 Module Option Explicit Private mScript As New CScript '--------------------------------------------------------------------------------------- ' 过程名    : Command1_Click ' 时间      : 2013-1-28 18:07 ' 作者      : 杨过.网狐.cn(csdn bcrun) ' 功能      : ' 说明      : ' 备注      : CSDN之VB一群:283362041 '--------------------------------------------------------------------------------------- ' Private Sub Command1_Click() On Error GoTo Command1_Click_Error       mScript.WAIT 200       Dim script_control As Object    Dim strLine As String    Dim iLen As Long    Open "26.csq" For Input As #1         iLen = LOF(1)         strLine = StrConv(InputB$(iLen, #1), vbUnicode)         Text1.Text = strLine     Close #1       Set script_control = CreateObject("MSScriptControl.ScriptControl")     script_control.Language = "VBScript"    script_control.AddCode strLine     script_control.AddObject "list", List1     script_control.AddObject "Text", Text1     script_control.AddObject "scrobj", mScript       script_control.Run "main"      On Error GoTo 0     Exit Sub  Command1_Click_Error:       MsgBox "错误 " & Err.Number & " (" & Err.Description & ") in procedure Command1_Click of Form Form1"End Sub  'CScript ClassModule Option Explicit   Private Declare Function GetTickCount Lib "kernel32" () As LongPublic Sub WAIT(ByVal msec As Long, Optional blnVar As Boolean = True)     Dim iTick As Long    iTick = GetTickCount     While GetTickCount - iTick < msec And blnVar         DoEvents     Wend End Sub

liuxiaoboQQ 2013-02-23

打赏
举报

没有人会吗，

chuifengde 2013-02-23

打赏
举报

a=b用在if 中就是判断a等不等于b有什么可疑的。

liuxiaoboQQ 2013-02-23

打赏
举报

引用 8 楼 chuifengde 的回复:

贴出文件内容和你要的结果

版主都帮不到我，我放弃这个方法了。也不要浪费这100分，问个简单点的问题。 a="sef" b="sdfsf" 我想if a=b then 的但是好像a=b这样是赋值了不是比对，怎么才可以比对a是否等于b

chuifengde 2013-02-23

打赏
举报

贴出文件内容和你要的结果

怎么向脚本中代码里的变量传值、

相关推荐