Vbscript VBS向文本文件中添加不带空格的行

试图找出如何修改下面的代码以添加到一个文本文件中，该文件的末尾恰好有一个额外的CRLF。根据放置CHR（10）的位置，我会得到令人困惑的结果。有没有想过如何删除CRLF或删除空白行？我需要结束没有额外的CRLF的

'如果随机CSV文件不是20的倍数，此脚本将向该文件添加行。 '如果该文件已经是20的多个文件，则不应发生任何事情

dim filesys, readfile, contents, lines, remainder, LinesToAdd, StaticLine, Appendfile, Count  
dim field1, field2, field3, field4      
set filesys = CreateObject("Scripting.FileSystemObject")  
Set readfile = filesys.OpenTextFile("C:\RandomCSV.txt", 1, false)  
contents = readfile.ReadAll  
Lines = readfile.line  
readfile.close  
    MsgBox "The file contains this many lines " & Lines  
remainder = lines mod 20  
LinesToAdd = (20 - remainder)  
    MsgBox "Adding this many lines " & LinesToAdd  
If LinesToAdd <> 20 then  
   Set Appendfile = filesys.OpenTextFile("C:\RandomCSV.txt", 8, false)  
For Count = 1 to LinesToAdd  
    Appendfile.write Chr(34) & "Field1" & Chr(34) & Chr(44) & Chr(34) & "Field2" & Chr(34) & Chr(44) & Chr(34) & "Field3" & Chr(34) & Chr(44) & Chr(34) & "Field4" & Chr(10)  
Next  
appendfile.close  
End If  

dim filesys、readfile、contents、行、余数、LinesToAdd、StaticLine、Appendfile、Count
仪表板集成模块（dim）字段1、字段2、字段3、字段4
设置filesys=CreateObject（“Scripting.FileSystemObject”）
设置readfile=filesys.OpenTextFile（“C:\RandomCSV.txt”，1，false）
contents=readfile.ReadAll
Lines=readfile.line
readfile.close
MsgBox“文件包含这么多行”&行
余数=20模线
LinesToAdd=（20-余数）
MsgBox“添加这么多行”&LinesToAdd
如果行加20，则
设置Appendfile=filesys.OpenTextFile（“C:\RandomCSV.txt”，8，false）
对于Count=1的行，请添加
Appendfile.write Chr（34）&Field1&Chr（34）&Chr（44）&Chr（34）&Field2&Chr（34）&Chr（34）&Chr（34）&Field3&Chr（34）&Chr（44）&Chr（34）&Field4&Chr（10）
下一个
appendfile.close
如果结束

以下是我在文件末尾处理CRLF的步骤。似乎效果不错：
“=================================================
'删除文件末尾的空行 暗强度

常数ForReading=1 '写作常数=2

设置objFSO=CreateObject（“Scripting.FileSystemObject”） 设置objFile=objFSO.OpenTextFile（“C:\RandomCSV.txt”，用于读取） strFile=objFile.ReadAll objFile.Close

intLength=Len（strFile） 强度=右侧（标准件，2）

如果strEnd=vbCrLf，则
strFile=Left（strFile，intLength-2）
设置objFile=objFSO.OpenTextFile（“C:randomCSV.txt”，用于写入）
objFile.Write strFile
objFile.Close
如果

---

strFile=“”

家庭作业？有一个标签！我想你可以称之为家庭作业。客户希望它能在周二工作！