Vbscript VB脚本在每个句子末尾添加空格

我必须创建一个脚本，该脚本执行以下操作：

• 接收文本文件作为输入
• 然后检查文本文件的每一行是否由1464个字符组成
• 如果不是，我需要添加足够的空白，使每行总共有1464个字符

我已经编写了以下脚本，但出现以下编译错误：

Microsoft VBScript runtime error: Object required: 'strLine'.

下面是代码

 Set objFS = CreateObject("Scripting.FileSystemObject")
    strFile = "c:\Users\ERP\Documents\testFile.txt"
    strTemp = "c:\Users\ERP\Documents\temp.txt"
    Set objFile = objFS.GetFile(strFile)
    Set objOutFile = objFS.CreateTextFile(strTemp,True)
    Set ts = objFile.OpenAsTextStream(1,-2)
    Do Until ts.AtEndOfStream
        strLine = ts.ReadLine
        strLineLength = Len(strLine)
        If strLineLength < 1464 Then
            strDiff = 1464-strLineLength
            strLine.Space(strDiff)
            objOutFile.Write(strLine)
        End If
    Loop
    objOutFile.Close
    ts.Close
    objFS.DeleteFile(strFile)
    objFS.MoveFile strTemp,strFile 

有人能告诉我我的语法有什么问题吗？

我想你需要：

strLine = strLine & Space(strDiff)

Space是一种方法，它接受许多空格来返回，在dotNet中，它是string类的一部分，但在VBScript/VBA中，我认为它是它自己的函数。如果没有，请尝试

String.Space(strDiff)

---

我猜错误就在这一行：

strLine=ts.ReadLine

因为变量没有声明。我想你需要

strLine=strLine&Space（strDiff）

我删除了你的vb.net和vba标记。这是VBScript，它与vb.net有很大不同，与VBA略有不同。

String.Space(strDiff)