Раьота с файлами и строками

← →
olga k (2002-06-02 18:46) [0]

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

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

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

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

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

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

← →
Song © (2002-06-02 19:27) [1]

Надо найти эту последовательность во всех файлах? Вопрос непонятен.

← →
jedi © (2002-06-02 19:31) [2]

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...

← →
Shrek © (2002-06-02 19:39) [3]

Обясни по-проще!

← →
Сергей Чурсин (2002-06-02 22:00) [4]

Пришли мне e-mail на schursin@mail.lv
Пришлю готовый проект с sourse.

← →
Ольга К (2002-06-03 22:49) [5]

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

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

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

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

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

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

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;

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