Працюючи над одним з сайтів я випадково зіткнувся з проблемою пакетної заміни тексту в багатьох текстових файлах (конкретна проблема виглядала так: є приблизно 2 тис. файлів і потрібно в кожній сотні файлів замінити певний текст на інший). Без автоматизації це задачка на цілий день. Але чим ми не програмісти? Для рутинної автоматизації процесів беремо мій улюблений ні не «1с:Підприємство 8.1» а Хіасм (hiasm.com) та робимо новий проект.
Нашу задачу по автоматизації можна поділити на кілька логічних етапів:
Як працювати з хіасмом я описувати детально не буду оскілки це займе багато часу опишу лише ключові моменти.
Зовнішній вигляд нашої програми буде таким:
Вигляд прграми
Два поля внизу відповідно що шукаємо і на що заміняємо і поле внизу це лог роботи програми.
Елементи керування до програми додаємо з наступної панелі
Елементи керування
а загальний вигляд програми в вихідних кодах ніаму виглядає так
Код програми
Скеми для закачування додам в кінці статті.
Опишемо що робить дана схема:
Спочатку ми після натиснення на кнопку де зображено три крапки запускаємо діалог вибору папки і адресу папки вказуємо в текстове поле. Після ціього запускаємо пошук файлів з маскою *.txt в даній папці. Кожен знайдений файл, точніше його повну адресу і назву передаємо в мемополе і відкриваємо, запускаємо заміну тексту і зберігаємо змінений текст назад в файл. паралельно виводимо в інше мемо поле звіт про обробку файлу.
Посилання на файли для закачування в кінці статті.
Подпишитесь на RSS канал сайта. Это дает Вам преимущество в скорости получения обновлений и свежей информации.
Вчора був у Львові, поки чекав трамвай на вул. Івана Франка, дивився по сторонам і помітив... ДАЛЕЕ...
http://www.dealextreme.com/details.dx/sku.23147#open%20full%20view http://www.dealextreme.com/details.dx/sku.39458 http://santa-noname.blogspot.com/2009/05/google-translate.html... ДАЛЕЕ...
недавно наткнулся на сайт http://ballanda.ru/ стандартній ГС, но у него тиц 40 откуда? запрос... ДАЛЕЕ...