Форум: "Начинающим";
Текущий архив: 2008.05.11;
Скачать: [xml.tar.bz2];
Вниз
Работа с файлами Найти похожие ветки
← →
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]Да!!! ответа я сегодня не получу . ВСЁ
Пойду спать.
← →
Германн © (2008-04-10 02:13) [18]
> Hortik (10.04.08 02:06) [17]
>
> Да!!! ответа я сегодня не получу . ВСЁ
> Пойду спать.
>
"Утро вечера мудреней!" (с) Народная мудрость.
← →
Riply © (2008-04-10 02:41) [19]> [16] Германн © (10.04.08 02:05)
> О, боже! И откуда ты это скопипастил?
Возможно это первые плоды перевода MSDN на русский ?
(В "потрепаться" ветка была)
:)
← →
AIK © (2008-04-10 07:28) [20]На те если ты работаешь на паскале то что выделено ///// не пиши:
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;
← →
Ega23 © (2008-04-10 07:43) [21]
> AIK © (10.04.08 07:28) [20]
А потом это чудо напишет в резюме "Уверенное знание Pascal". А когда придёт на испытательный срок и получит задание - снова выскочит сюда, как Fr1K ©. И ты снова ему напишешь и он получит эту работу. А тебя на неё не возьмут, т.к. уже взяли его.
← →
Loginov Dmitry © (2008-04-10 07:46) [22]> ВОИ ГДЕ ТУТ ЛАТИНСКИЕ БУКВЫ !!!!!!!!
Там же на русском все! Радуйся!
← →
AIK © (2008-04-10 07:58) [23]
> Ega23 © (10.04.08 07:43) [21]
ыыы... :(
Признаю вину, так отмахнул с ответом
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.05.11;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.006 c
