Помогите с Delphi
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Помогите с Delphi - 2011-06-23 20:39:56.250000
|
|
|
walkover
Сообщений: 59
Оценки: 0
Присоединился: 2011-04-23 14:55:15.866666
|
Привет всем. Интересует простой код на делфи.
Алгоритм действий:
1. Выбор txt файла с жёсткого диска в окне программы
2. Ввод текста, который нужно в нём найти
3. Поиск текста, проверять каждую строчку, если есть, то сохранять в окно результатов+копировать 2 строчки вниз после найденного слова, делать двойной Enter после сохранения результата и искать дальше пока не закончатся строки в файле, записать все результаты найденные в файле.
4. Сохранить результат в txt файл с выбором места на диске.
5. Если нет нужной комбинации, то остановить.
Пример:
Допустим в файле
Хакер
Хороший
Чел
Админ
Плохой
Чел
Хакер
Насрать
На него хотел
Искомое слово хакер(без учёта регистра)
В файл сохраняется:
———————
Хакер
Хороший
Чел
Хакер
Насрать
На него хотел
———————
Или просто брать файл txt, находить нужные слова и все их подсвечивать и выводить в окно весь текст, но поисковые слова подсвеченные. (этот вариант на крайняк).
Помогите кто нить с исходником, можно в личку. Не обижу, подкину вам в замен чё нить приватное и полезное)))
|
|
|
|
|
RE: Помогите с Delphi - 2011-06-23 21:23:51.293333
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Ох, гангстеры…)
uses
SysUtils,
Classes;
var
f,g: TextFile;
mark,tmp : string;
begin
AssignFile(f,'in.txt');
AssignFile(g,'out.txt');
Reset(f);
Rewrite(g);
Writeln('which word?');
Readln(mark);
while not Eof(f) do
begin
Readln(f,tmp);
TrimRight(tmp);
if (tmp=mark) then
begin
Writeln(g,tmp);
Readln(f,tmp); Writeln(g,tmp);
Readln(f,tmp); Writeln(g,tmp);
Writeln(g); Writeln(g);
end;
end;
CloseFile(f);
CloseFile(g);
end.
Файл зашит и не выбирается, кусок в консольке. Это чтоб жизнь медом не казалась, но принцип тут показан.
|
|
|
|
|
RE: Помогите с Delphi - 2011-06-24 10:13:35.760000
|
|
|
walkover
Сообщений: 59
Оценки: 0
Присоединился: 2011-04-23 14:55:15.866666
|
Спасибо большое. Что на консольке даже лучше, мне с ней работать привычнее.
|
|
|
|
|
RE: Помогите с Delphi - 2011-07-02 00:11:34.086666
|
|
|
goodbill
Сообщений: 55
Оценки: 0
Присоединился: 2011-03-09 20:50:53.326666
|
на крайняк пользуешь диалоги для выбора файла и ставишь фильтром *.txt
|
|
|
|
|
|
