Question

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

接收文本文件作为输入
然后检查文本文件的每一行是否由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.Space(strDiff)

有人能指出我的语法有什么问题吗？

Answer 1

我想你想要：

strLine = strLine & Space(strDiff)

Space是一个接收大量空格的方法，在dotNet中，它是字符串类的一部分，但在VBScript / VBA中，我认为它是它自己的函数。如果没有，请尝试

String.Space(strDiff)

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

1 个答案: