Создать текстовый файл 2, в который переписать текст из файла 1, добавляя в конец кожной строки символ ";" - VB
Формулировка задачи:
Вот эти задания просто кошмар... У нас их вообще никто не может сделать...
Задание 1
Дан текстовый файл 1. Создать новий текстовый файл 2, в который переписать текст из файла 1 добавляя в конец кожной строки символ «;» .Решение задачи: «Создать текстовый файл 2, в который переписать текст из файла 1, добавляя в конец кожной строки символ ";"»
textual
Листинг программы
Option Explicit
'
' © Антихакер32™
'
Private Sub Form_Activate()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
With fso.CreateTextFile(App.Path & "\test.txt")
.Writeline "привет"
.Writeline "пиплы :)"
End With
'Считываем что записали
With fso.OpenTextFile(App.Path & "\test.txt")
Print .readline, , ";"
Print .readline, , ";"
End With
End Sub