Как написать текстовый файл без [0D 0A(VBCRLF)] в конце, используя vba

Question

Я разрабатываю процесс, который

Скопируйте текстовый файл и отредактируйте содержимое текстового файла в соответствии с данными Excel, используя FileSystemObject.

Хотя код разрыва строки исходного текстового файла равен [0A(VBLF)],

после редактирования код разрыва строки обновленного текстового файла становится [0D 0A(VBCRLF)].

Я хотел бы написать код разрыва строки в виде исходного текстового файла.

Каков наилучший способ сделать это? Заранее спасибо.

Answer 1

Если вы пишете текстовый файл построчно, вы можете выбрать разрыв строки

Sub sampleWriteVBLF()

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objFile = fso.CreateTextFile("D:\test.txt", True)

    objFile.Write "Hello" & vbLf
    objFile.Write "World" & vbLf

    objFile.Close

End Sub

            VBA       VBA               HEX     NAME
LF    \n    VbLf      Chr(10)           0x0A    Line Feed
CR    \r    VbCr      Chr(13)           0x0D    Carriage Return
CR+LF \r\n  VbCrLf    Chr(10)&Chr(13)   0x0D0A  Carriage Return Line Feed    

Редактировать: Вы должны использовать .write потому что .WriteLine всегда будет добавлять дополнительный перевод строки CRLF. Но у вас уже есть разрыв строки LF