Войти

Показать полную графическую версию : Помогите с паскалем!!!!!


Guest
03-05-2004, 21:21
Народ! Я учу паскаль, не могу разобраться как из .txt файла, взять конкретную строку, например которая начинается на цифру или букву и.д.
Как пробежаться по строкам?
Заранее благодарен!

BrutalBit
03-05-2004, 22:18
Народ! Я учу паскаль, не могу разобраться как из .txt файла, взять конкретную строку, например которая начинается на цифру или букву и.д.
var s: string;
     f: text;
begin
assign(f,'myfile.txt');
reset(f);
while not eof(f) do  {крутим цикл, пока не дойдем до конца файла}
begin
  readln(f,s); {считываем строку}
    if s[1] = буква_или_цифра then {проверяем первый символ}
     begin
       {делаем, что нужно}
     end
     else
end;
close(f);
end.

Если нужно считывать не всю строку сразу,а числа или буквы по отдельности,то
while not seekeof(f) do
begin
  while not seekeoln(f) do
    begin
       {в этом цикле считываем нужные нам числа или буквы процедурой read}
     end;
 readln(f);{переход на новую строку}
end;


Исправлено: BrutalBit, 22:20 3-05-2004

Guest
04-05-2004, 13:13
Огромное спасибо! попробую!

Guest
04-05-2004, 16:11
Так, это я понял, у меня в файле строка - число, мне нужно проверить это число больше или меньше "n"
такой вопрос - как преобразовать число в файле в integer например, пытался не получается!

JCooper
04-05-2004, 21:51
Guest процедурой Val.




© OSzone.net 2001-2012