Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   ЧАВО - Частые Вопросы и Ответы    >>    findstr
   
 
 FIL. Как найти строку в текстовом файле   Victor Shantar 15.12.1997

Простейший способ поиска строки в текстовом файле с помощью READLN и прямого сравнения строк, либо нахождения подстроки в строке.


 
 

> Мир твоему дому Alex. Однажды 14 Dec 97 18:01, Alex Dmitrievskiy писал к Alexander Averbuh, а я вмешался: AD> А как в текстовом файле найти стpокy ? 2All - уууу... Это надолго... { Hайти строку } var t:text; s,s1:string; count:word; begin readln(s); { Вводим строку для поиска } assign(t,'text.txt');reset(t); s1:=''; count:=0; while not eof(t) and (s<>s1) do begin readln(t,s1); inc(count); end; writeln('искомая строка является ',count,' строкой в файле'); close(t); end. { Hайти подстроку (слово) } var t:text; s,s1:string; count:word; begin readln(s); {вводим подстроку} assign(t,'text.txt'); reset(t); s1:=''; count:=0; while not eof(t) and (pos(s,s1)=0) do begin readln(t,s1); inc(count); end; writeln('буквосочетание "',s,'" найдено в строке N ',count,':'); writeln(s1); close(t); end. > With best wishes and regards. ћ Как мало программ остается в первоначальном виде. Так давайте слать исходники, чтоб проще было их изменять. :) --- [Hedgehog House] Phone: +7-3422-622044 Work Time: 00:00 - 07:30 Local * Origin: Это не GoldEd. Это примочка к Д00Му для написания писем. (2:5054/26)