标签: vbscript

我正在研究一个vbscript程序,我得到了"预期声明"错误.我找不到错误.我已经看到了这个错误的一些样本,但他们没有帮助我.

我是vbscript的新手.

这是代码.

Sub SetText(tx, lw)
    Dim t, l, r, a

    t = -1
    l = Len(tx)
    r = ""
    a = 0

    While t < l
        t = t + 1
        a = Asc(Mid(tx,t,1))

        If a >= 160 or a=60 or a=62 or a=38 or a=34 or a=39 or a=32 Then
            If a = 32 Then
                r = r + "&nbsp;"
            Else
                r = r + "&#" + Cstr(a) + ";"
            End If
        Else
            r = r + Mid(tx,t,1) …

asp中新行的字符是什么

我有一个vbscript脚本,我需要通过一个.tif文件目录来咀嚼.对于每个文件,我需要确定文件是按比例分配为横向还是纵向.基本上,我需要能够获取每个文件的图像尺寸.因此,我已经看到一些人阅读文件文件头以从jpg或bmp文件中提取此类信息的示例.有没有人做同样的事情来提取tiff文件的维度？

我正在学习vbscript的注册表.我想知道我会通过使用vbscript 来检查strValuname和dwValue浏览器保护模式功能吗？

我尝试在注册表上搜索strKeyPath无效.我也无法找到注册表路径

"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\EnableMIC"

当我找不到上面的注册表位置时,我使用的是windows7.

谢谢

我需要一些excel vba示例,在VBA代码(Excel宏)中,我可以调用VBScript,并从vbscript获取文件名和目录信息等值,并将其分配给VBA代码中的变量.先感谢您

有点像这样

VBA宏:

Sub Foo2Script
Dim x As Long
x=2
'Call VBscript here
MsgBox scriptresult
End Sub

VBScript中:

Dim x, y ,Z
x = x_from_macro
y = x + 2
Z = X+Y
scriptresult = y,Z

我的问题可以在下面的示例代码中说明,该代码设置了一个朋友的数据数组,每个朋友都可以有几个电话号码:

Class clsPhoneNo
  Dim strType
  Dim strNumber
End Class

Class clsPerson
  Dim strName
  Dim aclsPhoneNo()
End Class

Dim clsFriends()
ReDim clsFriends(3)
Set clsFriend(0) = New Person
clsFriend(0).strName = "Fred"
Set clsFriends(0).aclsPhoneNo(0) = New clsPhoneNo
ReDim clsFriend(0).aclsPhoneNo(2)
Set clsFriend(0).aclsPhoneNo(0).strType = "Home"
Set clsFriend(0).aclsPhoneNo(0) = "01234567890"
Set clsFriend(0).aclsPhoneNo(1).strType = "Work"
Set clsFriend(0).aclsPhoneNo(1) = "09876543210"

但是,VBScript说

Microsoft VBScript compilation error: Expected end of statement

之前 .在第二个ReDim声明中

我需要有aclsPhoneNo元素变量长度,因为我的代码实际上并不是地址簿,但这是一个演示问题的简单示例.

有任何想法吗？

根据主题,是否有命令或甚至可以使用示例VBScript来计算/读取Windows XP和Windows Server 2003操作系统中文件的有效权限？我想要的是能够获得与我在NTFS文件的Security-> Advanced选项的"有效权限"选项卡中看到的相同的信息.

像calcs,icacls等命令不提供有效权限 - 它们可以列出继承权限但不计算有效权限.

编辑 - 基于以下答案,通过使用VB脚本实际上是不可能的.我将编写一段代码,然后从VBScript中调用它

我想知道是否有一个"本地运行时环境"用于托管Javascript代码,这不是基于浏览器的,用于运行小型本地应用程序？类似于WSH(Windows Scripting Host)的JavaScript(不是MS-JScript).

我想在本地运行一些javascript脚本,就像我可能用于VBScript(VBS)一样,可能会出现以下情况:

1. 访问本地文件(可能通过FSO对象)
2. 简单的控制台读/写
3. 最新版本的Javascript
4. 某种形式的简单调试

或者,如何考虑仅在"本地"模式下运行浏览器？即:启动,运行代码,退出,也许使用命令行开关/选项,没有太多的开销？如果是这样,哪个浏览器？火狐？有可能以某种方式"提取"JS运行时引擎/ DLL并调用它吗？

那么,简而言之,像WSH这样的东西只适用于javascript？

谢谢.

我正在尝试这个但是ADODB.Recordset error '800a0e78' Operation is not allowed when the object is closed.在这行代码上出错了If ScopeID.EOF Then

请不要回答使用该CreateParam方法,寻找没有这种方法的解决方案.谢谢.

<%  
    set Cmd = Server.CreateObject("ADODB.Command")
    Cmd.ActiveConnection = conn

    Cmd.CommandText = "INSERT INTO TABLE (NAME) VALUES ('test')  SELECT SCOPE_IDENTITY() AS ID"
    Cmd.CommandType = 1
    Cmd.CommandTimeout = 0
    Cmd.Prepared = true

    Set ScopeID = Cmd.Execute()

    If ScopeID.EOF Then
        Response.Write "There was an Error in your request, Please try again"
        Response.End
    Else
        ID= ScopeID(0).Value
    End IF

    ScopeID.Close
    Set ScopeID = Nothing
    Set Cmd …

我有一个VBScript工作正常.我有一个C#程序,可以使用cscript程序运行VBScript.

我想要做的是将VBS嵌入到C#exe中,这样它就是一个文件,并且能够运行VBS文件.有没有办法让我将嵌入式VBScript文件作为参数传递给cscript或以其他方式运行嵌入式VBS文件？