Показать полную графическую версию : Помогите с паскалем!!!!!
Народ! Я учу паскаль, не могу разобраться как из .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
Огромное спасибо! попробую!
Так, это я понял, у меня в файле строка - число, мне нужно проверить это число больше или меньше "n"
такой вопрос - как преобразовать число в файле в integer например, пытался не получается!
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.