Vbscript 800A0401-预计“上的报表结束”；“用于输出”；

我发现了错误

800A0401-预期报表结束

在VBScript中

请澄清问题所在

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\Users\RAJDIQ\Desktop\Macros\11082017\SingleFile.txt", ForReading)
strLine = objTextFile.ReadLine
Set folder = objFSO.GetFolder("C:\Users\RAJDIQ\Desktop\Macros\11082017\")
Set outfile = objFSO.OpenTextFile("C:\Users\RAJDIQ\Desktop\Macros\11082017\comparedel.txt")
myFile ="C:\Users\RAJDIQ\Desktop\Macros\11082017\Output.txt"
Open myFile for Output As #1
t = 0
Do Until outfile.AtEndOfStream
  strLine = outfile.ReadLine
  If InStr(strLine, substrToFind) <> 0 Then
    t = t+1
  Else
    [ Lines = Lines & t & ","
    Write #1, Lines]
  End If
Loop 

MsgBox "Complete"

Const ForReading=1
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
设置objTextFile=objFSO.OpenTextFile（“C:\Users\RAJDIQ\Desktop\Macros\11082017\SingleFile.txt”，用于阅读）
strLine=objTextFile.ReadLine
Set folder=objFSO.GetFolder（“C:\Users\RAJDIQ\Desktop\Macros\11082017\”）
Set outfile=objFSO.OpenTextFile（“C:\Users\RAJDIQ\Desktop\Macros\11082017\comparedel.txt”）
myFile=“C:\Users\RAJDIQ\Desktop\Macros\11082017\Output.txt”
打开myFile以作为#1输出
t=0
直到outfile.AtEndOfStream
strLine=outfile.ReadLine
如果InStr（strLine，substrotfind）为0，则
t=t+1
其他的
[行=行和t&“
写#1行]
如果结束
环
MsgBox“完成”

你把VBA和VBScript搞混了<代码>打开myFile进行输出，因为#1不是有效的VBScript代码，

Write#1

或方括号也不是有效的VBScript代码。在VBScript中，您可以通过

FileSystemObject

处理文件

Set outputFile = objFSO.OpenTextFile(myFile, 2, True)
'stuff
outputFile.WriteLine "something"
'more stuff
outputFile.Close

参数

2

打开文件进行写入，参数

True

确保在文件丢失时创建文件

---

请查看以了解更多详细信息。

[Lines=Lines&t&>，“

不是有效的VBA语句。您试图对该

[

做什么？但为什么要使用

[

和

]

字符？它们在VBA中具有特殊意义，必须在单个物理行上进行平衡。没有

[

和

]

，您不会在该代码中得到预期的语句结束错误。（您也不会从中得到它，您只会得到“缺少结束括号”和“无效字符”语法错误。）可能会显示出现语句结尾错误时使用的实际代码，我们可能会告诉您原因。尽管这不会有任何区别，但可能会告诉我们这是Excel VBA、Word VBA、Outlook VBA、Access VBA、Powerpoint VBA还是其他产品的VBA。还可以解释“并将其另存为.vbs”的含义。如果这是VBA，为什么不使用VBE。（听起来好像这可能与VBA完全无关-听起来更像VBScript。）啊！！！我只是以VBScript的形式尝试了一下，果然，它给出了一个“预期的语句结尾”错误，并准确地告诉您是哪一行和哪一个字符导致了问题。请，请，请正确地标记您的问题。如果添加[]没有区别，那么你就不应该发布包含这些内容的代码……当你这样做时，你只是在向代码中添加误导……在发布代码之前，始终将代码减少到仍然会出错的代码的最小数量。