Работа с файлами

← →
Hortik (2008-04-09 16:53) [0]

Как прочитать файл и подсчитать :
1) Общее количество символов
2) Количество необходимого символа

← →
Jeer © (2008-04-09 16:56) [1]

Взять книжку по Pascal и почитать.

← →
{RASkov} © (2008-04-09 17:26) [2]

> [0] Hortik (09.04.08 16:53)

До чего ленивый народ стал :( Даже более того - наглый...
Что тебе в твоем задании не понятно-то?

← →
Dark © (2008-04-09 21:33) [3]

repeat...until и EOF + F1

← →
AIK © (2008-04-09 21:47) [4]

Эт домашнее задание двоечника

← →
Германн © (2008-04-10 00:49) [5]

> Hortik (09.04.08 16:53)
>
> Как прочитать файл и подсчитать :
> 1) Общее количество символов
> 2) Количество необходимого символа
>

Вообще-то файлы содержат только байты. Символы существуют только в документах (ЧБИП).

← →
Hortik (2008-04-10 01:05) [6]

Читаю книжку по паскалю Ни как не могу понять как прочитать файл
по символьно.
Как это сделать нужно. Может объясните ?

← →
Германн © (2008-04-10 01:09) [7]

> Hortik (10.04.08 01:05) [6]
>
> Читаю книжку по паскалю Ни как не могу понять как прочитать
> файл
> по символьно.
> Как это сделать нужно. Может объясните ?
>

Не надо его читать "посимвольно". (Тем более с учетом Германн © (10.04.08 00:49) [5])
Читай весь файл в буфер, а потом разбирайся сколько в этом буфере "символов".

← →
Hortik (2008-04-10 01:14) [8]

В буфер загнать процедурой
BlockRead() ?

← →
Германн © (2008-04-10 01:19) [9]

> Hortik (10.04.08 01:14) [8]
>
> В буфер загнать процедурой
> BlockRead() ?
>

Да. Если ты используешь стандартный для паскаля способ работы с файлами.
А вообще в Дельфи есть много таких способов.

P.S. И всё-таки уточни. Что есть "символ" в твоём понимании. Тогда и помощь может быть более существенна.

← →
Hortik (2008-04-10 01:21) [10]

Если не сложно объясните как работать с процедурой BlockRead()

← →
korneley © (2008-04-10 01:25) [11]

И о "Количество необходимого символа" тоже, как-то, неясно. Кому необходимого?

← →
Германн © (2008-04-10 01:39) [12]

> Hortik (10.04.08 01:21) [10]
>
> Если не сложно объясните как работать с процедурой BlockRead()
>

Справку по BlockRead посмотрел? Там и пример есть. Что непонятно?

← →
Hortik (2008-04-10 01:46) [13]

Вобщем спарвка у меня чето заглюченная нет руских слов все буквы испорченые.
Поэтому спрашиваю у вас....

← →
Германн © (2008-04-10 01:53) [14]

> Hortik (10.04.08 01:46) [13]
>
> Вобщем спарвка у меня чето заглюченная нет руских слов все
> буквы испорченые.
> Поэтому спрашиваю у вас....
>

А в "спарвке" и не было никогда русских букв. Только латинские!
Поэтому иди на север.

← →
Hortik (2008-04-10 01:57) [15]

ВОИ ГДЕ ТУТ ЛАТИНСКИЕ БУКВЫ !!!!!!!!

Њ®¤г«м Crt
ЯЯЯЯЯЯЯЯЯЯЯ
‚ ¬®¤г«Ґ Crt (Crt.TPU Ё«Ё Crt.TPP) е®¤пвбп
¬®йлҐ Ї®¤Їа®Ја ¬¬л, Є®в®алҐ ¤ ов ў ¬

ў®§¬®¦®бвм Ї®«®Ј® гЇа ў«ҐЁп ў®§¬®¦®бвп¬Ё
ў иҐЈ® PC.

Џ®¤Їа®Ја ¬¬л ¬®¤г«п Crt ®ЎҐбЇҐзЁў ов Є®ва®«м
¤ вҐЄбв®ўл¬Ё аҐ¦Ё¬ ¬Ё нЄа , а биЁаҐл¬Ё
Є®¤ ¬Ё Є« ўЁ вгал, жўҐв ¬Ё, ®Є ¬Ё Ё §ўгЄ®¬.

Crt ¬®¦Ґв ЁбЇ®«м§®ў вмбп в®«мЄ® ў Їа®Ја ¬¬ е,
ЇаҐ¤ § зҐле ¤«п IBM PC, AT, PS/2 Ё
Ї®«®бвмо б®ў¬ҐбвЁ¬ле.

”гЄжЁЁ Ё Їа®жҐ¤гал Crt
ЏҐаҐ¬ҐлҐ Crt

← →
Германн © (2008-04-10 02:05) [16]

> Hortik (10.04.08 01:57) [15]

О, боже! И откуда ты это скопипастил?

← →
Hortik (2008-04-10 02:06) [17]

Да!!! ответа я сегодня не получу . ВСЁ
Пойду спать.

> Hortik (10.04.08 02:06) [17]
>
> Да!!! ответа я сегодня не получу . ВСЁ
> Пойду спать.
>

"Утро вечера мудреней!" (с) Народная мудрость.

> [16] Германн © (10.04.08 02:05)
> О, боже! И откуда ты это скопипастил?

Возможно это первые плоды перевода MSDN на русский ?
(В "потрепаться" ветка была)

:)

На те если ты работаешь на паскале то что выделено ///// не пиши:

Function KolSim(Put: String): integer; var f:TextFile; S: String; x: integer; begin x:= 0; If FileExists(Put) then //// Begin //// assignFile(F, put); reset(f); While not eof(f) do Begin readln(f, s); X:=X+ Length(s); End; Result:=x; end; //// end; Function KolVibSim(Put: String; Sim :Char): integer; var f:TextFile; S: String; x, i: integer; begin x:= 0; If FileExists(Put) then //// Begin //// assignFile(F, put); reset(f); While not eof(f) do Begin readln(f, s); For i:=0 to Length(s) do If s[i]= sim then inc(x); End; Result:=x; end; //// end;

> AIK © (10.04.08 07:28) [20]

А потом это чудо напишет в резюме "Уверенное знание Pascal". А когда придёт на испытательный срок и получит задание - снова выскочит сюда, как Fr1K ©. И ты снова ему напишешь и он получит эту работу. А тебя на неё не возьмут, т.к. уже взяли его.

> ВОИ ГДЕ ТУТ ЛАТИНСКИЕ БУКВЫ !!!!!!!!

Там же на русском все! Радуйся!

Работа с файлами Найти похожие ветки