Поиск по текстовому файлу

[Max_Grinyuk]

Всем доброго времени суток!
Задали работу в паскале, но никак не могу сделать поиск, ужи сил не хватает, надеюсь поможете!
Есть текстовый файл с фамилиями. Нужно найти в файле фамилии начинающиемся на заданные буквы. Буква может быть одна (то есть все фамилии на букву В к примеру), или 2 буквы (то есть все фамилии на ИВ), и так далее.
А потом результаты поиска нужно записать в другой текстовый файл.
Я уже ппц измучался, у меня находит нужную фамилию (если полностью её ввести) и все фамилии, за ней идущие... Подскажите пожалуйста!!!

Не удаляйте мой вопрос!!!!

[Max_Grinyuk]

Можно ещё раз написать текст программы?

[Alex Cones]

Pos + Дублирование содержимого файла для удаления найденного результата для поиска следующего

[ОДИНОЧЕСТВО В СЕТИ]

Можно ещё раз написать текст программы?

а зачем?-- Mihali4 все равно снесет!
читайте ЛС

[Max_Grinyuk]

а зачем Mihali4 все равно снесет!

почему?(((((

[Max_Grinyuk]

А можно mail написать? Я просто винду недавно переустанавливал, аську не установил ещё.

[ОДИНОЧЕСТВО В СЕТИ]

почему?(((((

потому что читать надо правила раздела прежде чем что-нибудь постить!

А можно mail написать? Я просто винду недавно переустанавливал, аську не установил ещё.

можно тока я его читать не буду так как ящиком не пользуюсь и пароль к нему не помню!
усе теперь точно снесут

[Max_Grinyuk]

Ок, в асю напишу, завтра скорее всего. СПС.

[LeBron]

Сообщение от Alex Cones

Pos + Дублирование содержимого файла для удаления найденного результата для поиска следующего

Pos придеться ручками прописывать и с учетом пробела. Ведь стандартный найдет и букву внутри слова, если она с какой-то радости не в том регистре. Что еще более важно - стандартный вроде бы только первое вхождение ищет.

[Alex Cones]

Что еще более важно - стандартный вроде бы только первое вхождение ищет.

Потому и делаем дублирование:
1) Копируем содержимое файла в Peremennaya1
2) Pos`ом ищем первое попадание
3) Копируем эту строку\слово туда, куда надо
4) Удаляем в Peremennay1 эту строку
5) Идем на шаг 2, пока пос не покажет "0".

А чтоб искал только с начала следующей строки - Можно попробовать Pos(#13+'Ша',S);