Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Вопросы начинающих программистов
Перезагрузить страницу Позиция подстроки в текстовом файле
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Кsenia Кsenia вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 18.11.2010
По умолчанию Позиция подстроки в текстовом файле - 18.11.2010, 23:50

Задание.
Дан текстовый файл. Необходимо ввести с клавиатуры строку символов и выдавать на экран номер позиции в текстовом файле, начиная с которой эта подстрока в нём встречается, и соответствующее сообщение, если этой подстроки нет.
Мое предполагаемое решение, которое не катит:
program Project9_3;
{$APPTYPE CONSOLE}
uses
SysUtils;
var f:text;
p,s:string;
y:integer;
begin
Assign(f,'C:\c.txt');
writeln('Vvedite podstroku:');
read(p);
Reset(f);
while not eof(f) do
begin
read(f,s);
y:=pos(p,s);
end;
if(y=0)then writeln('Vvedennoi podstroki v dannom faile net!')
else begin
write('Podstroka nachinaetsya v faile s pozicii: ',y);
end;
CloseFile(f);
readln;
end.
__________________________________________________
и, наконец, ошибка, которая до меня не доходит:
[Pascal Warning] Project9_3.dpr(18): W1036 Variable 'y' might not have been initialized
... помогите пожалуйста..
Ответить с цитированием
  (#2 (permalink)) Старый
Зирк Зирк вне форума
Member
 
Сообщений: 1,337
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.04.2005
По умолчанию 19.11.2010, 01:32

если
delphi Код:
while not eof(f) do
достигается сразу, то
delphi Код:
write('Podstroka nachinaetsya v faile s pozicii: ',y);
выдаст белиберду, потому как y не инициализирована.
просто перед циклом напиши:
delphi Код:
y:=0;
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
поиск в текстовом файле serg544 Prolog 5 13.12.2014 02:09
Программа изменения правого отступа в текстовом файле Локи Delphi 0 20.03.2012 23:28
Подсчет колличества определенного слова в текстовом файле oaoioae Вопросы начинающих программистов 1 15.01.2011 19:21
Вычисление количества строк в текстовом файле Chelentano Delphi 11 05.08.2006 03:02
Нужен алгоритм поиска в текстовом файле Аваддон C++ Builder 4 02.04.2006 09:11
Изменение в текстовом файле. imported_Lio Visual Basic 6 27.11.2005 06:40
Как сосчитать строки в текстовом файле ДэN Вопросы начинающих программистов 4 04.04.2005 00:57
Как прописать код что бы программа в С++ сохранялась в текстовом файле Fighter Вопросы начинающих программистов 5 22.03.2005 09:23
Как сделать что бы в текстовом файле хранилось тридцать чисел Dimmage Вопросы начинающих программистов 17 11.11.2004 00:44
Обработка записей в текстовом файле Anonymous Delphi 13 08.12.2003 01:32
Как определить количество строк в текстовом файле Anonymous Visual C++ 1 14.11.2003 16:19
Как осуществить поиск заданной подстроки в текстовом файле Anonymous Visual C++ 6 21.05.2003 13:29



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов