| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подсчет символов в текстовом файле [D7]
alex_pv2 © (2006-03-31 14:42:00)Всем доброго времени суток
возможно повторю чей нибудь вопрос.
Как можно лучше реализовать подсчет символов в текстовом файле, т.е.
такой-то символ встречается столько-то раз
alex_pv2 (2006-03-31 15:22:00) [1]убедили
MBo (2006-03-31 15:21:00) [2]>А вот до подсчета в файле расширить не хватает тяму
Ну уж цикл по строкам сам напиши
Рамиль (2006-03-31 15:19:00) [3]А кто мешает весь текст в строку загрузить?
alex_pv2 (2006-03-31 15:14:00) [4]мдя, со строкой получается преотлично
А вот до подсчета в файле расширить не хватает тяму
MBo (2006-03-31 14:49:00) [5]создать целочисленный массив, индексированный допустимыми символами, пробежать по символам всех строк, инкрементируя соотв. элемент массива.
например, для одной строки:
CharCounts: array[ #0..#255] of Integer;
FillChar(CharCounts, SizeOf(CharCounts),0);
for i:=1 to Length(s)
Inc(CharCounts[s[i]]);
| |
