Работа с *.txt - VB

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

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

Подскажите пожалуйста, как реализовать поиск в текстовом файле, а после удаление найденного текста?

Решение задачи: «Работа с *.txt»

textual
Листинг программы
Dim S As String
Open "D:\tmp.txt" For Input As 1
S = Input$(LOF(1), #1)
Close 1
S = Replace(S,inputbox("ЧТО УДАЛЯЕМ ?","Скажите пожалуйста -"), vbNullString)
Open "D:\tmp.txt" For Output As 1
Print #1, S
Close 1

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


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

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

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