Программа подсчитывающая количество определенных слов

Приветствую! Прошу помочь написать небольшую программку на Delphi!
У меня у самого ничего не получается, к сожалению - по этому обращаюсь к опытным ребятам - вам.

Цель программы:
Подсчёт количества связок определенных слов из текстового файла - console.log.

Описание:
Программка по идее должна находить определенные сочетания из текстового файла и при их нахождении приписывать +1 к сумме таких сочетаний.

Пример текста для подсчитывания словосочетаний:

[2020-04-16 22:53:18] [Output] : Администратор Artem_Lisoy[85] для Ivan_Pozdniakov[92]: Текст
[2020-04-16 22:54:44] [Output] : Name_Name кикнут администратором Artem_Lisoy (Текст)
[2020-04-16 22:55:27] [Output] : Name_Name забанен администратором Artem_Lisoy (1 ч.) (Текст)
[2020-04-16 22:59:02] [Output] : Name_Name был заткнут администратором Artem_Lisoy (10 мин.) (Текст)
[2020-04-16 23:28:22] [Output] : Администратор Artem_Lisoy посадил игрока Name_Name в тюрьму на 10 минут по причине: Текст

То есть:
1 Строка: Ответил столько-то раз.
2 Строка: Кикнул столько-то раз.
3 Строка: Забанил столько-то раз.
4 Строка: Заткнул столько-то раз.
5 Строка: Посадил столько-то раз.

Все подсчитанные действия должны быть привязаны только к 1 администратору - в данном случае Artem_Lisoy

Прилагаю скриншоты похожей программки а так же 2 исходника.
Помогите если не сложно... Спасибо.

Было бы не плохо если бы программа могла:
1. Иметь общую и сессионную статистику.
2. Иметь возможность менять ник администратора который работает - и чью активность нужно посчитать.
3. Иметь окно для ввода пути к файлу console.log

Миниатюры

 

Вложения

	Программа.rar (267.8 Кб, 2 просмотров)
	Программа 2.zip (9.9 Кб, 2 просмотров)

0

Сообщение от qwertehok самоизоляция?)

вообще-то нет, улыбаемся и пашем)

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

0

AHBAR, а я могу немного программку переписать, фон может добавить и сделать такой же EXE файл? Расскажи как его делать пожалуйста.

Добавлено через 12 минут
AHBAR, прости конечно, но как мне код редактировать если что?
Я просто потыкал туда сюда - ничего не пойму.
Мне хотелось бы сделать автоматическое обновление списочка, это возможно?
Ну и в целом немного дизайн сделать, фон картинку, названия немного другие, расположение кнопки и ТД.
Я могу это как-нибудь сделать? (ОГРОМНОЕ спасибо за то что ты уже сделал).

Добавлено через 14 минут
Еще наткнулся на одну проблему.
Программа не может получить доступ к log файлу потому что он открыт программой которая его и пишет

Добавлено через 14 минут
Редактировать программу нашёл как.
Остается это:
Как мне сделать потом из неё еще один EXE?
Мне хотелось бы сделать автоматическое обновление списочка, это возможно?
Программа не может получить доступ к log файлу потому что он открыт программой которая его и пишет

0

Сообщение от Artem_Lisoy Как мне сделать потом из неё еще один EXE?

изменить то, что тебе надо, сохранить изменения, потом выбрать меню Project и сделать либо Compile (Ctrl-F9), либо Project -- Build Project (shift+f9)
получишь новый EXE

Сообщение от Artem_Lisoy Мне хотелось бы сделать автоматическое обновление списочка, это возможно?

возможно. Проще всего по таймеру дёргать. Либо, сложнее, но эффективнее - проверять изменился ли файл/подписаться на изменения в папке и обновлять информацию.

Сообщение от Artem_Lisoy Программа не может получить доступ к log файлу потому что он открыт программой которая его и пишет

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

0

Сообщение от mr-Crocodile файл нужно открывать на только чтение в режиме разделения.

Вообще-то программа от AHBAR именно так и делает. Но раз она не может получить доступ, значит кто-то занял этот файл монопольно.

0

Сообщение от Artem_Lisoy Как мне сделать потом из неё еще один EXE?

сначала нужно пересохранить проект (File - Save project As..), потом заново скомпилировать (зеленый треугольник RUN - F9)
это если охота дать другое название программе.

Сообщение от Artem_Lisoy Мне хотелось бы сделать автоматическое обновление списочка, это возможно?

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

Сообщение от Artem_Lisoy Программа не может получить доступ к log файлу потому что он открыт программой которая его и пишет

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

Можно в принципе отлавливать эту ошибку. если файл занят, то писать в программе на форме типа "файл занят", а если не занят, то "Файл обрабатывается" или еще что

0

Сообщение от northener Вообще-то программа от AHBAR именно так и делает.

каюсь, код AHBAR не смотрел.

Сообщение от northener Но раз она не может получить доступ, значит кто-то занял этот файл монопольно.

тогда - согласен, дело - швах.

Сообщение от Artem_Lisoy Программа не может получить доступ к log файлу потому что он открыт программой которая его и пишет

Когда файл открыт программой, которая его и пишет, Вы файл можете открыть посмотреть (через любой просмотрщик)? А скопировать его можете? Если - да, тогда можно получить доступ к содержимому файла, иначе - нет.

Добавлено через 6 минут
посмотрел код AHBAR. он для загрузки использует метод LoadFromFile класса TStringList
а там файл действительно открывается в разделяемом режиме

Delphi 1   Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

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

0

Печаль
Всё равно спасибо за помощь...

0

Не вижу смысла "попытаться прочитать файл, который пишет другая программа", так как пока эта самая программа не закончит писать и не закроет файл, изменения в этом файле могут и не отобразиться. например как в Delphi/Pascal пока не выполнится то изменения Writeln(f, 'bla-bla-bla'); не сохранятся в файле

Добавлено через 43 секунды
Хотя смотря как еще пишет пишущая прога....

0