Удаление текста до первого вхождения слова из текстового файла - VB
Формулировка задачи:
Добрый день!
Необходима помощь в доработке кода на VB. Удаление текста до первого вхождения слова "Привет" из текстового файла(txt). Есть наработки, НО если в тексте слово "Привет" встречается несколько раз то удаляется текст до последнего вхождения слова, что не есть хорошо. Т.е. нужно следующее:
Есть текст в файле:
как
так
Привет
если
тогда
Привет
куда
зачем
После выполнения кода должно остаться:
Привет
если
тогда
Привет
куда
зачем
Сейчас у меня остается:
Привет
куда
зачем
Решение задачи: «Удаление текста до первого вхождения слова из текстового файла»
textual
Листинг программы
Dim st As String, pos As Long Open "C:\CTI\LOG\CtiDriver.2013-04-13.log" For Binary As #1 st = Space$(LOF(1)) Get #1, , st Close 1 pos = InStr(1, st, "Привет") 'st = Right$(st, pos) st = Mid(st, pos, Len(st) - pos) Kill "C:\CTI\LOG\CtiDriver.2013-04-13.log" Open "C:\CTI\LOG\CtiDriver.2013-04-13.log" For Binary As #1 Put #1, , st Close 1
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д