Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

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

 
romario ©   (2010-04-25 18:27) [0]

Программа должна:
- построить словарь, в котором в алфавитном порядке упорядочены все встретившиеся слова (повторяющиеся слова дважды в словарь не включаются);
- сосчитать количество повторений каждого слова;
- сохранить файл словаря в текстовом формате, включая количество повторений.
Даже не знаю с какой стороны начать обработку файла???


 
Anatoly Podgoretsky ©   (2010-04-25 18:32) [1]

> romario  (25.04.2010 18:27:00)  [0]

Начинай со чтения строки - Readln


 
DVM ©   (2010-04-25 18:43) [2]


> Даже не знаю с какой стороны начать обработку файла???

TStringList.LoadFromFile


 
oldman ©   (2010-04-26 09:32) [3]


> повторяющиеся слова дважды в словарь не включаются


А несколько падежей одного слова это разные слова?
Нет?
У тебя проблемы...
Да?
На фиг нужен такой словарь...


 
romario ©   (2010-04-26 15:26) [4]

Старый мэн ты прав :), лучше буду делать другое задание...


 
Anatoly Podgoretsky ©   (2010-04-26 16:19) [5]

А если другое задание окажется нормальным заданием, а не таким детским, будешь следующее брать?


 
romario ©   (2010-04-26 16:22) [6]

Для кого то может и детское, для меня точно нет, ибо я учусь заочно, начитали нам курс про переменные и процедуры без одной практики ...
и дали вот такие задания :(


 
romario ©   (2010-04-26 16:49) [7]

Уважаемый Анатолий!
все таки лучше когда выложить пример в котором можно разобраться, чем показывать свое превосходство в знании программирования...


 
RWolf ©   (2010-04-26 16:54) [8]


> с какой стороны начать обработку файла???

Если принять, что все слова разделяются пробелами, то можно сделать так:
1) создать StringList, установить разделитель пробел, запретить дубликаты
2) StringList.LoadFromFile("текст.txt")
3) StringList.Sort
4) установить разделитель перевод строки
5) StringList.SaveToFile("словарь.txt")


 
Anatoly Podgoretsky ©   (2010-04-26 16:59) [9]

> romario  (26.04.2010 16:49:07)  [7]

Это делается в форуме работа.


 
romario ©   (2010-04-26 17:38) [10]

> RWolf ©   (26.04.10 16:54) [8]
спасибо попробую...


 
romario ©   (2010-04-26 22:43) [11]

Пишу:
procedure TForm1.Button1Click(Sender: TObject);
var
 openD: TOpenDialog;
 list: TStringList;
begin
 list.Create;
// list.Sorted:=true;
 openD := TOpenDialog.Create(nil);
 openD.Filter := "тесктовый файл|*.txt";
 list.LoadFromFile(openD.FileName);
end;

Но не работает в чём косяк???


 
romario ©   (2010-04-26 22:44) [12]

и как сделать что-бы диалоговое окно открывалось в папке где находится сама программа???


 
romario ©   (2010-04-26 22:51) [13]

перерыл гору инета но так и не нашел как сделать:
1. установить разделитель пробел, запретить дубликаты
2. установить разделитель перевод строки


 
romario ©   (2010-04-26 22:54) [14]

Нашел ошибку сам :)
list:= TStringList.Create;
Все остальное нет :(


 
Anatoly Podgoretsky ©   (2010-04-26 22:56) [15]

> romario  (26.04.2010 22:43:11)  [11]

А это зачем?

list.LoadFromFile(openD.FileName);

Ведь значение не инициализировано и диалог не используется


 
romario ©   (2010-04-26 22:58) [16]

Дополнение
Словом считается:
- последовательность подряд идущих букв или цифр;
- знак препинания (считается отдельным "словом");
- знак-разделитель, например, пробел (считается отдельным "словом").


 
romario ©   (2010-04-26 23:00) [17]


> Anatoly Podgoretsky ©   (26.04.10 22:56) [15]
> > romario  (26.04.2010 22:43:11)  [11]А это зачем? list.
> LoadFromFile(openD.FileName);Ведь значение не инициализировано
> и диалог не используется

уже исправил
procedure TForm1.Button1Click(Sender: TObject);
var
 openD: TOpenDialog;
 list: TStringList;
begin
 list:= TStringList.Create;
 openD := TOpenDialog.Create(nil);
 openD.Filter := "тесктовый файл|*.txt";

if openD.Execute then
begin
   list.LoadFromFile(openD.FileName);
  end;
list.Sorted:=true;
List.SaveToFile("словарь.txt");
end;



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.044 c
15-1267230629
Юрий
2010-02-27 03:30
2010.08.27
С днем рождения ! 27 февраля 2010 суббота


3-1221840469
andreoman
2008-09-19 20:07
2010.08.27
cxGridDBTableView, фокус и выделение ячейки


15-1265031893
KSergey
2010-02-01 16:44
2010.08.27
Разрешить локальный вход на контролер домена (RDP)


15-1273609796
Юрий
2010-05-12 00:29
2010.08.27
С днем рождения ! 12 мая 2010 среда


2-1269376383
dorik
2010-03-23 23:33
2010.08.27
Загрузка TFileStream в RichEdit - проблемы при ключе fmOpenRead