![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин Подтвердите свой е-майл
Регистрация: 21.01.2007
Сообщений: 193
|
![]()
подскажите пожалуйста, оч. срочно нужно
задача такая: необходимо подсчитать в текстовом файле кол-во слов написал кусочек проги: Код:
![]() |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
Если после слова нет разделителя, то как вы определяете, что это два слова?
|
![]() |
![]() |
![]() |
#4 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
![]()
Добавьте символ конца строки
if v in [' ',':', ';', ',', '.', #13] then |
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
Eoln - конец строки, это комбинация символов ASCII #13 (CR) и #10 (LF);
|
![]() |
![]() |
![]() |
#7 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
![]()
А последняя строка у вас завершена Eoln? Enter после ввода давили? Если нет, то там нет завершающего строку символа. Тогда после цикла к k_word сами добавляйте единичку.
|
![]() |
![]() |
![]() |
#8 | |
Форумчанин Подтвердите свой е-майл
Регистрация: 21.01.2007
Сообщений: 193
|
![]() Цитата:
код изменил: if v in [' ',':', ';', ',', '.', #10, #13] then |
|
![]() |
![]() |
![]() |
#9 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
![]()
А зачем и #13, и #10 (они же стоят друг за другом) - или то или другое...
|
![]() |
![]() |
![]() |
#10 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
Во первых не #10, #13, а #13,#10,важна последовательнось. Кроме того комбинация символов (по крайней мере в Делфи) это #13+#10. Попробуйте, если не получится, придется считывать текст построчно и считать слова в строчках, сейчас найду этот код.
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с текстовым файлом | GazimagomedovM | Помощь студентам | 12 | 17.07.2008 18:24 |
Работа с текстовым файлом (delphi). Помогите доделать программу. | Snord | Помощь студентам | 1 | 14.12.2007 14:10 |
Работа с текстовым файлом | nataly_ukr | БД в Delphi | 23 | 07.12.2007 22:13 |
Работа с текстовым файлом! | Edimus | Общие вопросы C/C++ | 10 | 19.11.2007 10:31 |
Модуль, работа с текстовым файлом | Soul | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 21.05.2007 20:30 |