Дана строка S и текстовый файл. Добавить строку S в начало файла - VB

Узнай цену своей работы

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

Text7. Дана строка S и текстовый файл. Добавить строку S в начало файла.

Решение задачи: «Дана строка S и текстовый файл. Добавить строку S в начало файла»

textual
Листинг программы
Dim S As String
s="Text7. Дана строка S и текстовый файл. Добавить строку S в начало файла." 
Open "D:\tmp.txt" For Input As 1
S =s & vbcrlf & Input$(LOF(1), #1)
Close 1
 
Open "D:\tmp.txt" For output As 1
print #1,s
Close 1

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

5   голосов , оценка 3.4 из 5
Похожие ответы