标签: vbscript

这是一个快速(可能是愚蠢的)问题,但如果我有两个consts字符串,我怎么能从前一个const构建下一个const,即

Const PATH_SRC = "some path\"
Const PATH_SRC_FILES = PATH_SRC & "files\"

我知道你可能会说const是一个const但是正在寻找一个快速的解决方案.这是在vbs脚本中执行的.

谢谢

有没有人知道如何使用SQL将几个字节传递到二进制(或varbinary)字段,理想情况下是在ADO(经典)和VBScript(或Visual Basic 6)中？

我希望编码10-20(可能更多)字节的数据,并将此数据存储在SQL db字段中.(它不是MS-SQLSVR,但我希望标准的SQL支持格式能够正常工作!)

这些字节可用作通过AscB/ChrB获得的字节串,OR,一个'bytes'数组(实际上是通过'cbyte'获得的字节类型的变体)并存储在数组中.

第一个选项:使用字符串格式 我已经有一些(有限的)成功创建SQL插入:

x = ".>?hD-&91k[="    '<psuedo string of chars, some unprintable
Insert Into rawtest (byt) Values (CAST('" & x & "' as SQL_BINARY(12)))

但我担心字符串空值会截断字段中的数据,而其他非打印控制字符将妨碍处理数据.有办法避免这种情况吗？

第二个选项:字节数组 我可以很容易地将数据放入数组中,但无法看到如何传递给SQL Insert语句.如果我尝试传入12个字节,则由于CAST尝试将数据存储到整数(4字节),插入失败.如果我传入单个字节,它可以工作,例如:

x = a(0)

并继续工作4个字节,但在Integer溢出时失败.此外,它重新排序数据

我试图使用各种变通方法:

Insert Into rawtest (byt) Values (CAST('12,34,45' as SQL_BINARY(12)))
Insert Into rawtest (byt) Values (CAST(&h12&h34 as SQL_BINARY(12)))
Insert Into rawtest (byt) Values (CAST(0x123456789012 as SQL_BINARY(12)))

我也尝试过类似的组合:

Insert Into rawtest (byt) Values (CONVERT('" & x & "', SQL_BINARY)

但这些都失败了!

理想情况下,我想要一个方法,任何方法,它采用一个最多20个字节的小二进制数组(理想情况下完整字节范围为0-255,但可能需要更少)并将它们传递给普通的原始二进制SQL字段.

理想情况下,我需要在VBScript/ADO中执行此操作,但如果可用,则可以使用基于VB6的解决方案.我想把它作为'原始'二进制文件,我不想使用ascii编码,比如Base64.

我用谷歌搜索,直到我麻木,并没有发现与SQL中的二进制字段相关的很多东西.

你能帮我吗？任何答案都赞赏.很多thx.

我有一个具有设定高度的div中的表,当表大于div时,滚动条显示为div.问题是如果div的滚动条位于顶部,底部的其他行隐藏,并且用户按下按钮添加新行,此行将添加到表格的底部,因此您可以看不到.

无论如何使用javascript,vbscript或css将焦点设置为已创建的行,以便在添加时可见？

这是将调用添加新行的函数的代码.

   strRow = strRow + "<div>
        <input ID='AddRowTableNew_" + cstr(newrow.id) + "' type='button' 
        value='Add New Row' 
        onclick='vbscript:AddNewRow 0," + cstr(newRow.id)+ "'/>
    </div>"

任何帮助,将不胜感激.

PD:我需要这个是VBScript或JavaScript,请不要JQuery.

谢谢.

当我想强制更新我的合并复制发布的订阅者时,我可以进入复制监视器,右键单击订阅,然后选择开始同步.我希望能够编写脚本(使用vba/vbscript或命令行).我也希望用户能够运行脚本(如果有的话,需要什么权限？).

我确信之前已经多次询问和回答,但我的谷歌搜索尝试空了.

手动我们右键单击文件并选择"打开方式"选项以其他格式打开.

现在我需要通过vbscript来做到这一点

我是一个ASP.NET C#的人,他必须回到经典的ASP,并需要一些帮助.

首先,看看这两个函数(我知道在VBScript中注释是由声明'而不是由声明的//荧光笔在这里搞砸了').

第一版:

Function DoThing

    Dim Connection, Command, Recordset

    Set Connection = Server.CreateObject("ADODB.Connection")
    Set Command = Server.CreateObject("ADODB.Command")
    Set Recordset = Server.CreateObject("ADODB.Recordset")

    Connection.Open "blah blah blah"
    Command.CommandText = "blah blah blah"
    Recordset.Open Command, Connection

    If Recordset.EOF = False Then

        While Recordset.EOF = False Then

            // Do stuff.

            Recordset.MoveNext

        WEnd

    Else

        // Handle error.

    End If

    Recordset.Close
    Connection.Close

    Set Recordset = Nothing
    Set Command = Nothing
    Set Connection = Nothing

End Function

第二版:

Function DoAnotherThing …

大家好
我有一个相当大(2k线)的vbScript文件,我需要混淆.它是一个定制的QTP函数库,因此必须随产品一起分发.是否有任何免费的VBscript混淆器在那里做得不错？
谢谢!

编辑:
加密不适合与QTP一起使用,因此Windows Scripting Encryption工具不起作用,QTP必须能够理解输出.我不是试图让输出黑客证明,只是让偶然的程序员不愿意付出努力来去除它的混淆

JSONLint说以下是无效的JSON:

[{
"value": 71,
"label": "123 Foobar \'eha-Kauai, Hawaii, United States"
},
{
"value": 75,
"label": "456 Foobar \'elima-Kauai, Hawaii, United States"
}]

但这有效:

var foo = [{
"value": 71,
"label": "123 Foobar \'eha-Kauai, Hawaii, United States"
},
{
"value": 75,
"label": "456 Foobar \'elima-Kauai, Hawaii, United States"
}];
console.log(foo.length); // returns 2

注意:字符串由函数生成,可以通过以下方式使用:

<script>
var foo = '<%= vbs_JSONEncode("Hello World") %>'; // being inconsistent
var bar = "<%= vbs_JSONEncode(str_Hello_Msg) %>"; // with the quotes
</script>

或者干脆:

Response.ContentType = "application/json" …

我正在使用VB中的小脚本.我需要格式化一个双重数字,这是分裂的结果.因此,小数位后可能有很多位数.我需要将它转换为只有两位小数的字符串.我曾经在C#中使用Double.ToString("0.##"); 在VBScript中是否有类似的方法..
请帮助..

人士Himanshu

我如何比较两个数组的值来检查1个数组是否没有另一个数组的元素 - 例如 -

array1(0) = 85
array1(1) = 459
array1(2) = 90

array2(0) = 459
array2(1) = 90

我想返回第二个数组中不存在的值？我尝试使用双循环,但对我来说效果不佳.