Работа с *.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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д