动态数组问题 VBScript

Question

我正在逐行读取一个txt文件，并搜索关键字。当我找到一个关键字时，我将它放在一个数组中以备后用。但是，我不断遇到动态数组的问题。即使 txt 文件不包含关键字，我的数组也会显示几个空格并用空字符串填充它。我是否错误地填充了我的动态数组？这是我的代码的移植：

Dim fso, inputFile, outputFile, notFound(), PortTransferError()
Const outPut = "out.txt"

Set fso = CreateObject("Scripting.FileSystemObject")
Set input = fso.OpenTextFile("file.txt")
Set outputFile = fso.CreateTextFile(outPut)

i = 0
Do Until input.AtEndOfStream
    line = input.Readline
    Redim Preserve notFound(i)
    Redim Preserve PortTransferError(i)
    If InStr(line, "Couldn't Find:") Then
        notFoundError(i) = line
        i = i + 1
    ElseIf InStr(line, "Cannot Transfer to Port: ") Then
        PortTransferErrorr(i) = line  
        i = i + 1
    End If
Loop


input.Close

For each item in notFound
    outputFile.Write(item) 'empty string vals in array
Next 


For each item in PortTransferErrorr
    outputFile.Write(item)
Next 

Answer 1

您ReDim（并复制）每个输入行的数组，并为满足的每个条件增长两个数组；所以将 ReDim 线移动到相应的 Then 部分。