Запись в текстовый файл: с каждой записью создается новая пустая строка - VB

Формулировка задачи:

Здравствуйте, подскажите пожалуйста как записать данные в текстовый файл? Моим способом запись производится успешно,но с каждой записью создает новую пустую строчку.

Private Sub Command4_Click()
F = FreeFile
Open App.Path & "\Запись.txt" For Output As #F
Print #F, Text1.Text
Close #F
End Sub

И получается в итоге нужная запись и куча пустых строчек. Заранее спасибо.

Решение задачи: «Запись в текстовый файл: с каждой записью создается новая пустая строка»

textual
                            Листинг программы 
                        

                            Private Sub Command4_Click()
F = FreeFile
 
  Open App.Path & "\Г‡Г*ГЇГЁГ±Гј.txt" For Output As #F
    Print #F, Text1.Text;
  Close #F
End Sub
                        

Оцени полезность:

8 голосов , оценка 3.875 из 5

Похожие ответы