Как найти слово в файле паскаль

Решение на Pascal ABC

var f1: text;
i: integer;
stroka, slovo: string;
begin
Assign(f1, ‘input.txt’);
Reset(f1);
write (‘slovo=’);
readln (slovo);
i:=0;
while not Eof(f1) do
begin
readln (f1, stroka);
if slovo in stroka then inc(i);
end;
Close(f1);
if i <> 0 then writeln (‘Слово есть в файле’)
else writeln (‘Слово отсутствует, в файле’);
end.

Капитан ГуглИскусственный Интеллект (145967)

6 лет назад

На Паскале точно так же.
Просто этому не хочется ничего читать или хотя бы искать в гугле, ему хочется, чтобы за него все сделали Двое из Ларца.

Есть код для поиска строк:

procedure Form4.button1_Click(sender: Object; e: EventArgs);
var F:TextFile;// Переменной присваивается значение TextFile
Str:string;// Переменной присваивается значение String
begin
  Assign(F,'C:UsersНеизвестенDesktopЗаписнаяnomer.txt');
  reset(F);// Открывает текстовый файл для чтения
  while not eof(F) do// Цикл, который перебирает строки 
   begin
      readln(F, Str);// Ввод словабуквыцифры для поиска строки
      if pos(textbox1.text, Str)>0 //  есть ли словобуквацифра в строке
      then
      textbox2.text:= str; // Вывод строки в текстбокс
   end;
   CloseFile(F);// Закрыть файл
end;

Код работает но возникла проблема. Допустим у меня есть в файле такая информация:

12345 Максим

67890 Максим

При вводе “Максим” мне выдает только посл. строку. А надо все строки в которых есть это слово. Как это организовать?

задан 28 мая 2014 в 7:24

textbox2.text:= str;

textbox2.Text:= textbox2.Text + #13#10 + str;

1

06 окт 2008, 14:02

Читайте про функцию POS, применять для каждой строки исходного текста. Если слово (подстрока) в строке файла найдено, то поиск для этой строки повторить с позиции после найденого слова.

It’s a long way to the top if you wanna rock’n’roll

06 окт 2008, 16:43

в цикле считать строку
Разбивать на слова
Если очередное слово совпадает с заданным, то:
    функцией textcolor меняем цвет шрифта
    выводим слово
    той же функцией меняем цвет обратно (вроде бы светло-серый - 11?)
Если же нет - просто выводим слово

Искусство программирования – заставить компьютер делать все то, что вам делать лень.
Для “спасибо” есть кнопка “Спасибо” в виде звездочки внизу под ником автора поста.

08 окт 2008, 10:16

Эм, а не могли бы вы хоть какойто код выложить, я уже 5 день голову ломаю.

08 окт 2008, 11:25

  uses crt;
....
begin
  ClrScr;
  Assign(F,'source.txt');
  Reset(F);
  While Not Eof(f) do begin
     Readln(F,s);
     WriteLn(s)
  end;
  Close(F);
end.

08 окт 2008, 14:55

Да, я таким и выводила. Размер файла не ограничен. Там может быть хоть целая книга. Даже может бы ть одно и тоже слово несколько раз, хотя это в задании не сказано.

08 окт 2008, 15:04

PROGRAM seach_;
VAR
  T, F: TEXT;
  Sl, Ch1,Ch2, Ch3: CHAR;
  Ch: STRING;
  Counter, Counter2: INTEGER;
PROCEDURE search;
BEGIN
  Ch1 := ' ';
  Ch2 := 'Y';
WHILE (NOT EOF(T)) AND (Ch2 = 'Y')
DO
  BEGIN
  READ(T, Ch1);
  IF (Ch1 = Sl)
  THEN
    BEGIN
      Ch2 := 'N';
      WRITE(Ch1);
      Ch := Ch1;
    END;
  END;
END;
PROCEDURE Ost;
BEGIN
  IF Sl <> ' '
  THEN
    BEGIN
      READ(Sl);
    END;
END;
BEGIN
  ASSIGN(T, 'Text1.txt');
  ASSIGN(F, 'File.txt');
  RESET(T);
  REWRITE(F);
  Counter := 0;
  Counter2 := 0;
  WRITE('Введите слово: ');
  WHILE NOT EOLN
  DO
    BEGIN
      READ(Ch);
      WRITE(F, Ch);
    END;
  RESET(F);
  WHILE NOT EOLN
  DO
    BEGIN
      READ(F, Ch3);
      Counter := Counter + 1;
    END;
  WHILE NOT EOLN(F)
  DO
    BEGIN
      READ(F, Sl);
      WHILE Counter2 <> Counter
      DO
        BEGIN
          Search;
          ost;
          Counter2 := Counter2 + 1;
        END;
    END;
END.