VBScript 脚本中的下标超出范围错误

Question 1

确保从另一页复制脚本时，换行符按应有的方式复制过来。例如，在上面打印的脚本中，它显示以

pos = Instr(line, keyword) + Len(keyword)

实际上是附加到上一行的注释中（该行中 ' 后面的所有内容）。可以因为您在那个 pos 中遇到的问题永远无法得到适当设置，所以没有任何内容会被复制到 arr 中。

只需逐行检查计算机上的脚本，并将其与从 Ben's Blog 复制的版本进行比较。脚本文件中的每一行都必须单独成行。

编辑：至于错误消息的含义，看起来 oldTarget 正在尝试抓取两个括号之间的字符串。发生错误的原因是字符串中没有足够的文本从数组位置 1 开始（并且这是从零开始的，这意味着它实际上是在尝试获取字符串中的第二个字符），即它最多是一个字符的字符串，这是不可能的，因为即使是空白字符串“元素”也会有两个字符（开括号和闭括号）。因此，您需要弄清楚为什么在代码中的这一点上没有得到有效的字符串才能解决这个问题。

Answer

确保从另一页复制脚本时，换行符按应有的方式复制过来。例如，在上面打印的脚本中，它显示以

pos = Instr(line, keyword) + Len(keyword)

实际上是附加到上一行的注释中（该行中 ' 后面的所有内容）。可以因为您在那个 pos 中遇到的问题永远无法得到适当设置，所以没有任何内容会被复制到 arr 中。

只需逐行检查计算机上的脚本，并将其与从 Ben's Blog 复制的版本进行比较。脚本文件中的每一行都必须单独成行。

编辑：至于错误消息的含义，看起来 oldTarget 正在尝试抓取两个括号之间的字符串。发生错误的原因是字符串中没有足够的文本从数组位置 1 开始（并且这是从零开始的，这意味着它实际上是在尝试获取字符串中的第二个字符），即它最多是一个字符的字符串，这是不可能的，因为即使是空白字符串“元素”也会有两个字符（开括号和闭括号）。因此，您需要弄清楚为什么在代码中的这一点上没有得到有效的字符串才能解决这个问题。

Question 2

首先，这是一个写得很差的脚本。我建议你好好重写一下。这有点像是一份粗制滥造的工作，你的大多数问题都源于此。

具体来说，您的问题发生在这里的第二行：

arr = Split(tuple, "[")

oldtarget = Replace(arr(1), "]", "")

这意味着前一行中的 split 没有返回数组，也就是说在元组中找不到 [，因此arr(1)超出范围。在尝试访问 arr 之前，请尝试检查它是否为数组。

Answer

首先，这是一个写得很差的脚本。我建议你好好重写一下。这有点像是一份粗制滥造的工作，你的大多数问题都源于此。

具体来说，您的问题发生在这里的第二行：

arr = Split(tuple, "[")

oldtarget = Replace(arr(1), "]", "")

这意味着前一行中的 split 没有返回数组，也就是说在元组中找不到 [，因此arr(1)超出范围。在尝试访问 arr 之前，请尝试检查它是否为数组。

Question 3

除了对初学者的嘲讽，我同意 Nilpo 的观点。您的问题是“arr(1)”失败，因为脚本期望这是数组中的第二个位置，但它不在那里，99% 的时间都是“越界”错误。它可能并不总是在您的控制范围内，但这通常是对数组边界问题的引用。数组位置从零开始。例如 Array(0, 1, 2, 3, ...)。所以 (1) 是第二个位置。他也是对的，它可能更干净，但如果刚开始使用 VBScript，您不会知道。

我认为这就是您要找的，而且更简洁。这将拉出括号 [] 之间的路径。您永远不想假设两个括号都在那里，即使它是一个生成的文件，所以我在执行之前有一个 If/Then 检查两者，否则它将跳到下一行和结尾。

我确实运行了它，并且它在括号之间捕获成功了。你可能需要做一些调整，因为我不确定你到底想在输出中看到什么。:)

Option Explicit

Dim fso : set fso = CreateObject("Scripting.FileSystemObject")
Dim fileIn : set fileIn = fso.OpenTextFile("c:\users\MyFolder\desktop\input.txt")
Dim fileOut : set fileOut = fso.OpenTextFile("c:\users\MyFolder\desktop\output.txt", 2, true) ' for writing/create
Dim line
Dim arr

Do Until fileIn.AtEndOfStream
    line = fileIn.ReadLine
    if InStr(line, "[") > 0 And InStr(line, "]") > 0 then
        arr = Split(Split(line, "[")(1), "]")

        fileOut.WriteLine arr(0) & "\"
    end if
Loop

fileIn.Close
fileOut.Close

Set fso     = Nothing
Set fileIn  = Nothing
Set fileOut = Nothing
Set line    = Nothing
Set arr     = Nothing

Answer

除了对初学者的嘲讽，我同意 Nilpo 的观点。您的问题是“arr(1)”失败，因为脚本期望这是数组中的第二个位置，但它不在那里，99% 的时间都是“越界”错误。它可能并不总是在您的控制范围内，但这通常是对数组边界问题的引用。数组位置从零开始。例如 Array(0, 1, 2, 3, ...)。所以 (1) 是第二个位置。他也是对的，它可能更干净，但如果刚开始使用 VBScript，您不会知道。

我认为这就是您要找的，而且更简洁。这将拉出括号 [] 之间的路径。您永远不想假设两个括号都在那里，即使它是一个生成的文件，所以我在执行之前有一个 If/Then 检查两者，否则它将跳到下一行和结尾。

我确实运行了它，并且它在括号之间捕获成功了。你可能需要做一些调整，因为我不确定你到底想在输出中看到什么。:)

Option Explicit

Dim fso : set fso = CreateObject("Scripting.FileSystemObject")
Dim fileIn : set fileIn = fso.OpenTextFile("c:\users\MyFolder\desktop\input.txt")
Dim fileOut : set fileOut = fso.OpenTextFile("c:\users\MyFolder\desktop\output.txt", 2, true) ' for writing/create
Dim line
Dim arr

Do Until fileIn.AtEndOfStream
    line = fileIn.ReadLine
    if InStr(line, "[") > 0 And InStr(line, "]") > 0 then
        arr = Split(Split(line, "[")(1), "]")

        fileOut.WriteLine arr(0) & "\"
    end if
Loop

fileIn.Close
fileOut.Close

Set fso     = Nothing
Set fileIn  = Nothing
Set fileOut = Nothing
Set line    = Nothing
Set arr     = Nothing

VBScript 脚本中的下标超出范围错误

Windows 脚本宿主

答案1

答案2

答案3

相关内容