End Sub. Можно открыть этот файл с помощью Блокнота или в любом текстовом редакторе и

Можно открыть этот файл с помощью Блокнота или в любом текстовом редакторе и посмотреть его. Или напишем в нашей программе свой код, чтоб считать этот файл в Text1 и сразу его посмотреть.
В принципе, если это надо, оператор Print # может форматировать текст, т.е. менять отступы от края, вставлять пробелы, но только между переменными, а не конечно в середину, скажем, нашего текста. Для этого используется аргументы Spc (количество пробелов) для введения пробелов и Tab(номер столбца) для вывода данных по столбцам. Положим на форму еще текстбокс Text2 и кнопку Command5 и в ее процедуре напишем код для форматированной записи. Потом считаем наши записи в Text2 с помощью оператора Line Input. (Не забыть поставить свойства Text2:свойство Multiline поставим в True, а свойство ScrollBars в 2 - Вертикаль.

Private Sub Command5_Click()

F = FreeFile

Open App.Path & "\Запись.txt" For Output As #F

Печатаем тексты с 15-й позиции

Print #F, Spc(15); "Я вывожу этот текст"

Print #F, Spc(15); "очень красиво"

Print #F, Spc(15); "потому, что я настоящий"

Print #F, Spc(15); "ПРОГРАММИСТ"

Печатаем пустую строку

Print #F,'печатаем тексты в 30-ем, 40-м и 50-м стобцах соответственно

Print #F, Tab(30); "тридцатый столбец"

Print #F, Tab(40); "сороковой столбец"

Print #F, Tab(50); "пятидесятый столбец"

Дата добавления: 2015-07-19