Отключение комбинации Chr(13)+Chr(10) в Print#

[Ronin_1978]

Суть проблемы:
Нужно создать txt-шник такого типа:

Строка1
Строка2
Строка3
...
СтрокаN

Я пишу строки в файл при помощи Print#, однако он добавляет к каждой строке Chr(13)+Chr(10). В итоге в конце получается пустая строка. Как этого избежать?

З.Ы. Write# ведёт себя так же.

[Vitaly1]

По мойму, если я не шибаюсь, не надо объявлять файл как текстовый.

И еще смутно вспоминаю, может быть надо заканчивать список print ;

[Oxygen]

А мне кажется, что при выводе последней строки просто не надо указывать переход на следующую строку, т.е. поставь проверку, если строка не последняя, то переходи на новую строку, а если нет, то не переходи, и еще после Print можно использовать ";" - это уже переход на следующую строку, но по-моему, у тебя все-равно будет пустая строка в конце, так, что юзай условия.

[GSerg]

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

Option Explicit

Private Sub Form_Load()
  Dim i As Long
 
  Open "c:\1.txt" For Output Access Write As #1
 
  For i = 1 To 10
    If i = 10 Then Print #1, "Ага!"; Else Print #1, "Ага!"
  Next
 
  Close #1
End Sub

[Vitaly1]

GSerg Абсолютно прав, если список Print заканчавется точкой с запятой ";", то Print не переводит строки в текстовом файле, если конечно строка не заканчивается комбинацией двух символов с десятичными кодами 13 и 10. Мало того, если в Print имена строковых переменных разделены точкой с запятой";", то они в текстовый файл выводятся плотно к друг-другу.
Еще, кое что, если в текстовом файле есть символ с десятичным кодом 26, то функция Eof считает что файл заканчивается именно на этом символе.

[Ronin_1978]

Всем спасибо, всё заработало!!!