Удаление строк из файла - VB

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

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

Здравствуйте, Есть TXT файл с примерным содержимым:
qwerty 123456 qwe123 123 1http://site.ru/http://site2.ru asdfghjkl 2342c3http://site3.ru/index.html
Нужно удалить все строки в которых присутствует текст: "http" удалить все ссылки.. Читаю файл построчно до конца файла в переменную: CuString отслеживаю когда попадается текст "http" в ней, но не знаю как стирать эти строчки из файла.. В какую сторону рыть ?

Решение задачи: «Удаление строк из файла»

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

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


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

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

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