Удаление текста до первого вхождения слова из текстового файла - 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

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


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

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

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