Initial commit
This commit is contained in:
IRBorisov
commit
2bd3bb3f12
42
VBAMake.txt
Normal file
42
VBAMake.txt
Normal file
|
|
@ -0,0 +1,42 @@
|
||||||
|
# == Properties Section ==
|
||||||
|
# configuration properties
|
||||||
|
# use .ini format to define properties
|
||||||
|
# mandatory properties: name, artifact_home, source_home
|
||||||
|
|
||||||
|
id = Concept-Mining
|
||||||
|
name = Концепт-Майнинг
|
||||||
|
description = Модуль извлечения (парсинга) данных из текстов
|
||||||
|
artifact_home = Концепт-Майнинг
|
||||||
|
source_home = Concept-Mining
|
||||||
|
install_home = \\fs1.concept.ru\projects\10 Автоматизация деятельности\01 Высокие технологии\Концепт-Майнинг
|
||||||
|
|
||||||
|
%%
|
||||||
|
# === Build section ===
|
||||||
|
# Available commands:
|
||||||
|
# build LOCAL_MANIFEST
|
||||||
|
# copy LOCAL_SOURCE -> [LOCAL_ARTIFACT]
|
||||||
|
# save_as LOCAL_ARTIFACT -> LOCAL_ARTIFACT
|
||||||
|
# run LOCAL_SOURCE.bat
|
||||||
|
|
||||||
|
copy test
|
||||||
|
copy distr\models\ActionVerbs.txt -> models\ActionVerbs.txt
|
||||||
|
|
||||||
|
build script\addinManifest.txt
|
||||||
|
build script\databaseManifest.txt
|
||||||
|
save_as !Майнинг.xlsm -> 55 Майнинг.xltm
|
||||||
|
|
||||||
|
%%
|
||||||
|
# === Install section ==
|
||||||
|
# Available commands:
|
||||||
|
# install LOCAL_ARTIFACT -> [INSTALL_PATH]
|
||||||
|
# add_template LOCAL_ARTIFACT -> [LOCAL_TEMPLATE]
|
||||||
|
# run LOCAL_ARTIFACT.bat <- [PARAMETERS]
|
||||||
|
# run APPLICATION <- [PARAMETERS]
|
||||||
|
|
||||||
|
install Надстройка\Parsers.dotm -> Надстройка\Parsers.dotm
|
||||||
|
install !Майнинг.xlsm
|
||||||
|
install 55 Майнинг.xltm
|
||||||
|
|
||||||
|
install Надстройка\Parsers.dotm -> \\fs1.concept.ru\Exchange\ConceptDistr\data\Add-ins\Word\Parsers.dotm
|
||||||
|
install models\ActionVerbs.txt -> \\fs1.concept.ru\Exchange\ConceptDistr\models\ActionVerbs.txt
|
||||||
|
add_template 55 Майнинг.xltm
|
||||||
463
distr/models/ActionVerbs.txt
Normal file
463
distr/models/ActionVerbs.txt
Normal file
|
|
@ -0,0 +1,463 @@
|
||||||
|
аккредитирует
|
||||||
|
анализирует
|
||||||
|
аннулирует
|
||||||
|
апробирует
|
||||||
|
вводит
|
||||||
|
ведет
|
||||||
|
взаимодействует
|
||||||
|
владеет
|
||||||
|
внедряет
|
||||||
|
вносит
|
||||||
|
возглавляет
|
||||||
|
возмещает
|
||||||
|
возобновляет
|
||||||
|
вступает
|
||||||
|
входит
|
||||||
|
выбирает
|
||||||
|
выдает
|
||||||
|
выплачивает
|
||||||
|
выполняет
|
||||||
|
выражает
|
||||||
|
выступает
|
||||||
|
выявляет
|
||||||
|
голосует
|
||||||
|
готовит
|
||||||
|
дает
|
||||||
|
действует
|
||||||
|
делегирует
|
||||||
|
доводит
|
||||||
|
доставляет
|
||||||
|
заключает
|
||||||
|
закрепляет
|
||||||
|
закрывает
|
||||||
|
заполняет
|
||||||
|
запрашивает
|
||||||
|
запрещает
|
||||||
|
заслушивает
|
||||||
|
защищает
|
||||||
|
заявляет
|
||||||
|
знакомит
|
||||||
|
знакомится
|
||||||
|
избирает
|
||||||
|
издает
|
||||||
|
изменяет
|
||||||
|
изучает
|
||||||
|
изымает
|
||||||
|
имеет
|
||||||
|
инициирует
|
||||||
|
информирует
|
||||||
|
исполняет
|
||||||
|
использует
|
||||||
|
истребует
|
||||||
|
комплектует
|
||||||
|
консультирует
|
||||||
|
контролирует
|
||||||
|
координирует
|
||||||
|
награждает
|
||||||
|
назначает
|
||||||
|
налагает
|
||||||
|
направляет
|
||||||
|
несет
|
||||||
|
обеспечивает
|
||||||
|
обжалует
|
||||||
|
обладает
|
||||||
|
обнародует
|
||||||
|
обобщает
|
||||||
|
оборудует
|
||||||
|
образует
|
||||||
|
обращается
|
||||||
|
обязывает
|
||||||
|
ограничивает
|
||||||
|
одобряет
|
||||||
|
оказывает
|
||||||
|
открывает
|
||||||
|
оповещает
|
||||||
|
определяет
|
||||||
|
организовывает
|
||||||
|
организует
|
||||||
|
освещает
|
||||||
|
освобождает
|
||||||
|
осуществляет
|
||||||
|
отвечает
|
||||||
|
отклоняет
|
||||||
|
открывает
|
||||||
|
отменяет
|
||||||
|
отрешает
|
||||||
|
отстраняет
|
||||||
|
отчитывается
|
||||||
|
оформляет
|
||||||
|
оценивает
|
||||||
|
передает
|
||||||
|
переоформляет
|
||||||
|
перечисляет
|
||||||
|
планирует
|
||||||
|
подготавливает
|
||||||
|
поддерживает
|
||||||
|
подписывает
|
||||||
|
получает
|
||||||
|
пользуется
|
||||||
|
поощряет
|
||||||
|
посещает
|
||||||
|
предлагает
|
||||||
|
предоставляет
|
||||||
|
председательствует
|
||||||
|
представляет
|
||||||
|
предъявляет
|
||||||
|
прекращает
|
||||||
|
привлекает
|
||||||
|
приглашает
|
||||||
|
признает
|
||||||
|
применяет
|
||||||
|
принимает
|
||||||
|
приобретает
|
||||||
|
приостанавливает
|
||||||
|
присваивает
|
||||||
|
проверяет
|
||||||
|
проводит
|
||||||
|
прогнозирует
|
||||||
|
продлевает
|
||||||
|
производит
|
||||||
|
публикует
|
||||||
|
развивает
|
||||||
|
размещает
|
||||||
|
разрабатывает
|
||||||
|
разрешает
|
||||||
|
разъясняет
|
||||||
|
распоряжается
|
||||||
|
распределяет
|
||||||
|
распускает
|
||||||
|
рассматривает
|
||||||
|
рассчитывает
|
||||||
|
расторгает
|
||||||
|
реализовывает
|
||||||
|
реализует
|
||||||
|
регистрирует
|
||||||
|
регулирует
|
||||||
|
решает
|
||||||
|
руководит
|
||||||
|
санкционирует
|
||||||
|
совершает
|
||||||
|
совершенствует
|
||||||
|
согласовывает
|
||||||
|
согласует
|
||||||
|
содействует
|
||||||
|
содержит
|
||||||
|
создает
|
||||||
|
созывает
|
||||||
|
составляет
|
||||||
|
способствует
|
||||||
|
требует
|
||||||
|
уведомляет
|
||||||
|
удостоверяет
|
||||||
|
уполномочивает
|
||||||
|
управляет
|
||||||
|
устанавливает
|
||||||
|
утверждает
|
||||||
|
участвует
|
||||||
|
учреждает
|
||||||
|
формирует
|
||||||
|
является
|
||||||
|
аккредитовать
|
||||||
|
анализировать
|
||||||
|
аннулировать
|
||||||
|
апробировать
|
||||||
|
вводить
|
||||||
|
вести
|
||||||
|
взаимодействовать
|
||||||
|
владеть
|
||||||
|
внедрять
|
||||||
|
вносить
|
||||||
|
возглавлять
|
||||||
|
возмещать
|
||||||
|
возобновлять
|
||||||
|
вступать
|
||||||
|
входить
|
||||||
|
выбирать
|
||||||
|
выдавать
|
||||||
|
выплачивать
|
||||||
|
выполнять
|
||||||
|
выражать
|
||||||
|
выступать
|
||||||
|
выявлять
|
||||||
|
голосовать
|
||||||
|
готовить
|
||||||
|
давать
|
||||||
|
действовать
|
||||||
|
делегировать
|
||||||
|
доводить
|
||||||
|
доставлять
|
||||||
|
заключать
|
||||||
|
закреплять
|
||||||
|
закрывать
|
||||||
|
заполнять
|
||||||
|
запрашивать
|
||||||
|
запрещать
|
||||||
|
заслушивать
|
||||||
|
защищать
|
||||||
|
заявлять
|
||||||
|
знакомить
|
||||||
|
знакомиться
|
||||||
|
избирать
|
||||||
|
издавать
|
||||||
|
изменять
|
||||||
|
изучать
|
||||||
|
изымать
|
||||||
|
иметь
|
||||||
|
инициировать
|
||||||
|
информировать
|
||||||
|
исполнять
|
||||||
|
использовать
|
||||||
|
истребовать
|
||||||
|
комплектовать
|
||||||
|
консультировать
|
||||||
|
контролировать
|
||||||
|
координировать
|
||||||
|
награждать
|
||||||
|
назначать
|
||||||
|
налагать
|
||||||
|
направлять
|
||||||
|
нести
|
||||||
|
обеспечивать
|
||||||
|
обжаловать
|
||||||
|
обладать
|
||||||
|
обнародовать
|
||||||
|
обобщать
|
||||||
|
оборудовать
|
||||||
|
образовывать
|
||||||
|
обращаться
|
||||||
|
обязывать
|
||||||
|
ограничивать
|
||||||
|
одобрять
|
||||||
|
оказывать
|
||||||
|
открывать
|
||||||
|
оповещать
|
||||||
|
определять
|
||||||
|
организовывать
|
||||||
|
организовать
|
||||||
|
освещать
|
||||||
|
освобождать
|
||||||
|
осуществлять
|
||||||
|
отвечать
|
||||||
|
отклонять
|
||||||
|
открывать
|
||||||
|
отменять
|
||||||
|
отрешать
|
||||||
|
отстранять
|
||||||
|
отчитываться
|
||||||
|
оформлять
|
||||||
|
оценивать
|
||||||
|
передать
|
||||||
|
переоформлять
|
||||||
|
перечислять
|
||||||
|
планировать
|
||||||
|
подготавливать
|
||||||
|
поддерживать
|
||||||
|
подписывать
|
||||||
|
получать
|
||||||
|
пользоваться
|
||||||
|
поощрять
|
||||||
|
посещать
|
||||||
|
предлагать
|
||||||
|
предоставлять
|
||||||
|
председательствовать
|
||||||
|
представлять
|
||||||
|
предъявлять
|
||||||
|
прекращать
|
||||||
|
привлекать
|
||||||
|
приглашать
|
||||||
|
признать
|
||||||
|
применять
|
||||||
|
принимать
|
||||||
|
приобретать
|
||||||
|
приостанавливать
|
||||||
|
присваивать
|
||||||
|
проверять
|
||||||
|
проводить
|
||||||
|
прогнозировать
|
||||||
|
продлевать
|
||||||
|
производить
|
||||||
|
публиковать
|
||||||
|
развивать
|
||||||
|
размещать
|
||||||
|
разрабатывать
|
||||||
|
разрешать
|
||||||
|
разъяснять
|
||||||
|
распоряжаться
|
||||||
|
распределять
|
||||||
|
распускать
|
||||||
|
рассматривать
|
||||||
|
рассчитывать
|
||||||
|
расторгать
|
||||||
|
реализовывать
|
||||||
|
реализовать
|
||||||
|
регистрировать
|
||||||
|
регулировать
|
||||||
|
решать
|
||||||
|
руководить
|
||||||
|
санкционировать
|
||||||
|
совершать
|
||||||
|
совершенствовать
|
||||||
|
согласовывать
|
||||||
|
согласовать
|
||||||
|
содействовать
|
||||||
|
содержать
|
||||||
|
создавать
|
||||||
|
созывать
|
||||||
|
составлять
|
||||||
|
способствовать
|
||||||
|
требовать
|
||||||
|
уведомлять
|
||||||
|
удостоверять
|
||||||
|
уполномочивать
|
||||||
|
управлять
|
||||||
|
устанавливать
|
||||||
|
утверждать
|
||||||
|
участвовать
|
||||||
|
учреждать
|
||||||
|
формировать
|
||||||
|
являться
|
||||||
|
аккредитация
|
||||||
|
анализирование
|
||||||
|
аннулирование
|
||||||
|
апробирование
|
||||||
|
введение
|
||||||
|
ведение
|
||||||
|
взаимодействие
|
||||||
|
владение
|
||||||
|
внедрение
|
||||||
|
внесение
|
||||||
|
возглавление
|
||||||
|
возмещение
|
||||||
|
возобновление
|
||||||
|
вступление
|
||||||
|
вхождение
|
||||||
|
выбирание
|
||||||
|
выдавание
|
||||||
|
выплачивание
|
||||||
|
выполнение
|
||||||
|
выражение
|
||||||
|
выступление
|
||||||
|
выявление
|
||||||
|
голосование
|
||||||
|
дача
|
||||||
|
действие
|
||||||
|
делегирование
|
||||||
|
доведение
|
||||||
|
доставление
|
||||||
|
заключение
|
||||||
|
закрепление
|
||||||
|
закрывание
|
||||||
|
заполнение
|
||||||
|
запрашивание
|
||||||
|
запрещение
|
||||||
|
заслушивание
|
||||||
|
защита
|
||||||
|
заявление
|
||||||
|
знакомство
|
||||||
|
ознакомление
|
||||||
|
избирание
|
||||||
|
издание
|
||||||
|
изменение
|
||||||
|
изучение
|
||||||
|
изъятие
|
||||||
|
имение
|
||||||
|
иницирование
|
||||||
|
информирование
|
||||||
|
исполнение
|
||||||
|
использование
|
||||||
|
требование
|
||||||
|
комплектование
|
||||||
|
консультирование
|
||||||
|
контролирование
|
||||||
|
координирование
|
||||||
|
награждение
|
||||||
|
назначение
|
||||||
|
налагание
|
||||||
|
направление
|
||||||
|
несение
|
||||||
|
обеспечение
|
||||||
|
обжалование
|
||||||
|
обладание
|
||||||
|
обнародование
|
||||||
|
обобщение
|
||||||
|
оборудование
|
||||||
|
обращение
|
||||||
|
ограничение
|
||||||
|
одобрение
|
||||||
|
оказание
|
||||||
|
открывание
|
||||||
|
оповещение
|
||||||
|
определение
|
||||||
|
освещение
|
||||||
|
освобождение
|
||||||
|
осуществление
|
||||||
|
отвечание
|
||||||
|
отклонение
|
||||||
|
открывание
|
||||||
|
отрешение
|
||||||
|
отстранение
|
||||||
|
оформление
|
||||||
|
передача
|
||||||
|
переоформление
|
||||||
|
перечисление
|
||||||
|
планирование
|
||||||
|
поддерживание
|
||||||
|
подписывание
|
||||||
|
получение
|
||||||
|
пользование
|
||||||
|
поощрение
|
||||||
|
посещение
|
||||||
|
предложение
|
||||||
|
предоставление
|
||||||
|
председательствование
|
||||||
|
представление
|
||||||
|
предъявление
|
||||||
|
прекращение
|
||||||
|
привлечение
|
||||||
|
приглашение
|
||||||
|
признание
|
||||||
|
применение
|
||||||
|
приобретение
|
||||||
|
приостановление
|
||||||
|
присваивание
|
||||||
|
проверка
|
||||||
|
проведение
|
||||||
|
прогнозирование
|
||||||
|
продление
|
||||||
|
производство
|
||||||
|
публикование
|
||||||
|
развитие
|
||||||
|
размещение
|
||||||
|
разрабатывание
|
||||||
|
разрешение
|
||||||
|
разъяснение
|
||||||
|
распоряжение
|
||||||
|
распределение
|
||||||
|
распускание
|
||||||
|
рассмотрение
|
||||||
|
расторжение
|
||||||
|
реализация
|
||||||
|
регистрирование
|
||||||
|
регулирование
|
||||||
|
решение
|
||||||
|
руководство
|
||||||
|
санкционирование
|
||||||
|
совершение
|
||||||
|
совершенствование
|
||||||
|
согласование
|
||||||
|
содействие
|
||||||
|
содержание
|
||||||
|
создание
|
||||||
|
составление
|
||||||
|
способствование
|
||||||
|
требование
|
||||||
|
уведомление
|
||||||
|
удостоверение
|
||||||
|
уполномочивание
|
||||||
|
управление
|
||||||
|
установление
|
||||||
|
утверждение
|
||||||
|
участие
|
||||||
|
учреждение
|
||||||
|
формирование
|
||||||
|
явление
|
||||||
102
script/addinManifest.txt
Normal file
102
script/addinManifest.txt
Normal file
|
|
@ -0,0 +1,102 @@
|
||||||
|
# == Properties Section ==
|
||||||
|
# configuration properties
|
||||||
|
# use .ini format to define properties
|
||||||
|
# mandatory properties: name, artifact
|
||||||
|
|
||||||
|
name = Parsers.dotm
|
||||||
|
artifact = Надстройка\Parsers.dotm
|
||||||
|
|
||||||
|
%%
|
||||||
|
# === Imports Section ===
|
||||||
|
# Hierarchy of folders and files
|
||||||
|
# Use Tabulator to mark next level in hierarchy
|
||||||
|
# All folders are nested into SharedHome path
|
||||||
|
|
||||||
|
api
|
||||||
|
ex_Python.bas
|
||||||
|
ex_WinAPI.bas
|
||||||
|
|
||||||
|
API_Python.cls
|
||||||
|
API_Ribbon.cls
|
||||||
|
API_XLWrapper.cls
|
||||||
|
API_UserInteraction.cls
|
||||||
|
|
||||||
|
word
|
||||||
|
ex_Word.bas
|
||||||
|
|
||||||
|
parsers
|
||||||
|
ParserDeclarations.bas
|
||||||
|
z_ParserRegex.bas
|
||||||
|
PC_ParsedData.cls
|
||||||
|
PC_Fragment.cls
|
||||||
|
ExtractionOptions.cls
|
||||||
|
|
||||||
|
PC_Tools.cls
|
||||||
|
DetectorClassifier.cls
|
||||||
|
DetectorListWords.cls
|
||||||
|
DetectorRegex.cls
|
||||||
|
DetectorMorpho.cls
|
||||||
|
|
||||||
|
ParserDate.cls
|
||||||
|
ParserNPA.cls
|
||||||
|
|
||||||
|
PC_InfoNPA.cls
|
||||||
|
|
||||||
|
|
||||||
|
utility
|
||||||
|
ex_VBA.bas
|
||||||
|
ex_Regex.bas
|
||||||
|
ex_DataPreparation.bas
|
||||||
|
|
||||||
|
API_Config.cls
|
||||||
|
API_JSON.cls
|
||||||
|
API_Timer.cls
|
||||||
|
|
||||||
|
ui
|
||||||
|
CSE_ProgressBar.frm
|
||||||
|
|
||||||
|
dev
|
||||||
|
DevTester.bas
|
||||||
|
|
||||||
|
%%
|
||||||
|
# === Source Code Section ==
|
||||||
|
# Hierarchy of folders and files
|
||||||
|
# Use Tabulator to mark next level in hierarchy
|
||||||
|
# All folders are nested into SourceHome path
|
||||||
|
|
||||||
|
src
|
||||||
|
addin
|
||||||
|
DevHelper.bas
|
||||||
|
|
||||||
|
Declarations.bas
|
||||||
|
Main.bas
|
||||||
|
MainImpl.bas
|
||||||
|
z_UIRibbon.bas
|
||||||
|
z_UIMessages.bas
|
||||||
|
|
||||||
|
UIState.cls
|
||||||
|
IteratorDetected.cls
|
||||||
|
|
||||||
|
|
||||||
|
%%
|
||||||
|
# ===== UI Section =======
|
||||||
|
# Pairs of path to UI elements, use " -> " delimiter
|
||||||
|
# First component is a path relative to SourceHome\ui folders
|
||||||
|
# Second component is internal path inside project file
|
||||||
|
|
||||||
|
addin\.rels -> _rels\.rels
|
||||||
|
addin\customUI.xml -> customUI\customUI.xml
|
||||||
|
|
||||||
|
%%
|
||||||
|
# === References Section ===
|
||||||
|
# List dependencies in one of the formats
|
||||||
|
# global : GLOBAL_NAME
|
||||||
|
# guid : {REGISTERED_GUID}
|
||||||
|
# file : PATH_TO_LIBRARY
|
||||||
|
|
||||||
|
global : VBScript_RegExp_55
|
||||||
|
global : Scripting
|
||||||
|
global : Shell32
|
||||||
|
global : MSForms
|
||||||
|
global : ADODB
|
||||||
|
global : Excel
|
||||||
82
script/databaseManifest.txt
Normal file
82
script/databaseManifest.txt
Normal file
|
|
@ -0,0 +1,82 @@
|
||||||
|
# == Properties Section ==
|
||||||
|
# configuration properties
|
||||||
|
# use .ini format to define properties
|
||||||
|
# mandatory properties: name, artifact
|
||||||
|
|
||||||
|
name = !Майнинг.xlsm
|
||||||
|
artifact = !Майнинг.xlsm
|
||||||
|
|
||||||
|
%%
|
||||||
|
# === Imports Section ===
|
||||||
|
# Hierarchy of folders and files
|
||||||
|
# Use Tabulator to mark next level in hierarchy
|
||||||
|
# All folders are nested into SharedHome path
|
||||||
|
|
||||||
|
api
|
||||||
|
ex_WinAPI.bas
|
||||||
|
API_WordWrapper.cls
|
||||||
|
API_XLWrapper.cls
|
||||||
|
API_UserInteraction.cls
|
||||||
|
|
||||||
|
parsers
|
||||||
|
ParserDeclarations.bas
|
||||||
|
ExtractionOptions.cls
|
||||||
|
|
||||||
|
utility
|
||||||
|
ex_VBA.bas
|
||||||
|
ex_DataPreparation.bas
|
||||||
|
ex_Version.bas
|
||||||
|
|
||||||
|
API_DistrManifest.cls
|
||||||
|
API_JSON.cls
|
||||||
|
API_Timer.cls
|
||||||
|
|
||||||
|
ui
|
||||||
|
CSE_ProgressBar.frm
|
||||||
|
|
||||||
|
dev
|
||||||
|
DevTester.bas
|
||||||
|
|
||||||
|
%%
|
||||||
|
# === Source Code Section ==
|
||||||
|
# Hierarchy of folders and files
|
||||||
|
# Use Tabulator to mark next level in hierarchy
|
||||||
|
# All folders are nested into SourceHome path
|
||||||
|
|
||||||
|
src
|
||||||
|
database
|
||||||
|
ImportDlg.frm
|
||||||
|
|
||||||
|
DevHelper.bas
|
||||||
|
|
||||||
|
Declarations.bas
|
||||||
|
DataAccess.bas
|
||||||
|
Main.bas
|
||||||
|
MainImpl.bas
|
||||||
|
ManualSubs.bas
|
||||||
|
z_UIRibbon.bas
|
||||||
|
z_UIMessages.bas
|
||||||
|
|
||||||
|
test
|
||||||
|
s_WordInteractions.cls
|
||||||
|
|
||||||
|
%%
|
||||||
|
# ===== UI Section =======
|
||||||
|
# Pairs of path to UI elements, use " -> " delimiter
|
||||||
|
# First component is a path relative to SourceHome\ui folders
|
||||||
|
# Second component is internal path inside project file
|
||||||
|
|
||||||
|
database\.rels -> _rels\.rels
|
||||||
|
database\customUI.xml -> customUI\customUI.xml
|
||||||
|
|
||||||
|
%%
|
||||||
|
# === References Section ===
|
||||||
|
# List dependencies in one of the formats
|
||||||
|
# global : GLOBAL_NAME
|
||||||
|
# guid : {REGISTERED_GUID}
|
||||||
|
# file : PATH_TO_LIBRARY
|
||||||
|
|
||||||
|
global : Word
|
||||||
|
global : Shell32
|
||||||
|
global : Scripting
|
||||||
|
global : MSForms
|
||||||
BIN
skeleton/!Майнинг.xlsm
Normal file
BIN
skeleton/!Майнинг.xlsm
Normal file
Binary file not shown.
BIN
skeleton/Parsers.dotm
Normal file
BIN
skeleton/Parsers.dotm
Normal file
Binary file not shown.
63
src/addin/Declarations.bas
Normal file
63
src/addin/Declarations.bas
Normal file
|
|
@ -0,0 +1,63 @@
|
||||||
|
Attribute VB_Name = "Declarations"
|
||||||
|
Option Private Module
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
Public Const MAX_FIND_LEN = 250
|
||||||
|
|
||||||
|
Public Const TEMP_FILE_NAME = "conceptParsers"
|
||||||
|
|
||||||
|
' Markup color
|
||||||
|
Public Enum TColor
|
||||||
|
[_First] = 1
|
||||||
|
|
||||||
|
T_COLOR_YELLOW = 1 ' = 7
|
||||||
|
T_COLOR_GREEN = 2 ' = 4
|
||||||
|
T_COLOR_TEAL = 3 ' = 10
|
||||||
|
T_COLOR_GREY = 4 ' = 15
|
||||||
|
T_COLOR_BLUE = 5 ' = 9
|
||||||
|
|
||||||
|
[_Last] = 5
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
' _E_ - export
|
||||||
|
Public Enum ExportStruct
|
||||||
|
[_First] = 1
|
||||||
|
|
||||||
|
S_E_ID = 1
|
||||||
|
S_E_START = 2
|
||||||
|
S_E_FINISH = 3
|
||||||
|
S_E_TYPE = 4
|
||||||
|
S_E_TEXT = 5
|
||||||
|
S_E_DATA = 6
|
||||||
|
|
||||||
|
[_Last] = 6
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
Public Function ColorToStr(iColor As TColor) As String
|
||||||
|
Select Case iColor
|
||||||
|
Case T_COLOR_YELLOW: ColorToStr = "Æåëòûé"
|
||||||
|
Case T_COLOR_GREEN: ColorToStr = "Çåëåíûé"
|
||||||
|
Case T_COLOR_TEAL: ColorToStr = "Ìîðñêîé"
|
||||||
|
Case T_COLOR_GREY: ColorToStr = "Ñåðûé"
|
||||||
|
Case T_COLOR_BLUE: ColorToStr = "Ñèíèé"
|
||||||
|
End Select
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ColorToColorIndex(iColor As TColor) As Integer
|
||||||
|
Select Case iColor
|
||||||
|
Case T_COLOR_YELLOW: ColorToColorIndex = WdColorIndex.wdYellow
|
||||||
|
Case T_COLOR_GREEN: ColorToColorIndex = WdColorIndex.wdBrightGreen
|
||||||
|
Case T_COLOR_TEAL: ColorToColorIndex = WdColorIndex.wdTurquoise
|
||||||
|
Case T_COLOR_GREY: ColorToColorIndex = WdColorIndex.wdGray25
|
||||||
|
Case T_COLOR_BLUE: ColorToColorIndex = WdColorIndex.wdBlue
|
||||||
|
End Select
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function PTools() As PC_Tools
|
||||||
|
Static s_Parsers As PC_Tools
|
||||||
|
If s_Parsers Is Nothing Then
|
||||||
|
Set s_Parsers = New PC_Tools
|
||||||
|
End If
|
||||||
|
Set PTools = s_Parsers
|
||||||
|
End Function
|
||||||
|
|
||||||
20
src/addin/DevHelper.bas
Normal file
20
src/addin/DevHelper.bas
Normal file
|
|
@ -0,0 +1,20 @@
|
||||||
|
Attribute VB_Name = "DevHelper"
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
Public Function Dev_PrepareSkeleton()
|
||||||
|
Call ThisDocument.Range.Delete
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Sub Dev_ManualRunTest()
|
||||||
|
Dim sSuite$: sSuite = "s_Database"
|
||||||
|
Dim sTest$: sTest = "t_RenameLawFile"
|
||||||
|
Dim sMsg$: sMsg = Dev_RunTestDebug(sSuite, sTest)
|
||||||
|
Debug.Print sMsg
|
||||||
|
Call MsgBox(sMsg)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function Dev_GetTestSuite(sName$) As Object
|
||||||
|
Select Case sName
|
||||||
|
' Case "s_ActiveStateExporter": Set Dev_GetTestSuite = New s_ActiveStateExporter
|
||||||
|
End Select
|
||||||
|
End Function
|
||||||
158
src/addin/IteratorDetected.cls
Normal file
158
src/addin/IteratorDetected.cls
Normal file
|
|
@ -0,0 +1,158 @@
|
||||||
|
VERSION 1.0 CLASS
|
||||||
|
BEGIN
|
||||||
|
MultiUse = -1 'True
|
||||||
|
END
|
||||||
|
Attribute VB_Name = "IteratorDetected"
|
||||||
|
Attribute VB_GlobalNameSpace = False
|
||||||
|
Attribute VB_Creatable = False
|
||||||
|
Attribute VB_PredeclaredId = False
|
||||||
|
Attribute VB_Exposed = False
|
||||||
|
' Èòåðàòîð íà îñíîâå ìåõàíèçìà äåòåêöèè âõîæäåíèé
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
Private Const NO_CURRENT_ID = -1
|
||||||
|
|
||||||
|
Private selection_ As Word.Range
|
||||||
|
Private detector_ As Object
|
||||||
|
|
||||||
|
Private start_ As Long
|
||||||
|
Private data_ As PC_ParsedData
|
||||||
|
Private currentID_ As Long
|
||||||
|
|
||||||
|
Public Function Init(theDoc As Word.Document, iDetector As Object, Optional nStart& = 0)
|
||||||
|
Set selection_ = theDoc.Range(nStart, nStart)
|
||||||
|
Set detector_ = iDetector
|
||||||
|
|
||||||
|
start_ = selection_.Paragraphs.First.Range.Start
|
||||||
|
Dim sText$: sText = selection_.Paragraphs.First.Range.Text
|
||||||
|
Set data_ = detector_.ExtractFragments(sText)
|
||||||
|
currentID_ = IIf(data_.Count = 0, 0, NO_CURRENT_ID)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Range() As Word.Range
|
||||||
|
Set Range = selection_
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Fragment() As PC_Fragment
|
||||||
|
If currentID_ <> NO_CURRENT_ID Then _
|
||||||
|
Set Fragment = data_.data_.Item(currentID_)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function MoveNext() As Word.Range
|
||||||
|
If currentID_ = NO_CURRENT_ID Then
|
||||||
|
If Not InitNext Then _
|
||||||
|
Exit Function
|
||||||
|
ElseIf currentID_ = data_.Count Then
|
||||||
|
If Not NextChunk Then _
|
||||||
|
Exit Function
|
||||||
|
currentID_ = 1
|
||||||
|
Else
|
||||||
|
currentID_ = currentID_ + 1
|
||||||
|
End If
|
||||||
|
|
||||||
|
Set selection_ = RangeForFragment(data_.data_.Item(currentID_))
|
||||||
|
Set MoveNext = selection_
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function MovePrev() As Word.Range
|
||||||
|
If currentID_ = NO_CURRENT_ID Then
|
||||||
|
If Not InitPrev Then _
|
||||||
|
Exit Function
|
||||||
|
ElseIf currentID_ <= 1 Then
|
||||||
|
If Not PrevChunk Then _
|
||||||
|
Exit Function
|
||||||
|
currentID_ = data_.Count
|
||||||
|
Else
|
||||||
|
currentID_ = currentID_ - 1
|
||||||
|
End If
|
||||||
|
|
||||||
|
Set selection_ = RangeForFragment(data_.data_.Item(currentID_))
|
||||||
|
Set MovePrev = selection_
|
||||||
|
End Function
|
||||||
|
|
||||||
|
' ======
|
||||||
|
Private Function RangeForFragment(iFragment As PC_Fragment) As Word.Range
|
||||||
|
Dim iRange As Word.Range: Set iRange = selection_.Document.Range(start_, start_)
|
||||||
|
Call iRange.MoveStart(wdCharacter, iFragment.start_)
|
||||||
|
Call iRange.Collapse(wdCollapseStart)
|
||||||
|
Call iRange.MoveEnd(wdCharacter, iFragment.end_ - iFragment.start_)
|
||||||
|
Set RangeForFragment = iRange
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function InitNext() As Boolean
|
||||||
|
Dim nTarget&: nTarget = selection_.End
|
||||||
|
Dim iRange As Word.Range
|
||||||
|
Dim nFragment&
|
||||||
|
For nFragment = 1 To data_.Count Step 1
|
||||||
|
Set iRange = RangeForFragment(data_.data_.Item(nFragment))
|
||||||
|
If iRange.Start >= nTarget Then
|
||||||
|
InitNext = True
|
||||||
|
currentID_ = nFragment
|
||||||
|
Exit Function
|
||||||
|
End If
|
||||||
|
Next nFragment
|
||||||
|
|
||||||
|
If Not NextChunk Then _
|
||||||
|
Exit Function
|
||||||
|
InitNext = True
|
||||||
|
currentID_ = 1
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function InitPrev() As Boolean
|
||||||
|
Dim nTarget&: nTarget = selection_.Start
|
||||||
|
Dim iRange As Word.Range
|
||||||
|
Dim nFragment&
|
||||||
|
For nFragment = data_.Count To 1 Step -1
|
||||||
|
Set iRange = RangeForFragment(data_.data_.Item(nFragment))
|
||||||
|
If iRange.End <= nTarget Then
|
||||||
|
InitPrev = True
|
||||||
|
currentID_ = nFragment
|
||||||
|
Exit Function
|
||||||
|
End If
|
||||||
|
Next nFragment
|
||||||
|
|
||||||
|
If Not PrevChunk Then _
|
||||||
|
Exit Function
|
||||||
|
InitPrev = True
|
||||||
|
currentID_ = data_.Count
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function NextChunk() As Boolean
|
||||||
|
Dim iRange As Word.Range: Set iRange = selection_.Document.Range(start_, start_)
|
||||||
|
Dim oldStart&
|
||||||
|
Do
|
||||||
|
oldStart = iRange.Start
|
||||||
|
Call iRange.Move(wdParagraph, 1)
|
||||||
|
If iRange.Start = oldStart Or iRange.Start + 1 >= selection_.Document.Range.End Then
|
||||||
|
NextChunk = False
|
||||||
|
Exit Function
|
||||||
|
End If
|
||||||
|
Dim sText$: sText = iRange.Paragraphs.First.Range.Text
|
||||||
|
Dim iData As PC_ParsedData: Set iData = detector_.ExtractFragments(sText)
|
||||||
|
If Not iData.IsEmpty Then
|
||||||
|
NextChunk = True
|
||||||
|
start_ = iRange.Start
|
||||||
|
Set data_ = iData
|
||||||
|
Exit Function
|
||||||
|
End If
|
||||||
|
Loop
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function PrevChunk() As Boolean
|
||||||
|
Dim iRange As Word.Range: Set iRange = selection_.Document.Range(start_, start_)
|
||||||
|
Do
|
||||||
|
If iRange.Start = 0 Then
|
||||||
|
PrevChunk = False
|
||||||
|
Exit Function
|
||||||
|
End If
|
||||||
|
Call iRange.Move(wdParagraph, -1)
|
||||||
|
Dim sText$: sText = iRange.Paragraphs.First.Range.Text
|
||||||
|
Dim iData As PC_ParsedData: Set iData = detector_.ExtractFragments(sText)
|
||||||
|
If Not iData.IsEmpty Then
|
||||||
|
PrevChunk = True
|
||||||
|
start_ = iRange.Start
|
||||||
|
Set data_ = iData
|
||||||
|
Exit Function
|
||||||
|
End If
|
||||||
|
Loop
|
||||||
|
End Function
|
||||||
178
src/addin/Main.bas
Normal file
178
src/addin/Main.bas
Normal file
|
|
@ -0,0 +1,178 @@
|
||||||
|
Attribute VB_Name = "Main"
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
Public Function ExportAllData(iParamData() As String) As Variant
|
||||||
|
Dim oData As New Collection
|
||||||
|
Dim params As New ExtractionOptions: Call params.FromFlatData(iParamData)
|
||||||
|
|
||||||
|
Dim iDoc As Word.Document: Set iDoc = Word.ActiveDocument
|
||||||
|
Dim oItem As Collection
|
||||||
|
|
||||||
|
On Error GoTo RETURN_EMPTY
|
||||||
|
Dim iDetector As Object: Set iDetector = PTools().Detector(params.detector_, params.param_)
|
||||||
|
Dim oIterator As New IteratorDetected: Call oIterator.Init(iDoc, iDetector)
|
||||||
|
Do While Not oIterator.MoveNext Is Nothing
|
||||||
|
Set oItem = New Collection
|
||||||
|
Call oItem.Add(oIterator.Range.Start)
|
||||||
|
Call oItem.Add(oIterator.Range.End)
|
||||||
|
Call oItem.Add(IIf(oIterator.Fragment.type_ <> 0, oIterator.Fragment.type_, params.loadCategory_))
|
||||||
|
Call oItem.Add(SubstituteWhitespace(oIterator.Range.Text))
|
||||||
|
|
||||||
|
Call oData.Add(oItem)
|
||||||
|
Loop
|
||||||
|
On Error GoTo 0
|
||||||
|
|
||||||
|
RETURN_EMPTY:
|
||||||
|
ExportAllData = ConverToFlat2D(oData)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Sub RunNextFragment()
|
||||||
|
Dim rSelection As Word.Range: Set rSelection = Word.Selection.Range
|
||||||
|
Dim iDetector As Object: Set iDetector = PTools().Detector(GetUIState.detector_, GetUIState.detectionParam_)
|
||||||
|
Dim oIterator As New IteratorDetected: Call oIterator.Init(rSelection.Document, iDetector, rSelection.End)
|
||||||
|
If Not oIterator.MoveNext Is Nothing Then
|
||||||
|
Call oIterator.Range.Select
|
||||||
|
Else
|
||||||
|
Call VBA.Beep
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub RunPrevFragment()
|
||||||
|
Dim rSelection As Word.Range: Set rSelection = Word.Selection.Range
|
||||||
|
Dim iDetector As Object: Set iDetector = PTools().Detector(GetUIState.detector_, GetUIState.detectionParam_)
|
||||||
|
Dim oIterator As New IteratorDetected: Call oIterator.Init(rSelection.Document, iDetector, rSelection.Start)
|
||||||
|
If Not oIterator.MovePrev Is Nothing Then
|
||||||
|
Call oIterator.Range.Select
|
||||||
|
Else
|
||||||
|
Call VBA.Beep
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub RunMarkWord()
|
||||||
|
Dim iDoc As Word.Document: Set iDoc = Word.ActiveDocument
|
||||||
|
Dim nCount&: nCount = MarkAllDetected(iDoc, GetUIState.detector_, GetUIState.color_, GetUIState.detectionParam_)
|
||||||
|
Call iDoc.Application.ScreenRefresh
|
||||||
|
Call UserInteraction.ShowMessage(IM_MARKDOWN_COMPLETE, nCount)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub RunMarkParagraph()
|
||||||
|
Dim iDoc As Word.Document: Set iDoc = Word.ActiveDocument
|
||||||
|
Dim nCount&: nCount = MarkAllParagraphs(iDoc, GetUIState.detector_, GetUIState.color_, GetUIState.detectionParam_)
|
||||||
|
Call iDoc.Application.ScreenRefresh
|
||||||
|
Call UserInteraction.ShowMessage(IM_MARKDOWN_COMPLETE, nCount)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub RunBrowseFile()
|
||||||
|
Dim sFile$: sFile = UserInteraction.PromptFileFilter(ActiveDocument.Path & "\", "All files", "*.*")
|
||||||
|
If sFile = vbNullString Then _
|
||||||
|
Exit Sub
|
||||||
|
|
||||||
|
GetUIState.detectionParam_ = sFile
|
||||||
|
GetUIState.ribbon_.Value.Invalidate
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub RunMorphoParse()
|
||||||
|
Dim sText$: sText = EnsureSelectedText()
|
||||||
|
If sText = vbNullString Then _
|
||||||
|
Exit Sub
|
||||||
|
Dim sTags$: sTags = MorphoParse(sText)
|
||||||
|
Call UserInteraction.ShowMessage(IM_PARSE_MORPHO, sTags)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub RunContextInfo()
|
||||||
|
Dim sText$: sText = EnsureSelectedText()
|
||||||
|
If sText = vbNullString Then _
|
||||||
|
Exit Sub
|
||||||
|
|
||||||
|
Dim iDetector As Object: Set iDetector = PTools().Detector(GetUIState.detector_, GetUIState.detectionParam_)
|
||||||
|
If Not iDetector.Test(sText) Then
|
||||||
|
Call UserInteraction.ShowMessage(IM_TEST_FAILED, DetectorToStr(GetUIState.detector_))
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim iParser As Object: Set iParser = PTools().Parser(GetUIState.detector_, GetUIState.detectionParam_)
|
||||||
|
If iParser Is Nothing Then
|
||||||
|
Call UserInteraction.ShowMessage(IM_NO_PARSER_DATA, DetectorToStr(GetUIState.detector_))
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not iParser.Parse(sText) Then
|
||||||
|
Call UserInteraction.ShowMessage(IM_NO_PARSER_DATA, DetectorToStr(GetUIState.detector_))
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
Call UserInteraction.ShowMessage(IM_PARSED_DESCRIPTION, sText, DetectorToStr(GetUIState.detector_), iParser.GetDataDescription())
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub RunTransformSingle()
|
||||||
|
Dim rSelection As Word.Range: Set rSelection = WordAdjustRange(Word.Selection.Range)
|
||||||
|
Call rSelection.MoveEndWhile(" ", -1)
|
||||||
|
Dim sText$: sText = VBA.Trim(rSelection.Text)
|
||||||
|
If sText = vbNullString Then
|
||||||
|
Call UserInteraction.ShowMessage(EM_SELECTION_EMPTY)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim iDetector As Object: Set iDetector = PTools().Detector(GetUIState.detector_, GetUIState.detectionParam_)
|
||||||
|
If Not iDetector.Test(sText) Then
|
||||||
|
Call UserInteraction.ShowMessage(IM_TEST_FAILED, DetectorToStr(GetUIState.detector_))
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim iParser As Object: Set iParser = PTools().Parser(GetUIState.detector_, GetUIState.detectionParam_)
|
||||||
|
If iParser Is Nothing Then _
|
||||||
|
Exit Sub
|
||||||
|
|
||||||
|
Dim sNewText$: sNewText = iParser.Transform(sText, GetUIState.transformParam_)
|
||||||
|
If sText <> sNewText Then _
|
||||||
|
rSelection.Text = sNewText
|
||||||
|
Call rSelection.Select
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub RunTransformAll()
|
||||||
|
Dim iDoc As Word.Document: Set iDoc = Word.ActiveDocument
|
||||||
|
|
||||||
|
Dim nCount&: nCount = TransformAll(iDoc, GetUIState.GetOptions)
|
||||||
|
|
||||||
|
Call UserInteraction.ShowMessage(IM_TRANSFORM_COMPLETE, nCount)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub RunExportRanges()
|
||||||
|
Dim iDoc As Word.Document: Set iDoc = Word.ActiveDocument
|
||||||
|
|
||||||
|
Dim xlApp As New API_XLWrapper
|
||||||
|
Dim outWB As Excel.Workbook: Set outWB = xlApp.NewDocument
|
||||||
|
Call xlApp.PauseUI
|
||||||
|
|
||||||
|
Call OutputRanges(iDoc, outWB.Sheets(1), GetUIState.GetOptions)
|
||||||
|
|
||||||
|
Call xlApp.ResumeUI
|
||||||
|
|
||||||
|
Call UserInteraction.ShowMessage(IM_EXPORT_COMPLETE)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub RunExportAll()
|
||||||
|
Dim iDoc As Word.Document: Set iDoc = Word.ActiveDocument
|
||||||
|
|
||||||
|
Dim xlApp As New API_XLWrapper
|
||||||
|
Dim outWB As Excel.Workbook: Set outWB = xlApp.NewDocument
|
||||||
|
Call xlApp.PauseUI
|
||||||
|
|
||||||
|
Call OutputAllData(iDoc, outWB.Sheets(1), GetUIState.GetOptions)
|
||||||
|
|
||||||
|
Call xlApp.ResumeUI
|
||||||
|
|
||||||
|
Call UserInteraction.ShowMessage(IM_EXPORT_COMPLETE)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub RunHelp()
|
||||||
|
MsgBox "TODO"
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
' ======
|
||||||
|
Private Function EnsureSelectedText() As String
|
||||||
|
Dim rSelection As Word.Range: Set rSelection = WordAdjustRange(Word.Selection.Range)
|
||||||
|
Dim sText$: sText = VBA.Trim(rSelection.Text)
|
||||||
|
If sText = vbNullString Then _
|
||||||
|
Call UserInteraction.ShowMessage(EM_SELECTION_EMPTY)
|
||||||
|
EnsureSelectedText = sText
|
||||||
|
End Function
|
||||||
174
src/addin/MainImpl.bas
Normal file
174
src/addin/MainImpl.bas
Normal file
|
|
@ -0,0 +1,174 @@
|
||||||
|
Attribute VB_Name = "MainImpl"
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
Public Function MarkAllDetected(iDoc As Word.Document, nDetector As TDetector, iColor As TColor, sParam$) As Long
|
||||||
|
Dim nColor&: nColor = ColorToColorIndex(iColor)
|
||||||
|
Dim iDetector As Object: Set iDetector = PTools().Detector(nDetector, sParam)
|
||||||
|
Dim oIterator As New IteratorDetected: Call oIterator.Init(iDoc, iDetector)
|
||||||
|
Dim iRange As Word.Range
|
||||||
|
Dim fragmentColor&
|
||||||
|
Dim nCount&: nCount = 0
|
||||||
|
Do
|
||||||
|
Set iRange = oIterator.MoveNext
|
||||||
|
If iRange Is Nothing Then _
|
||||||
|
Exit Do
|
||||||
|
|
||||||
|
Dim nType&: nType = oIterator.Fragment.type_
|
||||||
|
fragmentColor = IIf(nType = 0, 0, ColorToColorIndex(TColor.[_First] + ((nType - 1) Mod TColor.[_Last])))
|
||||||
|
If nCount = 0 Then
|
||||||
|
Dim oldColor&: oldColor = iRange.HighlightColorIndex
|
||||||
|
If oldColor = nColor Or (oldColor = fragmentColor And fragmentColor <> 0) Then _
|
||||||
|
nColor = wdAuto
|
||||||
|
End If
|
||||||
|
If nColor <> wdAuto And fragmentColor <> 0 Then _
|
||||||
|
nColor = fragmentColor
|
||||||
|
iRange.HighlightColorIndex = nColor
|
||||||
|
nCount = nCount + 1
|
||||||
|
Loop
|
||||||
|
MarkAllDetected = nCount
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function MarkAllParagraphs(iDoc As Word.Document, nDetector As TDetector, iColor As TColor, sParam$) As Long
|
||||||
|
Dim nColor&: nColor = ColorToColorIndex(iColor)
|
||||||
|
Dim iDetector As Object: Set iDetector = PTools().Detector(nDetector, sParam)
|
||||||
|
Dim oIterator As New IteratorDetected: Call oIterator.Init(iDoc, iDetector)
|
||||||
|
Dim iRange As Word.Range
|
||||||
|
Dim nCount&: nCount = 0
|
||||||
|
Dim oldStart&: oldStart = -1
|
||||||
|
Do
|
||||||
|
Set iRange = oIterator.MoveNext
|
||||||
|
If iRange Is Nothing Then _
|
||||||
|
Exit Do
|
||||||
|
If nCount = 0 And iRange.HighlightColorIndex = nColor Then _
|
||||||
|
nColor = wdAuto
|
||||||
|
iRange.Paragraphs.First.Range.HighlightColorIndex = nColor
|
||||||
|
If oldStart <> iRange.Start Then
|
||||||
|
oldStart = iRange.Start
|
||||||
|
nCount = nCount + 1
|
||||||
|
End If
|
||||||
|
Loop
|
||||||
|
MarkAllParagraphs = nCount
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function MorphoParse(sText$) As String
|
||||||
|
MorphoParse = AccessPython.CallFunction(PY_MODULE_TEXT, "parse", Array(sText, ""))
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ConverToFlat2D(oData As Collection) As Variant
|
||||||
|
Dim iData() As Variant
|
||||||
|
If oData.Count = 0 Then
|
||||||
|
ConverToFlat2D = iData
|
||||||
|
Exit Function
|
||||||
|
End If
|
||||||
|
|
||||||
|
ReDim iData(0 To oData.Count - 1, 0 To oData.Item(1).Count - 1)
|
||||||
|
Dim nRow&: nRow = 0
|
||||||
|
Dim oItem As Object
|
||||||
|
Dim vElement As Variant
|
||||||
|
For Each oItem In oData
|
||||||
|
Dim nCol&: nCol = 0
|
||||||
|
For Each vElement In oItem
|
||||||
|
iData(nRow, nCol) = vElement
|
||||||
|
nCol = nCol + 1
|
||||||
|
Next vElement
|
||||||
|
nRow = nRow + 1
|
||||||
|
Next oItem
|
||||||
|
|
||||||
|
ConverToFlat2D = iData
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function TransformAll(iDoc As Word.Document, iOptions As ExtractionOptions) As Long
|
||||||
|
Dim iParser As Object: Set iParser = PTools().Parser(iOptions.detector_, iOptions.param_)
|
||||||
|
If iParser Is Nothing Then _
|
||||||
|
Exit Function
|
||||||
|
Dim iDetector As Object: Set iDetector = PTools().Detector(iOptions.detector_, iOptions.param_)
|
||||||
|
Dim oIterator As New IteratorDetected: Call oIterator.Init(iDoc, iDetector, iDoc.Range.End - 1)
|
||||||
|
|
||||||
|
Dim nCount&: nCount = 0
|
||||||
|
Do While Not oIterator.MovePrev Is Nothing
|
||||||
|
Dim sText$: sText = oIterator.Range.Text
|
||||||
|
Dim sNewText$: sNewText = iParser.Transform(sText, iOptions.transform_)
|
||||||
|
If sText <> sNewText Then
|
||||||
|
oIterator.Range.Text = sNewText
|
||||||
|
Call oIterator.Init(iDoc, iDetector, oIterator.Range.Start)
|
||||||
|
nCount = nCount + 1
|
||||||
|
End If
|
||||||
|
Loop
|
||||||
|
TransformAll = nCount
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function OutputRanges(iSource As Word.Document, wsOut As Excel.Worksheet, iOptions As ExtractionOptions)
|
||||||
|
Dim iDetector As Object: Set iDetector = PTools().Detector(iOptions.detector_, iOptions.param_)
|
||||||
|
Dim oIterator As New IteratorDetected: Call oIterator.Init(iSource, iDetector)
|
||||||
|
|
||||||
|
With wsOut
|
||||||
|
.Cells(1, S_E_ID) = "ID"
|
||||||
|
.Cells(1, S_E_START) = "Íà÷àëî"
|
||||||
|
.Cells(1, S_E_FINISH) = "Êîíåö"
|
||||||
|
.Cells(1, S_E_TYPE) = "Òèï"
|
||||||
|
End With
|
||||||
|
|
||||||
|
Dim nRow&: nRow = 2
|
||||||
|
Do While Not oIterator.MoveNext Is Nothing
|
||||||
|
With wsOut
|
||||||
|
.Cells(nRow, S_E_ID) = nRow - 1
|
||||||
|
.Cells(nRow, S_E_START) = oIterator.Range.Start
|
||||||
|
.Cells(nRow, S_E_FINISH) = oIterator.Range.End
|
||||||
|
.Cells(nRow, S_E_TYPE) = IIf(oIterator.Fragment.type_ = 0, iOptions.loadCategory_, oIterator.Fragment.type_)
|
||||||
|
End With
|
||||||
|
nRow = nRow + 1
|
||||||
|
Loop
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function OutputAllData(iSource As Word.Document, wsOut As Excel.Worksheet, iOptions As ExtractionOptions)
|
||||||
|
Dim iDetector As Object: Set iDetector = PTools().Detector(iOptions.detector_, iOptions.param_)
|
||||||
|
Dim iParser As Object: Set iParser = PTools().Parser(iOptions.detector_, iOptions.param_)
|
||||||
|
Dim oIterator As New IteratorDetected: Call oIterator.Init(iSource, iDetector)
|
||||||
|
|
||||||
|
With wsOut
|
||||||
|
.Cells(1, S_E_ID) = "ID"
|
||||||
|
.Cells(1, S_E_START) = "Íà÷àëî"
|
||||||
|
.Cells(1, S_E_FINISH) = "Êîíåö"
|
||||||
|
.Cells(1, S_E_TYPE) = "Òèï"
|
||||||
|
.Cells(1, S_E_TEXT) = "Òåêñò"
|
||||||
|
End With
|
||||||
|
|
||||||
|
Dim nRow&: nRow = 2
|
||||||
|
Dim iData As Collection
|
||||||
|
Do While Not oIterator.MoveNext Is Nothing
|
||||||
|
Dim sText$: sText = oIterator.Range.Text
|
||||||
|
With wsOut
|
||||||
|
.Cells(nRow, 1) = nRow - 1
|
||||||
|
.Cells(nRow, 2) = oIterator.Range.Start
|
||||||
|
.Cells(nRow, 3) = oIterator.Range.End
|
||||||
|
.Cells(nRow, 4) = IIf(oIterator.Fragment.type_ = 0, iOptions.loadCategory_, oIterator.Fragment.type_)
|
||||||
|
.Cells(nRow, 5) = sText
|
||||||
|
End With
|
||||||
|
If iParser Is Nothing Then _
|
||||||
|
GoTo NEXT_ROW
|
||||||
|
If Not iParser.Parse(sText) Then _
|
||||||
|
GoTo NEXT_ROW
|
||||||
|
Set iData = iParser.GetData()
|
||||||
|
If iData.Count = 0 Then _
|
||||||
|
GoTo NEXT_ROW
|
||||||
|
|
||||||
|
Dim nCol&: nCol = S_E_DATA
|
||||||
|
Dim vItem As Variant
|
||||||
|
For Each vItem In iData
|
||||||
|
wsOut.Cells(nRow, nCol) = vItem
|
||||||
|
nCol = nCol + 1
|
||||||
|
Next vItem
|
||||||
|
|
||||||
|
If nRow <> 2 Then _
|
||||||
|
GoTo NEXT_ROW
|
||||||
|
Dim iHeader As Scripting.Dictionary: Set iHeader = iParser.GetDataDescription()
|
||||||
|
nCol = S_E_DATA
|
||||||
|
For Each vItem In iHeader.Keys
|
||||||
|
wsOut.Cells(1, nCol) = vItem
|
||||||
|
nCol = nCol + 1
|
||||||
|
Next vItem
|
||||||
|
|
||||||
|
NEXT_ROW:
|
||||||
|
nRow = nRow + 1
|
||||||
|
Loop
|
||||||
|
End Function
|
||||||
29
src/addin/ManualSubs.bas
Normal file
29
src/addin/ManualSubs.bas
Normal file
|
|
@ -0,0 +1,29 @@
|
||||||
|
Attribute VB_Name = "ManualSubs"
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
'Public Function P_GetNPAFromActive() As Long()
|
||||||
|
' Dim frags As New PC_ParsedData
|
||||||
|
' Dim npaRegex As RegExp: Set npaRegex = GlobalNPARegex
|
||||||
|
'
|
||||||
|
' Dim aPar As Word.Paragraph
|
||||||
|
' Dim parRng As Word.Range
|
||||||
|
' Dim matches As Object
|
||||||
|
' Dim nMatch&
|
||||||
|
' For Each aPar In ActiveDocument.Paragraphs
|
||||||
|
' Set parRng = aPar.Range
|
||||||
|
' Dim sTxt$: sTxt = FixSpecialSymbols(parRng.Text)
|
||||||
|
' Set matches = npaRegex.Execute(sTxt)
|
||||||
|
' For nMatch = 1 To matches.Count Step 1
|
||||||
|
' Dim findRng As Word.Range: Set findRng = parRng.Duplicate
|
||||||
|
' Call findRng.MoveStart(wdCharacter, InStr(1, sTxt, matches.Item(nMatch - 1).SubMatches(0)))
|
||||||
|
' Call findRng.Collapse(wdCollapseStart)
|
||||||
|
' Call findRng.MoveEnd(wdCharacter, Len(matches.Item(nMatch - 1).SubMatches(0)))
|
||||||
|
' Call frags.AddItem(findRng.Start, findRng.End, 0)
|
||||||
|
' Next nMatch
|
||||||
|
' Next aPar
|
||||||
|
'
|
||||||
|
' If frags.data_.Count > 0 Then _
|
||||||
|
' P_GetNPAFromActive = frags.AsFlatData
|
||||||
|
'End Function
|
||||||
|
'
|
||||||
|
'
|
||||||
38
src/addin/UIState.cls
Normal file
38
src/addin/UIState.cls
Normal file
|
|
@ -0,0 +1,38 @@
|
||||||
|
VERSION 1.0 CLASS
|
||||||
|
BEGIN
|
||||||
|
MultiUse = -1 'True
|
||||||
|
END
|
||||||
|
Attribute VB_Name = "UIState"
|
||||||
|
Attribute VB_GlobalNameSpace = False
|
||||||
|
Attribute VB_Creatable = False
|
||||||
|
Attribute VB_PredeclaredId = False
|
||||||
|
Attribute VB_Exposed = False
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
Public ribbon_ As API_Ribbon
|
||||||
|
|
||||||
|
Public detector_ As TDetector
|
||||||
|
Public detectionParam_ As String
|
||||||
|
|
||||||
|
Public color_ As TColor
|
||||||
|
|
||||||
|
Public transformParam_ As String
|
||||||
|
|
||||||
|
Public category_ As Long
|
||||||
|
|
||||||
|
Private Sub Class_Initialize()
|
||||||
|
detector_ = T_DETECTOR_REGEX
|
||||||
|
color_ = T_COLOR_YELLOW
|
||||||
|
transformParam_ = vbNullString
|
||||||
|
detectionParam_ = vbNullString
|
||||||
|
category_ = 0
|
||||||
|
Set ribbon_ = New API_Ribbon
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function GetOptions() As ExtractionOptions
|
||||||
|
Set GetOptions = New ExtractionOptions
|
||||||
|
GetOptions.detector_ = detector_
|
||||||
|
GetOptions.param_ = detector_
|
||||||
|
GetOptions.transform_ = transformParam_
|
||||||
|
GetOptions.loadCategory_ = category_
|
||||||
|
End Function
|
||||||
85
src/addin/z_UIMessages.bas
Normal file
85
src/addin/z_UIMessages.bas
Normal file
|
|
@ -0,0 +1,85 @@
|
||||||
|
Attribute VB_Name = "z_UIMessages"
|
||||||
|
' Messaging module
|
||||||
|
Option Private Module
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
Public Enum MsgCode
|
||||||
|
' EM_COMBO_TAKEN = ERR_COMBO_TAKEN
|
||||||
|
|
||||||
|
EM_RIBBON_NOT_REACHABLE = 1
|
||||||
|
EM_SELECTION_EMPTY
|
||||||
|
|
||||||
|
IM_MARKDOWN_COMPLETE
|
||||||
|
IM_PARSE_MORPHO
|
||||||
|
IM_NO_PARSER_DATA
|
||||||
|
IM_TEST_FAILED
|
||||||
|
IM_PARSED_DESCRIPTION
|
||||||
|
IM_EXPORT_COMPLETE
|
||||||
|
IM_TRANSFORM_COMPLETE
|
||||||
|
|
||||||
|
' QM_CONFIG_EDIT_CONFIRM
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
Private g_UI As API_UserInteraction
|
||||||
|
|
||||||
|
Public Function UserInteraction() As API_UserInteraction
|
||||||
|
If g_UI Is Nothing Then _
|
||||||
|
Set g_UI = New API_UserInteraction
|
||||||
|
Set UserInteraction = g_UI
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function SetUserInteraction(newUI As API_UserInteraction)
|
||||||
|
Set g_UI = newUI
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ProcessErrorMessages(expectedErrors As Scripting.Dictionary)
|
||||||
|
If Err.Number = 0 Then _
|
||||||
|
Exit Function
|
||||||
|
|
||||||
|
Call Unload(CSE_ProgressBar)
|
||||||
|
If Not expectedErrors.Exists(Err.Number) Then _
|
||||||
|
Call Err.Raise(Err.Number)
|
||||||
|
|
||||||
|
Call UserInteraction.ShowMessage(Err.Number, Err.Source)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function UIShowMessage(theCode As MsgCode, ParamArray params() As Variant)
|
||||||
|
Dim unwrapped As Variant: unwrapped = params
|
||||||
|
unwrapped = FixForwardedParams(unwrapped)
|
||||||
|
|
||||||
|
Select Case theCode
|
||||||
|
Case EM_RIBBON_NOT_REACHABLE
|
||||||
|
Call MsgBox("Íå óäàëîñü âîññòàíîâèòü ñâÿçü ñ ëåíòîé!" & vbNewLine & _
|
||||||
|
"Ïîæàëóéñòà, çàêðîéòå âñå îêíà Word äëÿ âîññòàíîâëåíèÿ êîððåêòíîé ðàáîòû è ñîîáùèòå ðàçðàáîò÷èêó", vbExclamation)
|
||||||
|
Case EM_SELECTION_EMPTY: Call MsgBox("Âûäåëåííûé ôðàãìåíò íå ñîäåðæèò òåêñòà", vbExclamation)
|
||||||
|
|
||||||
|
Case IM_MARKDOWN_COMPLETE: Call MsgBox(Fmt("Ðàçìå÷åíî âõîæäåíèé: {1}", unwrapped), vbInformation)
|
||||||
|
Case IM_PARSE_MORPHO: Call MsgBox(Fmt("Òåãè ðàçáîðà: {1}", unwrapped), vbInformation)
|
||||||
|
Case IM_NO_PARSER_DATA: Call MsgBox(Fmt("Äîïîëíèòåëüíûå äàííûå îòñóòñòâóþò: {1}", unwrapped), vbInformation)
|
||||||
|
Case IM_TEST_FAILED: Call MsgBox(Fmt("Âûäåëåííûé òåêñò íå ñîîòâåòñòâóåò òèïó: {1}", unwrapped), vbInformation)
|
||||||
|
Case IM_EXPORT_COMPLETE: Call MsgBox("Ýêñïîðò çàâåðøåí", vbInformation)
|
||||||
|
Case IM_TRANSFORM_COMPLETE: Call MsgBox(Fmt("Îñóùåñòâëåííî ïðåîáðàçîâàíèé: {1}", unwrapped), vbInformation)
|
||||||
|
|
||||||
|
Case IM_PARSED_DESCRIPTION: Call MsgBox(Fmt("Èñõîäíûé òåêñò: {1}" & vbNewLine & _
|
||||||
|
"Òèï ðàçáîðà: {2}" & vbNewLine & _
|
||||||
|
"Äîïîëíèòåëüíûå äàííûå" & vbNewLine & "{3}", unwrapped), vbInformation)
|
||||||
|
|
||||||
|
Case Else: Call MsgBox("Íåâåðíûé êîä ñîîáùåíèÿ", vbCritical)
|
||||||
|
End Select
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function UIAskQuestion(theCode As MsgCode, ParamArray params() As Variant) As Boolean
|
||||||
|
Dim unwrapped As Variant: unwrapped = params
|
||||||
|
unwrapped = FixForwardedParams(unwrapped)
|
||||||
|
|
||||||
|
Dim answer&: answer = vbNo
|
||||||
|
Select Case theCode
|
||||||
|
' Case QM_CONFIG_EDIT_CONFIRM
|
||||||
|
' answer = MsgBox("Âíèìàíèå! Âû íà÷èíàåòå èçìåíåíèå ëîêàëüíîé êîíôèãóðàöèè ðàçìåòêè. Ýòè èçìåíåíèÿ íå áóäóò îòðàæàòüñÿ äëÿ äðóãèõ ïîëüçîâàòåëåé" & _
|
||||||
|
' vbNewLine & "Äëÿ èçìåíåíèÿ ñåðâåðíîé êîíôèãóðàöèè îáðàòèòåñü ê ðàçðàáîò÷èêó", vbYesNo + vbQuestion)
|
||||||
|
|
||||||
|
Case Else
|
||||||
|
Call MsgBox("Invalid message code", vbCritical)
|
||||||
|
End Select
|
||||||
|
UIAskQuestion = answer = vbYes
|
||||||
|
End Function
|
||||||
117
src/addin/z_UIRibbon.bas
Normal file
117
src/addin/z_UIRibbon.bas
Normal file
|
|
@ -0,0 +1,117 @@
|
||||||
|
Attribute VB_Name = "z_UIRibbon"
|
||||||
|
' Îáðàáîòêà íàæàòèé íà êíîïêè â ðèááîíå
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
Global g_UIState As UIState
|
||||||
|
|
||||||
|
Public Function GetUIState() As UIState
|
||||||
|
If g_UIState Is Nothing Then
|
||||||
|
Set g_UIState = New UIState
|
||||||
|
Call g_UIState.ribbon_.LoadFrom(RibbonTempFile)
|
||||||
|
' Call UIUpdateConfigList
|
||||||
|
End If
|
||||||
|
Set GetUIState = g_UIState
|
||||||
|
If g_UIState.ribbon_.Value Is Nothing Then _
|
||||||
|
Call UserInteraction.ShowMessage(EM_RIBBON_NOT_REACHABLE)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Sub Parse_LoadRibbon(aRibbon As IRibbonUI)
|
||||||
|
Set g_UIState = New UIState
|
||||||
|
Call g_UIState.ribbon_.Init(aRibbon, RibbonTempFile)
|
||||||
|
'Call UIUpdateConfigList
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub Parse_OnBtn(iControl As IRibbonControl)
|
||||||
|
Call EnsureGlobalState
|
||||||
|
Select Case iControl.ID
|
||||||
|
Case "NextFragment": Call RunNextFragment
|
||||||
|
Case "PrevFragment": Call RunPrevFragment
|
||||||
|
Case "BrowseFile": Call RunBrowseFile
|
||||||
|
Case "MorphoParse": Call RunMorphoParse
|
||||||
|
Case "ContextInfo": Call RunContextInfo
|
||||||
|
|
||||||
|
Case "MarkWord": Call RunMarkWord
|
||||||
|
Case "MarkParagraph": Call RunMarkParagraph
|
||||||
|
|
||||||
|
Case "TransformSingle": Call RunTransformSingle
|
||||||
|
Case "TransformAll": Call RunTransformAll
|
||||||
|
|
||||||
|
Case "ExportAll": Call RunExportAll
|
||||||
|
Case "ExportRanges": Call RunExportRanges
|
||||||
|
|
||||||
|
Case "ViewHelp": Call RunHelp
|
||||||
|
End Select
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function ParseUI_DetectorCount(iControl As IRibbonControl, ByRef nCount)
|
||||||
|
nCount = TDetector.[_Last]
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ParseUI_DetectorLabel(iControl As IRibbonControl, nIndex%, ByRef vLabel)
|
||||||
|
vLabel = DetectorToStr(nIndex + 1)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ParseUI_DetectorGetSelectedIndex(iControl As IRibbonControl, ByRef nValue)
|
||||||
|
Call EnsureGlobalState
|
||||||
|
nValue = g_UIState.detector_ - 1
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ParseUI_DetectorChange(iControl As IRibbonControl, sID$, nIndex As Variant)
|
||||||
|
Call EnsureGlobalState
|
||||||
|
g_UIState.detector_ = nIndex + 1
|
||||||
|
' Do any UI updates needed on entity switch
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ParseUI_ParamText(iControl As IRibbonControl, ByRef vLabel)
|
||||||
|
vLabel = GetUIState.detectionParam_
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ParseUI_ParamChange(iControl As IRibbonControl, sParam$)
|
||||||
|
Call EnsureGlobalState
|
||||||
|
g_UIState.detectionParam_ = sParam
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ParseUI_TransformText(iControl As IRibbonControl, ByRef vLabel)
|
||||||
|
vLabel = GetUIState.transformParam_
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ParseUI_TransformChange(iControl As IRibbonControl, sParam$)
|
||||||
|
Call EnsureGlobalState
|
||||||
|
g_UIState.transformParam_ = sParam
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ParseUI_CategoryText(iControl As IRibbonControl, ByRef vLabel)
|
||||||
|
vLabel = GetUIState.category_
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ParseUI_CategoryChange(iControl As IRibbonControl, sParam$)
|
||||||
|
Call EnsureGlobalState
|
||||||
|
g_UIState.category_ = sParam
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ParseUI_MarkupCount(iControl As IRibbonControl, ByRef nCount)
|
||||||
|
nCount = TColor.[_Last]
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ParseUI_MarkupLabel(iControl As IRibbonControl, nIndex%, ByRef vLabel)
|
||||||
|
vLabel = ColorToStr(nIndex + 1)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ParseUI_MarkupGetSelectedIndex(iControl As IRibbonControl, ByRef nValue)
|
||||||
|
Call EnsureGlobalState
|
||||||
|
nValue = g_UIState.color_ - 1
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ParseUI_MarkupChange(iControl As IRibbonControl, sID$, nIndex As Variant)
|
||||||
|
Call EnsureGlobalState
|
||||||
|
g_UIState.color_ = nIndex + 1
|
||||||
|
End Function
|
||||||
|
|
||||||
|
' =============
|
||||||
|
Private Function EnsureGlobalState() As Boolean
|
||||||
|
EnsureGlobalState = Not GetUIState Is Nothing
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function RibbonTempFile() As String
|
||||||
|
RibbonTempFile = Environ("TEMP") & "/" & TEMP_FILE_NAME & CStr(GetCurrentProcessId) & ".txt"
|
||||||
|
End Function
|
||||||
66
src/database/DataAccess.bas
Normal file
66
src/database/DataAccess.bas
Normal file
|
|
@ -0,0 +1,66 @@
|
||||||
|
Attribute VB_Name = "DataAccess"
|
||||||
|
Option Explicit
|
||||||
|
Option Private Module
|
||||||
|
|
||||||
|
' TODO: incapsulate into DB class
|
||||||
|
|
||||||
|
Private Const SHEET_SOURCE = "Èñòî÷íèêè"
|
||||||
|
Private Const SHEET_DATA = "Äàííûå"
|
||||||
|
|
||||||
|
Public Function DataSheet() As Excel.Worksheet
|
||||||
|
Set DataSheet = ThisWorkbook.Sheets(SHEET_DATA)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function SourceSheet() As Excel.Worksheet
|
||||||
|
Set SourceSheet = ThisWorkbook.Sheets(SHEET_SOURCE)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function AddSource(target As Word.Document) As Long
|
||||||
|
AddSource = SourceSheet.Cells(GetRowFor(target.FullName), SS_ID)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function SourceFileFor(sourceID&) As String
|
||||||
|
Dim foundRng As Excel.Range
|
||||||
|
Set foundRng = SourceSheet.Columns(SS_ID).Find(sourceID, LookAt:=xlWhole)
|
||||||
|
If foundRng Is Nothing Then _
|
||||||
|
Exit Function
|
||||||
|
|
||||||
|
SourceFileFor = SourceSheet.Cells(foundRng.Row, SS_PATH)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function RowFor(sourceID&) As Long
|
||||||
|
Dim foundRng As Excel.Range
|
||||||
|
Set foundRng = SourceSheet.Columns(SS_ID).Find(sourceID, LookAt:=xlWhole)
|
||||||
|
If foundRng Is Nothing Then _
|
||||||
|
Exit Function
|
||||||
|
|
||||||
|
RowFor = foundRng.Row
|
||||||
|
End Function
|
||||||
|
|
||||||
|
' ====
|
||||||
|
Private Function GetNextID() As Long
|
||||||
|
Dim docsSht As Excel.Worksheet: Set docsSht = SourceSheet
|
||||||
|
Dim nRow&: nRow = DEFAULT_FIRST_ROW
|
||||||
|
Dim theID&: theID = 1
|
||||||
|
Do While docsSht.Cells(nRow, SS_ID) <> vbNullString
|
||||||
|
If theID >= docsSht.Cells(nRow, SS_ID) Then _
|
||||||
|
theID = docsSht.Cells(nRow, SS_ID) + 1
|
||||||
|
nRow = nRow + 1
|
||||||
|
Loop
|
||||||
|
GetNextID = theID
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function GetRowFor(target$) As Long
|
||||||
|
Dim theSheet As Excel.Worksheet: Set theSheet = SourceSheet
|
||||||
|
Dim foundRng As Excel.Range
|
||||||
|
Set foundRng = theSheet.Columns(SS_PATH).Find(target, LookAt:=xlWhole)
|
||||||
|
If foundRng Is Nothing Then
|
||||||
|
Dim nRow&: nRow = theSheet.Columns(SS_ID).Find(vbNullString, LookAt:=xlWhole).Row
|
||||||
|
theSheet.Cells(nRow, SS_ID) = GetNextID
|
||||||
|
theSheet.Cells(nRow, SS_PATH) = target
|
||||||
|
Call theSheet.Cells(nRow, SS_PATH).Hyperlinks.Add(theSheet.Cells(nRow, SS_PATH), target)
|
||||||
|
GetRowFor = nRow
|
||||||
|
Else
|
||||||
|
GetRowFor = foundRng.Row
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
38
src/database/Declarations.bas
Normal file
38
src/database/Declarations.bas
Normal file
|
|
@ -0,0 +1,38 @@
|
||||||
|
Attribute VB_Name = "Declarations"
|
||||||
|
Option Explicit
|
||||||
|
Option Private Module
|
||||||
|
|
||||||
|
' Ñòðóêòóðà ñòðàíèöû äàííûõ
|
||||||
|
Public Enum DataStruct
|
||||||
|
[_First] = 1
|
||||||
|
|
||||||
|
DS_ID = 1
|
||||||
|
DS_START = 2
|
||||||
|
DS_END = 3
|
||||||
|
DS_TYPE = 4
|
||||||
|
DS_TEXT = 5
|
||||||
|
|
||||||
|
[_Last] = 5
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
' Ñòðóêòóðà ñòðàíèöû èñòî÷íèêîâ
|
||||||
|
Public Enum SourceStruct
|
||||||
|
[_First] = 1
|
||||||
|
|
||||||
|
SS_ID = 1
|
||||||
|
SS_PATH = 2
|
||||||
|
SS_NAME = 3
|
||||||
|
SS_PARS = 4
|
||||||
|
SS_TIME = 5
|
||||||
|
SS_COUNT = 6
|
||||||
|
|
||||||
|
[_Last] = 6
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
Public Const FUNC_PARSE = "ExportAllData"
|
||||||
|
|
||||||
|
Public Const ADDIN_FILENAME = "Parsers.dotm"
|
||||||
|
Public Const DOC_MASK = "*.doc*"
|
||||||
|
|
||||||
|
Public Const DEFAULT_FIRST_ROW = 2
|
||||||
|
Public Const INVALID_ROW = -1
|
||||||
50
src/database/DevHelper.bas
Normal file
50
src/database/DevHelper.bas
Normal file
|
|
@ -0,0 +1,50 @@
|
||||||
|
Attribute VB_Name = "DevHelper"
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
Private Const TEST_BASIC_PARSE = "TestBasic.docx"
|
||||||
|
Private Const ADDIN_FILE = "Parsers.dotm"
|
||||||
|
|
||||||
|
Private g_RemoveAddin As Boolean
|
||||||
|
|
||||||
|
Public Function Dev_PrepareSkeleton()
|
||||||
|
Call ClearAll
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Sub Dev_ManualRunTest()
|
||||||
|
Dim sSuite$: sSuite = "s_WordInteractions"
|
||||||
|
Dim sTest$: sTest = "t_ImportDates"
|
||||||
|
Dim sMsg$: sMsg = Dev_RunTestDebug(sSuite, sTest)
|
||||||
|
Debug.Print sMsg
|
||||||
|
Call MsgBox(sMsg)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function Dev_GetTestSuite(sName$) As Object
|
||||||
|
Select Case sName
|
||||||
|
Case "s_WordInteractions": Set Dev_GetTestSuite = New s_WordInteractions
|
||||||
|
End Select
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function GetTestFile() As String
|
||||||
|
Dim fso As New Scripting.FileSystemObject
|
||||||
|
GetTestFile = ThisWorkbook.Path & "\test\" & TEST_BASIC_PARSE
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function SetupTestAddin()
|
||||||
|
Dim fso As New Scripting.FileSystemObject
|
||||||
|
Dim sLocal$: sLocal = ThisWorkbook.Path & "\Íàäñòðîéêà\" & ADDIN_FILE
|
||||||
|
Dim sAppAddin$: sAppAddin = GetGlobalAddin
|
||||||
|
g_RemoveAddin = Not fso.FileExists(sAppAddin)
|
||||||
|
Call CopyFileOrFolder(sLocal, sAppAddin, fso)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function TeardownTestAddin()
|
||||||
|
Dim fso As New Scripting.FileSystemObject
|
||||||
|
On Error Resume Next
|
||||||
|
If g_RemoveAddin Then _
|
||||||
|
Call fso.DeleteFile(GetGlobalAddin)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
' ======
|
||||||
|
Private Function GetGlobalAddin() As String
|
||||||
|
GetGlobalAddin = VBA.Environ$("APPDATA") & "\Microsoft\Word\STARTUP\" & ADDIN_FILE
|
||||||
|
End Function
|
||||||
92
src/database/ImportDlg.frm
Normal file
92
src/database/ImportDlg.frm
Normal file
|
|
@ -0,0 +1,92 @@
|
||||||
|
VERSION 5.00
|
||||||
|
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ImportDlg
|
||||||
|
Caption = "Âûáîð èñòî÷íèêà äàííûõ"
|
||||||
|
ClientHeight = 2805
|
||||||
|
ClientLeft = 120
|
||||||
|
ClientTop = 465
|
||||||
|
ClientWidth = 6780
|
||||||
|
OleObjectBlob = "ImportDlg.frx":0000
|
||||||
|
StartUpPosition = 1 'CenterOwner
|
||||||
|
End
|
||||||
|
Attribute VB_Name = "ImportDlg"
|
||||||
|
Attribute VB_GlobalNameSpace = False
|
||||||
|
Attribute VB_Creatable = False
|
||||||
|
Attribute VB_PredeclaredId = True
|
||||||
|
Attribute VB_Exposed = False
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
Public isCancelled_ As Boolean
|
||||||
|
Public isFolder_ As Boolean
|
||||||
|
|
||||||
|
Private Sub UserForm_Initialize()
|
||||||
|
Dim nType As TDetector
|
||||||
|
For nType = TDetector.[_First] To TDetector.[_Last]
|
||||||
|
Call CBType.AddItem(DetectorToStr(nType))
|
||||||
|
Next nType
|
||||||
|
|
||||||
|
isFolder_ = False
|
||||||
|
isCancelled_ = True
|
||||||
|
TBCategory.Value = 0
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub UserForm_Terminate()
|
||||||
|
isCancelled_ = True
|
||||||
|
Call Me.Hide
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Property Get FileName() As String
|
||||||
|
FileName = TBDocument.Text
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Property Get Options() As ExtractionOptions
|
||||||
|
Set Options = New ExtractionOptions
|
||||||
|
Options.detector_ = CBType.ListIndex + 1
|
||||||
|
Options.param_ = TBParam.Text
|
||||||
|
Options.transform_ = TBTransform.Text
|
||||||
|
Options.loadCategory_ = TBCategory.Value
|
||||||
|
End Property
|
||||||
|
|
||||||
|
' ============
|
||||||
|
Private Sub DocumentBtn_Click()
|
||||||
|
Dim sFile$: sFile = UserInteraction.PromptFileFilter( _
|
||||||
|
ThisWorkbook.Path & "\", _
|
||||||
|
sDescription:="Äîêóìåíò Word", _
|
||||||
|
sFilter:="*.docx;*.doc;*.docm")
|
||||||
|
If sFile = vbNullString Then _
|
||||||
|
Exit Sub
|
||||||
|
isFolder_ = False
|
||||||
|
TBDocument.Text = sFile
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub ParameterBtn_Click()
|
||||||
|
Dim sFile$: sFile = UserInteraction.PromptFileFilter( _
|
||||||
|
ThisWorkbook.Path & "\", _
|
||||||
|
"All files", _
|
||||||
|
"*.*")
|
||||||
|
If sFile = vbNullString Then _
|
||||||
|
Exit Sub
|
||||||
|
TBParam.Text = sFile
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub FolderBtn_Click()
|
||||||
|
Dim sFile$: sFile = UserInteraction.PromptFolder(ThisWorkbook.Path & "\")
|
||||||
|
If sFile = vbNullString Then _
|
||||||
|
Exit Sub
|
||||||
|
isFolder_ = True
|
||||||
|
TBDocument.Text = sFile
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CancelBtn_Click()
|
||||||
|
isCancelled_ = True
|
||||||
|
Call Me.Hide
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub OkBtn_Click()
|
||||||
|
If FileName = vbNullString Or CBType.ListIndex = -1 Then
|
||||||
|
Call UserInteraction.ShowMessage(EM_VALIDATION_FAIL)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
isCancelled_ = False
|
||||||
|
Call Me.Hide
|
||||||
|
End Sub
|
||||||
BIN
src/database/ImportDlg.frx
Normal file
BIN
src/database/ImportDlg.frx
Normal file
Binary file not shown.
62
src/database/Main.bas
Normal file
62
src/database/Main.bas
Normal file
|
|
@ -0,0 +1,62 @@
|
||||||
|
Attribute VB_Name = "Main"
|
||||||
|
Option Explicit
|
||||||
|
Option Private Module
|
||||||
|
|
||||||
|
Public Const PRODUCT_VERSION = "1.3.0"
|
||||||
|
Public Const PRODUCT_NAME = "Concept-Mining"
|
||||||
|
|
||||||
|
Public g_VersionTimer As Long
|
||||||
|
|
||||||
|
Public Sub Auto_Open()
|
||||||
|
Dim sCmd$: sCmd = OfficeCommandLine
|
||||||
|
If VBA.InStr(1, sCmd, "/automation", vbTextCompare) <> 0 Then _
|
||||||
|
Exit Sub
|
||||||
|
|
||||||
|
g_VersionTimer = SetTimer(0, 0, CP_VERSION_MSG_DELAY, AddressOf OnVersionCheck)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function OnVersionCheck(ByVal nHwnd As Long, ByVal uMsg As Long, ByVal nEvent As Long, ByVal nTime As Long)
|
||||||
|
Call KillTimer(0, g_VersionTimer)
|
||||||
|
Call VersionValidate(PRODUCT_NAME, PRODUCT_VERSION)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Sub RunImportWord()
|
||||||
|
If Not EnsureAddinInstalled Then _
|
||||||
|
Exit Sub
|
||||||
|
|
||||||
|
Call ImportDlg.Show
|
||||||
|
If ImportDlg.isCancelled_ Then
|
||||||
|
Unload ImportDlg
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim iParams As ExtractionOptions: Set iParams = ImportDlg.Options
|
||||||
|
Dim sPath$: sPath = ImportDlg.FileName
|
||||||
|
Dim bIsFolder As Boolean: bIsFolder = ImportDlg.isFolder_
|
||||||
|
Call Unload(ImportDlg)
|
||||||
|
|
||||||
|
Dim nCount&: nCount = ProcessImports(sPath, bIsFolder, iParams)
|
||||||
|
|
||||||
|
Call UserInteraction.ShowMessage(IM_IMPORT_COMPLETE, nCount)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub RunFollowLink()
|
||||||
|
Dim theSheet As Excel.Worksheet: Set theSheet = DataSheet
|
||||||
|
If ThisWorkbook.ActiveSheet.Name <> theSheet.Name Then
|
||||||
|
Call UserInteraction.ShowMessage(EM_EXPECTED_DATASHEET)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim nRow&: nRow = ThisWorkbook.Application.Selection.Cells(1, 1).Row
|
||||||
|
Dim srcID$: srcID = theSheet.Cells(nRow, DS_ID)
|
||||||
|
If srcID = vbNullString Or Not IsNumeric(srcID) Then
|
||||||
|
Call UserInteraction.ShowMessage(EM_INVALID_SOURCE_ID)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
Call FollowLinkAt(CLng(srcID), theSheet.Cells(nRow, DS_START), theSheet.Cells(nRow, DS_END))
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub RunClearAll()
|
||||||
|
Call ClearAll
|
||||||
|
Call UserInteraction.ShowMessage(IM_CLEAR_ALL)
|
||||||
|
End Sub
|
||||||
152
src/database/MainImpl.bas
Normal file
152
src/database/MainImpl.bas
Normal file
|
|
@ -0,0 +1,152 @@
|
||||||
|
Attribute VB_Name = "MainImpl"
|
||||||
|
Option Explicit
|
||||||
|
Option Private Module
|
||||||
|
|
||||||
|
Public Function EnsureAddinInstalled() As Boolean
|
||||||
|
Dim sPath$: sPath = Environ("APPDATA") & "\Microsoft\Word\STARTUP\" & ADDIN_FILENAME
|
||||||
|
Dim fso As New Scripting.FileSystemObject
|
||||||
|
EnsureAddinInstalled = fso.FileExists(sPath)
|
||||||
|
If Not EnsureAddinInstalled Then _
|
||||||
|
Call UserInteraction.ShowMessage(EM_NO_ADDIN)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ClearAll()
|
||||||
|
SourceSheet.UsedRange.Offset(1).ClearContents
|
||||||
|
DataSheet.UsedRange.Offset(1).ClearContents
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function ScanDocsFolder(target$) As Collection
|
||||||
|
Set ScanDocsFolder = New Collection
|
||||||
|
|
||||||
|
Dim sFolder$: sFolder = target & "\"
|
||||||
|
Dim sFile$: sFile = Dir(sFolder & DOC_MASK)
|
||||||
|
Do While Len(sFile) > 0 And sFile <> sFolder
|
||||||
|
Call ScanDocsFolder.Add(sFolder & sFile)
|
||||||
|
sFile = Dir
|
||||||
|
Loop
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function ProcessImports(sPath$, bIsFolder As Boolean, params As ExtractionOptions, Optional bSilent As Boolean = False) As Long
|
||||||
|
Dim wordApp As New API_WordWrapper: Call wordApp.CreateApplication(bIsVisible:=False)
|
||||||
|
If bSilent Then _
|
||||||
|
Call wordApp.DisableMessages
|
||||||
|
|
||||||
|
Dim xlUI As New API_XLWrapper: Call xlUI.SetApplication(ThisWorkbook.Application)
|
||||||
|
Call xlUI.PauseUI
|
||||||
|
ThisWorkbook.Application.DisplayAlerts = False
|
||||||
|
|
||||||
|
Dim nCount&: nCount = 0
|
||||||
|
Dim theDoc As Word.Document
|
||||||
|
If Not bIsFolder Then
|
||||||
|
Set theDoc = wordApp.OpenDocument(sPath, bReadOnly:=True)
|
||||||
|
If theDoc Is Nothing Then _
|
||||||
|
GoTo SAFE_EXIT
|
||||||
|
nCount = nCount + ScanDataFrom(wordApp, params)
|
||||||
|
Call wordApp.ReleaseDocument
|
||||||
|
Else
|
||||||
|
Dim docs As Collection: Set docs = ScanDocsFolder(sPath)
|
||||||
|
Call CSE_ProgressBar.Init("Îáðàáîòêà äîêóìåíòîâ", maxVal:=docs.Count - 1, canInterrupt:=True)
|
||||||
|
If Not bSilent Then _
|
||||||
|
Call CSE_ProgressBar.Show
|
||||||
|
|
||||||
|
Dim sFile As Variant
|
||||||
|
For Each sFile In docs
|
||||||
|
Set theDoc = wordApp.OpenDocument(CStr(sFile), bReadOnly:=True)
|
||||||
|
If theDoc Is Nothing Then _
|
||||||
|
GoTo SAFE_EXIT
|
||||||
|
|
||||||
|
theDoc.Range.NoProofing = True
|
||||||
|
|
||||||
|
CSE_ProgressBar.Description = theDoc.Name
|
||||||
|
nCount = nCount + ScanDataFrom(wordApp, params)
|
||||||
|
Call wordApp.ReleaseDocument(bCloseApplication:=False)
|
||||||
|
|
||||||
|
Call CSE_ProgressBar.IncrementA
|
||||||
|
If CSE_ProgressBar.Interrupted Then _
|
||||||
|
Exit For
|
||||||
|
Next sFile
|
||||||
|
|
||||||
|
Call Unload(CSE_ProgressBar)
|
||||||
|
End If
|
||||||
|
|
||||||
|
SAFE_EXIT:
|
||||||
|
ThisWorkbook.Application.DisplayAlerts = True
|
||||||
|
Call xlUI.ResumeUI
|
||||||
|
Call wordApp.ReleaseApplication
|
||||||
|
ProcessImports = nCount
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function FollowLinkAt(target&, nStart&, nEnd&)
|
||||||
|
Dim sPath$: sPath = SourceFileFor(target)
|
||||||
|
If sPath = vbNullString Then
|
||||||
|
Call UserInteraction.ShowMessage(EM_INVALID_SOURCE_ID)
|
||||||
|
Exit Function
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim fso As New Scripting.FileSystemObject
|
||||||
|
If Not fso.FileExists(sPath) Then
|
||||||
|
Call UserInteraction.ShowMessage(EM_INVALID_PATH, sPath)
|
||||||
|
Exit Function
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim wordApp As New API_WordWrapper
|
||||||
|
Dim theDoc As Word.Document: Set theDoc = wordApp.OpenDocument(sPath)
|
||||||
|
If theDoc Is Nothing Then _
|
||||||
|
Exit Function
|
||||||
|
|
||||||
|
If theDoc.Range.End < nEnd Then
|
||||||
|
Call UserInteraction.ShowMessage(EM_INVALID_LINK, sPath)
|
||||||
|
Exit Function
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim targetRng As Word.Range: Set targetRng = theDoc.Range(nStart, nEnd)
|
||||||
|
Call targetRng.Select
|
||||||
|
Call theDoc.ActiveWindow.ScrollIntoView(targetRng)
|
||||||
|
|
||||||
|
Call wordApp.Application.Activate
|
||||||
|
End Function
|
||||||
|
|
||||||
|
' ======
|
||||||
|
Private Function ScanDataFrom(target As API_WordWrapper, params As ExtractionOptions) As Long
|
||||||
|
Dim dataSht As Excel.Worksheet: Set dataSht = DataSheet
|
||||||
|
Dim srcSht As Excel.Worksheet: Set srcSht = SourceSheet
|
||||||
|
Dim theTimer As New API_Timer
|
||||||
|
|
||||||
|
Call theTimer.Start
|
||||||
|
Call target.Document.Activate
|
||||||
|
|
||||||
|
Dim srcID&: srcID = AddSource(target.Document)
|
||||||
|
Dim srcRow: srcRow = RowFor(srcID)
|
||||||
|
Dim nCount&: nCount = 0
|
||||||
|
Dim newData As Variant
|
||||||
|
|
||||||
|
Call target.Document.Activate
|
||||||
|
On Error GoTo EXIT_FUNCTION
|
||||||
|
newData = target.Run(FUNC_PARSE, params.AsFlatData)
|
||||||
|
On Error GoTo 0
|
||||||
|
If ArraySize(newData) <= 0 Then _
|
||||||
|
Exit Function
|
||||||
|
|
||||||
|
Dim nRow&: nRow = dataSht.Columns(DS_ID).Find(vbNullString, LookAt:=xlWhole).Row
|
||||||
|
Dim nDataRow&
|
||||||
|
Dim nDataCol&
|
||||||
|
For nDataRow = LBound(newData, 1) To UBound(newData, 1) Step 1
|
||||||
|
dataSht.Cells(nRow, DS_ID) = srcID
|
||||||
|
Dim nCol&: nCol = DS_ID + 1
|
||||||
|
For nDataCol = LBound(newData, 2) To UBound(newData, 2) Step 1
|
||||||
|
dataSht.Cells(nRow, nCol) = newData(nDataRow, nDataCol)
|
||||||
|
nCol = nCol + 1
|
||||||
|
Next nDataCol
|
||||||
|
|
||||||
|
nRow = nRow + 1
|
||||||
|
nCount = nCount + 1
|
||||||
|
Next nDataRow
|
||||||
|
|
||||||
|
srcSht.Cells(srcRow, SS_TIME) = theTimer.TimeElapsed
|
||||||
|
srcSht.Cells(srcRow, SS_COUNT) = nCount
|
||||||
|
srcSht.Cells(srcRow, SS_NAME) = target.Document.Name
|
||||||
|
srcSht.Cells(srcRow, SS_PARS) = target.Document.Paragraphs.Count
|
||||||
|
|
||||||
|
EXIT_FUNCTION:
|
||||||
|
ScanDataFrom = nCount
|
||||||
|
End Function
|
||||||
6
src/database/ManualSubs.bas
Normal file
6
src/database/ManualSubs.bas
Normal file
|
|
@ -0,0 +1,6 @@
|
||||||
|
Attribute VB_Name = "ManualSubs"
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
Public Sub RunClear()
|
||||||
|
Call ClearAll
|
||||||
|
End Sub
|
||||||
69
src/database/z_UIMessages.bas
Normal file
69
src/database/z_UIMessages.bas
Normal file
|
|
@ -0,0 +1,69 @@
|
||||||
|
Attribute VB_Name = "z_UIMessages"
|
||||||
|
' Messaging module
|
||||||
|
Option Private Module
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
Public Enum MsgCode
|
||||||
|
MSG_OK = 0
|
||||||
|
|
||||||
|
EM_EXPECTED_DATASHEET
|
||||||
|
EM_NO_ADDIN
|
||||||
|
EM_INVALID_SOURCE_ID
|
||||||
|
EM_INVALID_PATH
|
||||||
|
EM_INVALID_LINK
|
||||||
|
EM_VALIDATION_FAIL
|
||||||
|
|
||||||
|
IM_IMPORT_COMPLETE
|
||||||
|
IM_CLEAR_ALL
|
||||||
|
|
||||||
|
'QM_ADD_TITLELINK
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
Private g_UI As API_UserInteraction
|
||||||
|
|
||||||
|
Public Function UserInteraction() As API_UserInteraction
|
||||||
|
If g_UI Is Nothing Then _
|
||||||
|
Set g_UI = New API_UserInteraction
|
||||||
|
Set UserInteraction = g_UI
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function SetUserInteraction(newUI As API_UserInteraction)
|
||||||
|
Set g_UI = newUI
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function UIShowMessage(theCode As MsgCode, ParamArray params() As Variant)
|
||||||
|
Dim unwrapped As Variant: unwrapped = params
|
||||||
|
unwrapped = FixForwardedParams(unwrapped)
|
||||||
|
|
||||||
|
Select Case theCode
|
||||||
|
Case EM_EXPECTED_DATASHEET: Call MsgBox("Äàííàÿ ôóíêöèÿ äîñòóïíà òîëüêî äëÿ ëèñòà ""Äàííûå""", vbExclamation)
|
||||||
|
Case EM_NO_ADDIN: Call MsgBox("Âíèìàíèå! Äëÿ êîððåêòíîé ðàáîòû ïàðñåðîâ íåîáõîäèìî óñòàíîâèòü íàäñòðîéêó äëÿ Word", vbCritical)
|
||||||
|
Case EM_INVALID_SOURCE_ID: Call MsgBox("Âûäåëèòå ñòðîêó ñ êîððåêòíûì èäåíòèôèêàòîðîì èñòî÷íèêà", vbExclamation)
|
||||||
|
Case EM_INVALID_PATH: Call MsgBox(Fmt("Ôàéë íå zñóùåñòâóåò: {1}", unwrapped), vbExclamation)
|
||||||
|
Case EM_INVALID_LINK: Call MsgBox(Fmt("Äèàïàçîí ññûëêè èìååò êîîðäèíàòû, ïðåâûøàþùèå ðàçìåð îòêðûòîãî ôàéëà {1}", unwrapped), vbExclamation)
|
||||||
|
Case EM_VALIDATION_FAIL: Call MsgBox("Çàïîëíèòå âñå ïîëÿ", vbExclamation)
|
||||||
|
|
||||||
|
Case IM_IMPORT_COMPLETE: Call MsgBox(Fmt("Èìïîðò äàííûõ ïðîèçâåäåí óñïåøíî" & vbNewLine & "Äîáàâëåíî ñòðîê: {1}", unwrapped), vbInformation)
|
||||||
|
Case IM_CLEAR_ALL: Call MsgBox("Âñå äàííûå óäàëåíû", vbInformation)
|
||||||
|
|
||||||
|
Case Else
|
||||||
|
Call MsgBox("Íåâåðíûé êîä ñîîáùåíèÿ", vbCritical)
|
||||||
|
End Select
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function UIAskQuestion(theCode As MsgCode, ParamArray params() As Variant) As Boolean
|
||||||
|
Dim unwrapped As Variant: unwrapped = params
|
||||||
|
unwrapped = FixForwardedParams(unwrapped)
|
||||||
|
|
||||||
|
Dim answer As Long: answer = vbNo
|
||||||
|
Select Case theCode
|
||||||
|
' Case QM_ADD_TITLELINK
|
||||||
|
' answer = MsgBox("Âíèìàíèå! Âû äîáàâëÿåòå äîêóìåíò íå èç ÃÀÐÀÍÒà" & vbNewLine & _
|
||||||
|
' "Äëÿ íåãî ñãåíåðèðîâàí ID: " & p1 & vbNewLine & _
|
||||||
|
' "Â ïåðâûé àáçàö áóäåò äîáàâëåíà ñîîòâåòñòâóþùàÿ ññûëêà. Ïðîäîëæèòü?", vbYesNo + vbQuestion)
|
||||||
|
|
||||||
|
Case Else
|
||||||
|
Call MsgBox("Íåâåðíûé êîä ñîîáùåíèÿ", vbCritical)
|
||||||
|
End Select
|
||||||
|
UIAskQuestion = answer = vbYes
|
||||||
|
End Function
|
||||||
11
src/database/z_UIRibbon.bas
Normal file
11
src/database/z_UIRibbon.bas
Normal file
|
|
@ -0,0 +1,11 @@
|
||||||
|
Attribute VB_Name = "z_UIRibbon"
|
||||||
|
' Îáðàáîòêà íàæàòèé íà êíîïêè â ðèááîíå
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
Sub OnRibbonBtn(control As IRibbonControl)
|
||||||
|
Select Case control.ID
|
||||||
|
Case "ImportWord": Call RunImportWord
|
||||||
|
Case "FollowLink": Call RunFollowLink
|
||||||
|
Case "ClearAll": Call RunClearAll
|
||||||
|
End Select
|
||||||
|
End Sub
|
||||||
56
src/test/s_WordInteractions.cls
Normal file
56
src/test/s_WordInteractions.cls
Normal file
|
|
@ -0,0 +1,56 @@
|
||||||
|
VERSION 1.0 CLASS
|
||||||
|
BEGIN
|
||||||
|
MultiUse = -1 'True
|
||||||
|
END
|
||||||
|
Attribute VB_Name = "s_WordInteractions"
|
||||||
|
Attribute VB_GlobalNameSpace = False
|
||||||
|
Attribute VB_Creatable = False
|
||||||
|
Attribute VB_PredeclaredId = False
|
||||||
|
Attribute VB_Exposed = False
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
Public Function Setup()
|
||||||
|
Call SetupTestAddin
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Teardown()
|
||||||
|
Call TeardownTestAddin
|
||||||
|
Call ClearAll
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function t_ImportInvalid()
|
||||||
|
On Error GoTo PROPAGATE_ERROR
|
||||||
|
|
||||||
|
Dim iParams As New ExtractionOptions
|
||||||
|
iParams.detector_ = T_DETECTOR_DATE
|
||||||
|
|
||||||
|
Call Dev_NewCase("No file")
|
||||||
|
Call Dev_ExpectEQ(ProcessImports("invalid.txt", False, iParams, bSilent:=True), 0)
|
||||||
|
Call Dev_ExpectEQ(SourceSheet.Cells(2, 1), "")
|
||||||
|
|
||||||
|
Call Dev_NewCase("Invalid detector")
|
||||||
|
iParams.detector_ = T_DETECTOR_UNKNOWN
|
||||||
|
Call Dev_ExpectEQ(ProcessImports(GetTestFile, False, iParams, bSilent:=True), 0)
|
||||||
|
|
||||||
|
Call Dev_NewCase("Invalid parameter")
|
||||||
|
iParams.detector_ = T_DETECTOR_LIST
|
||||||
|
iParams.param_ = "invalid.txt"
|
||||||
|
Call Dev_ExpectEQ(ProcessImports(GetTestFile, False, iParams, bSilent:=True), 0)
|
||||||
|
|
||||||
|
Exit Function
|
||||||
|
PROPAGATE_ERROR:
|
||||||
|
Call Dev_LogError(Err.Number, Err.Description)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function t_ImportDates()
|
||||||
|
On Error GoTo PROPAGATE_ERROR
|
||||||
|
|
||||||
|
Dim iParams As New ExtractionOptions
|
||||||
|
iParams.detector_ = T_DETECTOR_DATE
|
||||||
|
Call Dev_ExpectEQ(ProcessImports(GetTestFile, False, iParams, bSilent:=True), 4)
|
||||||
|
Call Dev_ExpectNE(SourceSheet.Cells(2, 1), "")
|
||||||
|
|
||||||
|
Exit Function
|
||||||
|
PROPAGATE_ERROR:
|
||||||
|
Call Dev_LogError(Err.Number, Err.Description)
|
||||||
|
End Function
|
||||||
BIN
test/TestBasic.docx
Normal file
BIN
test/TestBasic.docx
Normal file
Binary file not shown.
2
ui/addin/.rels
Normal file
2
ui/addin/.rels
Normal file
|
|
@ -0,0 +1,2 @@
|
||||||
|
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||||
|
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships"><Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="word/document.xml"/><Relationship Id="rId6" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/><Relationship Id="rId5" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/><Relationship Id="rId4" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml"/></Relationships>
|
||||||
108
ui/addin/customUI.xml
Normal file
108
ui/addin/customUI.xml
Normal file
|
|
@ -0,0 +1,108 @@
|
||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
|
||||||
|
onLoad="Parse_LoadRibbon" >
|
||||||
|
<ribbon>
|
||||||
|
<tabs>
|
||||||
|
<tab id="MiningTab" label="МАЙНИНГ">
|
||||||
|
<group id="DetectionGroup" label="Извлечение">
|
||||||
|
<dropDown id="DetectorPicker" sizeString="WWWWWWWW"
|
||||||
|
label = "Способ"
|
||||||
|
getItemCount="ParseUI_DetectorCount"
|
||||||
|
getItemLabel="ParseUI_DetectorLabel"
|
||||||
|
getSelectedItemIndex="ParseUI_DetectorGetSelectedIndex"
|
||||||
|
onAction ="ParseUI_DetectorChange"/>
|
||||||
|
<editBox id="ParamInput" sizeString="WWWWWWWWW"
|
||||||
|
label = "Параметр"
|
||||||
|
getText="ParseUI_ParamText"
|
||||||
|
onChange="ParseUI_ParamChange"/>
|
||||||
|
|
||||||
|
<buttonGroup id="NavigationBtns">
|
||||||
|
<button id="NextFragment"
|
||||||
|
supertip="Следующее вхождение"
|
||||||
|
imageMso="_3DPerspectiveDecrease"
|
||||||
|
onAction="Parse_OnBtn"/>
|
||||||
|
<button id="PrevFragment"
|
||||||
|
supertip="Предыдущее вхождение"
|
||||||
|
imageMso="_3DPerspectiveIncrease"
|
||||||
|
onAction="Parse_OnBtn"/>
|
||||||
|
<button id="BrowseFile"
|
||||||
|
supertip="Выбрать файл в качестве параметра"
|
||||||
|
imageMso="AlwaysMoveConversation"
|
||||||
|
onAction="Parse_OnBtn"/>
|
||||||
|
<button id="MorphoParse"
|
||||||
|
supertip="Разбор выделенного слова / фразы"
|
||||||
|
imageMso="ActiveXLabel"
|
||||||
|
onAction="Parse_OnBtn"/>
|
||||||
|
<button id="ContextInfo"
|
||||||
|
supertip="Извлеченные данные из выделенного фрагмента"
|
||||||
|
imageMso="ARMPreviewButton"
|
||||||
|
onAction="Parse_OnBtn"/>
|
||||||
|
</buttonGroup>
|
||||||
|
</group>
|
||||||
|
|
||||||
|
<group id="MarkdownGroup" label="Отображение">
|
||||||
|
<dropDown id="ColorPicker" sizeString="WWWWW"
|
||||||
|
label = "Выделение"
|
||||||
|
getItemCount="ParseUI_MarkupCount"
|
||||||
|
getItemLabel="ParseUI_MarkupLabel"
|
||||||
|
getSelectedItemIndex="ParseUI_MarkupGetSelectedIndex"
|
||||||
|
onAction ="ParseUI_MarkupChange"/>
|
||||||
|
|
||||||
|
<button id="MarkWord"
|
||||||
|
label="Вхождения"
|
||||||
|
supertip="Выделить вхождения сущностей"
|
||||||
|
imageMso="AsianLayoutPhoneticGuide"
|
||||||
|
onAction="Parse_OnBtn"/>
|
||||||
|
<button id="MarkParagraph"
|
||||||
|
label="Абзацы"
|
||||||
|
supertip="Выделить абзацы, содержащие выбранные сущности"
|
||||||
|
imageMso="AlignJustifyHigh"
|
||||||
|
onAction="Parse_OnBtn"/>
|
||||||
|
</group>
|
||||||
|
|
||||||
|
<group id="TransformGroup" label="Преобразование">
|
||||||
|
<editBox id="TransformInput" sizeString="WWWWWWW"
|
||||||
|
label = "Параметр"
|
||||||
|
getText="ParseUI_TransformText"
|
||||||
|
onChange="ParseUI_TransformChange"/>
|
||||||
|
<button id="TransformSingle"
|
||||||
|
label="Преобразовать один"
|
||||||
|
supertip="Провести преобразование выделенной сущности (используйте навигацию)"
|
||||||
|
imageMso="FontsReplaceFonts"
|
||||||
|
onAction="Parse_OnBtn"/>
|
||||||
|
<button id="TransformAll"
|
||||||
|
label="Преобразовать все"
|
||||||
|
supertip="Провести преобразования всех сущностей"
|
||||||
|
imageMso="AsianLayoutMenu"
|
||||||
|
onAction="Parse_OnBtn"/>
|
||||||
|
</group>
|
||||||
|
|
||||||
|
<group id="LoadGroup" label="Выгрузка">
|
||||||
|
<editBox id="CategoryInput" sizeString="WWW"
|
||||||
|
label = "Категория"
|
||||||
|
getText="ParseUI_CategoryText"
|
||||||
|
onChange="ParseUI_CategoryChange"/>
|
||||||
|
<button id="ExportAll"
|
||||||
|
label="Выгрузить все"
|
||||||
|
supertip="Выгрузить вхождения с текстами"
|
||||||
|
imageMso="ExportExcel"
|
||||||
|
onAction="Parse_OnBtn"/>
|
||||||
|
<button id="ExportRanges"
|
||||||
|
label="Только вхождения"
|
||||||
|
supertip="Выгрузить информацию о вхождениях (без текста)"
|
||||||
|
imageMso="MindMapExportExcel"
|
||||||
|
onAction="Parse_OnBtn"/>
|
||||||
|
</group>
|
||||||
|
|
||||||
|
<group id="MiscGroup" label="Информация">
|
||||||
|
<button id="ViewHelp" size="large"
|
||||||
|
label="Справка"
|
||||||
|
supertip="Вызов справки"
|
||||||
|
imageMso="Info"
|
||||||
|
onAction="Parse_OnBtn"/>
|
||||||
|
|
||||||
|
</group>
|
||||||
|
</tab>
|
||||||
|
</tabs>
|
||||||
|
</ribbon>
|
||||||
|
</customUI>
|
||||||
2
ui/database/.rels
Normal file
2
ui/database/.rels
Normal file
|
|
@ -0,0 +1,2 @@
|
||||||
|
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||||
|
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships"><Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="xl/workbook.xml"/><Relationship Id="rId6" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/><Relationship Id="rId5" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/><Relationship Id="rId4" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml"/></Relationships>
|
||||||
29
ui/database/customUI.xml
Normal file
29
ui/database/customUI.xml
Normal file
|
|
@ -0,0 +1,29 @@
|
||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" >
|
||||||
|
<ribbon>
|
||||||
|
<tabs>
|
||||||
|
<tab id="MarkupAggregator" label="Концепт.Майнинг" >
|
||||||
|
<group id="Actions" label="Действия" >
|
||||||
|
<button id="ImportWord" visible="true" size="large"
|
||||||
|
label="Обработать источники"
|
||||||
|
supertip="Загрузить данные из текстовых документов"
|
||||||
|
onAction="OnRibbonBtn"
|
||||||
|
imageMso="ExportWord"/>
|
||||||
|
<button id="FollowLink" visible="true" size="large"
|
||||||
|
label="Показать документ"
|
||||||
|
supertip="Открыть выделенный фрагмент в документе"
|
||||||
|
onAction="OnRibbonBtn"
|
||||||
|
imageMso="PivotTableGroupSelection"/>
|
||||||
|
|
||||||
|
<separator id="separator" />
|
||||||
|
|
||||||
|
<button id="ClearAll" visible="true" size="large"
|
||||||
|
label="Очистить"
|
||||||
|
supertip="Удалить все добавленные данные"
|
||||||
|
onAction="OnRibbonBtn"
|
||||||
|
imageMso="ArrangeByRecurrence"/>
|
||||||
|
</group>
|
||||||
|
</tab>
|
||||||
|
</tabs>
|
||||||
|
</ribbon>
|
||||||
|
</customUI>
|
||||||
Loading…
Reference in New Issue
Block a user