Имеется текстовый файл. Напечатать все строки, содержащие в качестве фрагмента заданный текст

@ssssa · Регистрация: 10.12.2013

...

@JokeR.BY · 17.05.2015, 14:46

Pascal

var
    f: Text;
    fi, s: String;
begin
    Write('s: '); ReadLn(s);
    Assign(f, 'f.txt'); Reset(f);
    while (Not EoF(f)) do
    begin
        ReadLn(f, fi);
        if (Pos(s, fi) <> 0)
        then
            WriteLn(fi);
    end;
    Close(f);
end.

@ssssa 0 / 0 / 0 Регистрация: 10.12.2013 Сообщений: 14
		1
	Имеется текстовый файл. Напечатать все строки, содержащие в качестве фрагмента заданный текст 17.05.2015, 13:06. Показов 1862. Ответов 1 Метки нет (Все метки) ... 0

Опции темы

Имеется текстовый файл. Напечатать все строки, содержащие в качестве фрагмента заданный текст

Решение