Народ! Я учу паскаль, не могу разобраться как из .txt файла, взять конкретную строку, например которая начинается на цифру или букву и.д.
Как пробежаться по строкам?
Заранее благодарен!
|
| BrutalBit |
03-05-2004 22:18 205653 |
Цитата:
Народ! Я учу паскаль, не могу разобраться как из .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;
[s]Исправлено: BrutalBit, 22:20 3-05-2004[/s] |
Огромное спасибо! попробую!
|
Так, это я понял, у меня в файле строка - число, мне нужно проверить это число больше или меньше "n"
такой вопрос - как преобразовать число в файле в integer например, пытался не получается!
|
| JCooper |
04-05-2004 21:51 205656 |
Guest процедурой Val.
|
Время: 18:23.
© OSzone.net 2001-
