VPF::чтение текстового файла - Форум программистов

supervladislav

Дата 19.12.2006, 02:30 (ссылка)

(нет голосов)

Загрузка ...

///\\\///\\\///\\\

Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9

Код


program chisla;
uses crt;
type
stroky=record
vvedite:string[200];
end;
var
f as:record;
filetext:text;
procedure open(filetext:text;);
begin
readln(filetext);
assign(f,'c:\temp\file.txt');
reset(f);
while not eof (f) do
with f do
begin
read(f,filetext);
close(f);
writeln(filetext);
end;


end.

и уще подскажите пожалуйста как лучше организовать следущее
существует текстовый файл ,нужно каждую его строку измерить и записать в другой файл кол-во символов каждой строки.

Zero

Дата 19.12.2006, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(supervladislav @ 19.12.2006, 02:30

)

length(s) ─ функция возвращает размер строки.

Ещё что-то непонятно???

supervladislav

Дата 24.12.2006, 01:00 (ссылка)

(нет голосов)

Загрузка ...

///\\\///\\\///\\\

Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9

неопнятно зачем вопервых оператор with я несовсем понимаю
и как текстовый файл разбить построчно

skyboy

Дата 24.12.2006, 01:20 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260

supervladislav, with там набок не нужен. это раз.
при помощи readln текстовый читается построчно. Это два.
то есть, при каждом чтении при помощи readln в переменную заносится очередная строка из файла. причем, если переменная не позволяет полностью уместить в себе строку(например, имеет тип string[1]), то остаток строки будет просто проигнорирован - при следующем чтении будет обработана новая строка.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »