Работа с *.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