VBS добавление строк в текстовый файл без пробелов

Question

пытается выяснить, как изменить приведенный ниже код, чтобы добавить его в текстовый файл, который, как оказалось, имеет дополнительный CRLF в конце файла.Я получаю запутанные результаты в зависимости от того, куда я положил CHR (10).Любые идеи, как лишить CRLF или удалить пустую строку?Мне нужно закончить без лишних CRLF !!!

'Этот скрипт добавит строки в файл RandomCSV, если он не кратен 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  

Answer 1

Вот что я в итоге сделал, чтобы избавиться от CRLF в конце файла. Кажется, работает нормально:
«============================
'Избавиться от пустой строки в конце файла Dim strEnd

Const ForReading = 1 'Const ForWriting = 2

Set objFSO = CreateObject ("Scripting.FileSystemObject") Установите objFile = objFSO.OpenTextFile ("C: \ RandomCSV.txt", ForReading) strFile = objFile.ReadAll objFile.Close

intLength = Len (strFile) strEnd = Right (strFile, 2)

Если strEnd = vbCrLf, то
strFile = Left (strFile, intLength - 2)
Установите objFile = objFSO.OpenTextFile ("C: randomCSV.txt", ForWriting)
objFile.Write strFile
objFile.Close
Конец, если
strFile = ""