Question

我在运行代码时第15行收到错误“Object variable not set”。我不是每次都得到它。这似乎是随机的。我已经搜索过，但找不到任何理由。我遇到的问题是变量没有一直被清除，所以我刚添加第42行设置strText = Nothing。我没有正确设置变量的问题消失了，但现在我有了这个。任何帮助将不胜感激。代码如下。

Option Explicit
Dim i, objFSO, objFile, strText, Fields, TimeStamp, Location, MachNum, Amount, Theme, objSMFile, SMLine, p, CSVLine, objReportFile, FileName
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Do while i<>1
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists("C:\Print\output.txt") Then
        '*** Clean up CR/LF and Make CSV Variable ***
        Set objFile = objFSO.OpenTextFile("C:\Print\output.txt", ForReading)
        If Not objFile.AtEndOfStream Then strText = objFile.ReadAll
        objFile.Close
'       WScript.Sleep 1000
        objFSO.CopyFile "C:\Print\output.txt", "C:\Print\outputCopy.txt"
        objFSO.DeleteFile("C:\Print\output.txt")
'       WScript.Sleep 3000
        strText = Replace(strText, vbCrlf, "")
        strText = Replace(strText, "   ", ";")
        ' Split by semi-colon into an array...
        Fields = Split(strText, ";")
        TimeStamp = Fields(0)
        Location = Fields(1)
        MachNum = Fields(3)
        Amount = Fields(4)
        '*** Find Machine Number in Slot Master ***
        Set objSMFile = objFSO.OpenTextFile("C:\Scripts\SlotMaster.csv", ForReading)
        do while not objSMFile.AtEndOfStream
            SMLine=objSMFile.readline
            p=instr(SMLine, MachNum)
            if p>0 then CSVLine = SMLine
        Loop
        ' Split by comma into an array...
        Fields = Split(CSVLine, ",")
        Theme = Fields(7)
        '*** Create Tab Delimited Text File ***
        FileName = Year(Now) & "-" & Month(Now) & "-" & Day(Now) & " Jackpots.txt"
        If Not objFSO.FileExists("C:\Print\" & FileName) Then
            Set objReportFile = objFSO.CreateTextFile("C:\Print\" &FileName)
            objReportFile.Close
        End If
        Set objReportFile = objFSO.OpenTextFile("C:\Print\" & FileName, ForAppending)
        objReportFile.Write TimeStamp & vbTab & Location & vbTab & Amount & vbTab & Theme & vbCrLf
        objReportFile.Close
        Set strText = Nothing
    End If
Loop

Answer 1

简短回答

strText不是对象。它在那里处理一个字符串。

因此你应该重新启动它：

strText= ""

LONG ANSWER

当你这样做时

Set strText = Nothing

您隐式将strText声明为对象，因此它不再是字符串。因此，不允许尝试为其分配值""（空字符串）。
你减少了它的引用计数器，它使对象不再可寻址并成为垃圾收集器的候选者。因此，下次Replace()或.ReadAll将在其上执行时，它将失败，因为它不再存在。即使存在它也会失败，因为它不再是字符串，如前所述。

未设置VBScript对象变量

1 个答案: