Проблема с последним переводом строки в текстовом файле

[Pantalone]

Давно не работал с файлами. Наверное детский вопрос.

Есть два текстовых файла, первый такой:

Код: Выделить всё

1
2



Второй такой:

Код: Выделить всё

1
2

Т.е. у второго нет перевода строки в конце последней строки.
Читаю файлы построчно через Line Input, запихивая строки в массив. Меняю текст в строках, после чего вывожу данные обратно в том же виде в новый файл. С первым файлом все проходит нормально, а у второго появляется ненужный перевод строки. Как я понял, это делает Print. Раскопал в инете, что если в конце Print поставить точку с запятой, то перевода строки не будет. Но как узнать был ли вообще перевод строки у файла в самом конце или нет?

[Teranas]

Возьми два байта в конце сформированного файла, да проверь на &H0D &H0A.

Код: Выделить всё

Function Get0D0A(file_ext As String) As Boolean
  Dim f As Integer, n As Long, b As Byte
  f = FreeFile
  Open file_ext For Binary As #f
    n = LOF(f)
    Get #f, n, b
  Close #f
  If b = &HA Or b = &HD Then Get0D0A = True
End Function


[Pantalone]

Спасибо.