Замена символов в файле - VB
Формулировка задачи:
Доброго времени суток!
У меня проблема. Надо написать программу, которая будет изменять символы в текстовой файле
(напрмер символы "83513" заменить на "текст").
То, что имеется у меня сейчас просто очищает файл и когда я проверяю работу программы, оказывается файл пустой.
Решение задачи: «Замена символов в файле»
textual
Листинг программы
Option Explicit Private Sub Комманда1_Click() Dim file As String, CF As String, F As String file = "C:\Users\%UserName%\Desktop\folder\12.txt" Open file For Binary As #1 CF = Input(FileLen(file), 1) Close #1 F = Replace(CF, "83513", "tekst") Open file For Output As #1 Print #1, F Close #1 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д