Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Раьота с файлами и строками [D5, Win95/98]

olga k © (2002-06-02 18:46:00)
Ребята, помогите мне, у меня проблемма:
Дали мне сделать курсовую по информатике на Delphi а я в нём вообще не секу.
Помогите кто чем сможет (хоть советом, как сделать), а то сессия скоро - меня могут недопустить. Куда там мне- экономистке информатику...

Задание:
есть множество текстовый файлов, надо создать программу, которая бы брала текст из одного текстового файла:
Маша варит кашу, а миша ушёл гулять.

и создавала бы новый файл в котором данные хранятся в таком виде:

Маша
варит
кашу
а
миша
ушёл
гулять

Если файл с таким именем уже существует (новый текстовый фаил), то программа дополняет его.

Как мне сказали, надо написать программу, которая созадала бы БАЗУ слов, ресурсом для которой служули бы текстовые файлы

MBo (2002-06-04 07:05:00) [1]
procedure TForm1.Button1Click(Sender: TObject);
const letters:set of char=["А".."я","Ё","ё"];// задай то, что считаешь частями слов
var s:string;
i,j:integer;
sl1,sl2,sl3:tstringlist;
begin
sl1:=tstringlist.create;
sl2:=tstringlist.create;
sl3:=tstringlist.create;
sl1.loadfromfile("e:\scandisk.log");
for i:=0 to sl1.count-1 do begin
// for i:=1 to length(s) do
//s:=sl1[i];
// if not (s[i] in letters) then
// s[i]:=" ";
// sl2.commatext:=s;
sl2.commatext:=sl1[i]; //!!!!!!если в результате лишние знаки,
//эту строку заменить на предыдущие
sl3.addstrings(sl2);
end;
sl3.savetofile("e:\words.txt");
sl1.free;
sl2.free;
sl3.free;
end;

Ольга К (2002-06-03 22:49:00) [2]
У емня есть файл, содержащий текст (обычный.)
Нужно написать программу, которая создавала бы новый файл и записывала в него некоторые данные взятые из файла ресурса.

Пример:
Есть файл ресурсов text.txt и он содержит такие данные:

Мама варит кашу. Папа смотрит телевизор, а Женя,,,, ушёл гулять.!№

Нам надо убрать все левые знаки, т.е. запятые, точки, пробелы и т.д.
и записать текст в новый файл в таком виде:

Мама
варит
кашу
Папа
смотрит
телевизор
а
Женя
ушёл
гулять

т.е. каждое слово из текстового файла ресурсов записать в новый файл, причем каждое слово должно размещаться в новой строке..

Сергей Чурсин (2002-06-02 22:00:00) [3]
Пришли мне e-mail на schursin@mail.lv
Пришлю готовый проект с sourse.

Shrek (2002-06-02 19:39:00) [4]
Обясни по-проще!

jedi (2002-06-02 19:31:00) [5]
esli nujno iskat" v odnom kataloge textovie faili i iz vseh sozdat" odin textovoi fail v cotorii odna stroka - ato odno slovo togda ato o4eni prosto sdelat". Pravda esli sovsem ne znaete delphi ato prevrasheatsea v problemu...

Song (2002-06-02 19:27:00) [6]
Надо найти эту последовательность во всех файлах? Вопрос непонятен.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »