Замена символов в файле - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

12   голосов , оценка 3.833 из 5