vbscript - すべての文の最後に空白を追加する VB スクリプト

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)

誰かが私の構文の何が問題なのか教えてもらえますか?