Удаление строк из файла - VB
Формулировка задачи:
Здравствуйте,
Есть TXT файл с примерным содержимым:
Нужно удалить все строки в которых присутствует текст: "http"
удалить все ссылки..
Читаю файл построчно до конца файла в переменную: CuString отслеживаю когда попадается текст "http" в ней, но не знаю как стирать эти строчки из файла.. В какую сторону рыть ?
qwerty
123456
qwe123
123
1http://site.ru/http://site2.ru
asdfghjkl
2342c3http://site3.ru/index.html
Решение задачи: «Удаление строк из файла»
textual
Листинг программы
FindText = "http://site.ru/" Const ForReading = 1 Const TristateFalse = 0 Set FSO = CreateObject("Scripting.FileSystemObject") FileName = "" & CommonDialog1.FileName & "" Set F = FSO.OpenTextFile(FileName, ForReading, TristateFalse) WorkStrAll = F.ReadAll WorkStrAll = Replace(WorkStrAll, "" & FindText & "", "") Set F = FSO.CreateTextFile(FileName, True) F.Write (WorkStrAll) F.Close
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д