标签: vbscript

我有一个句子（用空格分隔的单词）。

然后我有两个短语列表（完整或部分单词，即不包含空格）：一个是“包含”列表，另一个是“排除”列表。

匹配的句子将包含“包含”列表中的所有短语（可以重叠，不区分大小写）并且不包含“排除”列表中的任何短语。

如何测试句子是否符合规则？谢谢。

例子

句子 = This yammy Flybe catalog is sticky

包括列表 = cat fly tic

排除列表 = veg pot yam

测试失败，因为尽管所有“包含”短语都在句子中，yam但确实出现了“排除”短语之一 ( )。将单词更改yammy为yummy，测试应该通过。

PS目前为此使用SQL中的关系划分实现，当SQL数据库中的数据领先时，这似乎得到了很好的优化。现在我有一个来自外部来源的数据结构。我想我可以传入分隔的字符串，拆分为表格行等，但我想研究其他选项。那么，如果不是正则表达式，那又如何？

如何使用 VBScript 查找计算机的 IP 地址？

有没有办法更改cmd标题？我写了一个vbs程序。但是dos标题不好。

名称是 c:\windows\system32\cscript.exe 我尝试使用：

标题 the_name 和标题 ="姓名"

但两者都不起作用。

感谢帮助。

我一直在尝试制作一个小 VBS，它可以获取服务器上的所有主目录并将它们移动到不同的位置。小例子

C:\homefolders\test_person C:\homefolders\test_person\old_home

这是我到目前为止所得到的，但移动部分不起作用......

Call ListFolderContents("C:\Windows\System32\Drivers")

Sub ListFolderContents(path)
    set fs = CreateObject("Scripting.FileSystemObject")
    set folder = fs.GetFolder(path)
    Msgbox folder.path

    For each item in folder.SubFolders
        ListFolderContents(item.Path)
    Next
    set folder = Nothing
    set fs = Nothing
End Sub

我有一个使用 encodeURI 函数在 javascript 中编码的 url：

javascript代码：

encodeURI("form.asp?opt=" + ai_opt + "&val=" + escape(ls_val) + "&col=" + as_col + "&sg=" + ls_sg + "&oldval=" + escape(ls_old_val)

示例输出：

/form.asp?opt=1&val=Field%2520Fisher%2520Waterhouse%2520%2528London%2529&col=loc

如何使用经典asp解码服务器端的查询字符串值？

我应该能够从查询字符串中提取正确的值：

opt = 1
val = Field Fisher Waterhouse (London) 
col = loc

谁能告诉我如何在 ASP（经典）中删除所有特殊字符（<>,/\'%;()&+-*）？

这就是我所拥有的，但它不起作用。

Function RemoveBad(strTemp)

Dim regEx
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Pattern = "[/\<|\>|\|\'|\%|\;|\(|\)|\&|\+|\-/g]"
RemoveBad = replace(strTemp,regEx.Pattern," ")

End Function

我有这个输入字符串:

Hello <foo> context61 Hi: context:file/  hello context715: context666:file/ foo

我的目标是将每次出现的替换(清理)替换context[anything]:为空字符串.这anything部分可能是空的.

输出应如下所示:

Hello <foo> context61 Hi: file/  hello  file/ foo

我尝试过无尽的尝试,但在正则表达方面我只是一个菜鸟.有人可以帮忙吗？

我想确定它是在凌晨12点到凌晨1点之间.这是我的if语句:

If InStr(Time,"12") AND InStr(Time,"AM") Then 
    ' Do something
Else
    ' Do something else
End If

问题是,即使两个条件都为真,此语句的计算结果为false.我知道这是因为我试过这样的嵌套

If InStr(Time,"12") Then
    If InStr(Time,"AM") Then
        ' Do something
...

这很有效.这也有效

If InStr(Time,"12")<>0 AND InStr(Time,"AM")<>0 Then
    ' Do something
...

但是如果它作为嵌套if工作,为什么我不能在单个if语句中测试两个嵌套if条件？

我用它们返回的值替换了InStr函数调用

If 1 AND 10 Then
    ' Do something
Else
    ' Do something else
End If

同样的事情发生了:if语句被评估为false并且执行了"Do something else"命令.但是当我将第二个条件嵌套在第一个if语句中的另一个if语句时,执行了"执行某些操作"命令.

为什么这样,如果没有<> 0且没有嵌套,有没有办法做到这一点？

我的系统是Window 10 English-US.我需要将一些不可打印的ASCII字符写入文本文件.因此,例如对于ASCII值为28,我想将\ u001Cw写入文件.在用Java编码时,我不需要做任何特殊的事情.以下是我在VBS中的代码

Dim objStream
Set objStream = CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 2
objStream.Position = 0
objStream.CharSet = "utf-16"

objStream.WriteText ChrW(28)  'Need this to appear as \u001Cw in the output file

objStream.SaveToFile "C:\temp\test.txt", 2
objStream.Close

以下说明来自Rhino Developer Docs

空

在VBScript中声明变量时,第一次赋值之前的变量值是未定义的,或者Empty.

Dim varValue ' Empty value

Run Code Online (Sandbox Code Playgroud)

所以基本上,Empty"我是一个未初始化的变体."如果您需要检测变量实际上是否为空变量而不是字符串或数字,您可以使用IsEmpty.或者,您可以使用 TypeName或VarType,但IsEmpty最好.

因此Empty用于声明变量.如果声明一个变量,则在堆栈中保留存储空间,但堆栈上的Empty值是多少？