2024-05-31 15:20:25 +02:00
|
|
|
Перем СписокЯзыков;
|
|
|
|
|
Перем ОбщийМассивСлов;
|
|
|
|
|
Перем Алфавит;
|
|
|
|
|
Перем МассивСимволов;
|
|
|
|
|
|
|
|
|
|
Процедура ПолучитьСписокЯзыков() Экспорт
|
|
|
|
|
|
|
|
|
|
СписокЯзыков = Новый Массив();
|
|
|
|
|
СписокЯзыков.Добавить("en");
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
|
|
|
|
Процедура СоздатьСловари()
|
|
|
|
|
|
|
|
|
|
ПолучитьСписокЯзыков();
|
|
|
|
|
ПолучитьАлфавит();
|
|
|
|
|
ПолучитьМассивСимволов();
|
|
|
|
|
|
|
|
|
|
Для Каждого Язык Из СписокЯзыков Цикл
|
|
|
|
|
СоздатьСловарь(Язык);
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
|
|
|
|
Процедура СоздатьСловарь(Знач Язык)
|
|
|
|
|
|
2024-05-31 23:44:55 +02:00
|
|
|
ФайлыМодулей = НайтиФайлы("./src/ru/", "*", Истина);
|
2024-05-31 15:20:25 +02:00
|
|
|
СписокСлов = Новый СписокЗначений();
|
|
|
|
|
|
|
|
|
|
Для Каждого Модуль Из ФайлыМодулей Цикл
|
2024-05-31 23:44:55 +02:00
|
|
|
|
|
|
|
|
Если Модуль.ЭтоКаталог() Тогда
|
|
|
|
|
Продолжить;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
2024-05-31 16:29:57 +02:00
|
|
|
Если СтрНайти(Модуль.ПолноеИмя, "cli\data") <> 0 Тогда
|
|
|
|
|
Продолжить;
|
|
|
|
|
КонецЕсли;
|
2024-05-31 15:20:25 +02:00
|
|
|
ПолучитьМассивСловОригинала(Модуль.ПолноеИмя, СписокСлов);
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
ПутьСловаря = "./service/dictionaries/" + Язык + ".json";
|
|
|
|
|
ФайлСловаря = Новый Файл(ПутьСловаря);
|
|
|
|
|
|
|
|
|
|
СоответствиеСловаря = Новый Соответствие();
|
|
|
|
|
СоответствиеСуществующегоСловаря = Новый Соответствие();
|
|
|
|
|
|
|
|
|
|
Если ФайлСловаря.Существует() Тогда
|
|
|
|
|
|
|
|
|
|
ЧтениеJSON = Новый ЧтениеJSON();
|
|
|
|
|
ЧтениеJSON.ОткрытьФайл(ПутьСловаря);
|
|
|
|
|
СоответствиеСуществующегоСловаря = ПрочитатьJSON(ЧтениеJSON, Истина);
|
|
|
|
|
ЧтениеJSON.Закрыть();
|
|
|
|
|
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
//СписокСлов.СортироватьПоПредставлению(НаправлениеСортировки.Убыв);
|
|
|
|
|
|
|
|
|
|
Для Каждого Слово Из СписокСлов Цикл
|
|
|
|
|
|
|
|
|
|
Значение = Слово.Значение;
|
|
|
|
|
Существующее = СоответствиеСуществующегоСловаря[Значение];
|
|
|
|
|
|
|
|
|
|
Если Существующее = Неопределено Тогда
|
|
|
|
|
СоответствиеСловаря.Вставить(Значение, "");
|
|
|
|
|
Иначе
|
|
|
|
|
СоответствиеСловаря.Вставить(Значение, Существующее);
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
2024-05-31 23:02:00 +02:00
|
|
|
ДобавитьКлючевыеСловаЯзыка(СоответствиеСловаря);
|
|
|
|
|
|
2024-05-31 15:20:25 +02:00
|
|
|
ЗаписатьJSONСловаря(СоответствиеСловаря, ПутьСловаря);
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
|
|
|
|
Процедура ЗаписатьJSONСловаря(СоответствиеСловаря, ПутьСловаря)
|
|
|
|
|
|
|
|
|
|
ТекстовыйДок = Новый ТекстовыйДокумент();
|
|
|
|
|
ТекстовыйДок.ДобавитьСтроку("{");
|
|
|
|
|
|
|
|
|
|
ТЗ = Новый ТаблицаЗначений();
|
|
|
|
|
ТЗ.Колонки.Добавить("Ключ");
|
|
|
|
|
ТЗ.Колонки.Добавить("Значение");
|
|
|
|
|
ТЗ.Колонки.Добавить("ДлинаКлюча");
|
|
|
|
|
ТЗ.Колонки.Добавить("Заполнено");
|
|
|
|
|
|
|
|
|
|
Для Каждого Элемент Из СоответствиеСловаря Цикл
|
|
|
|
|
|
|
|
|
|
НоваяСтрока = ТЗ.Добавить();
|
|
|
|
|
НоваяСтрока.Ключ = Элемент.Ключ;
|
|
|
|
|
НоваяСтрока.Значение = Элемент.Значение;
|
|
|
|
|
НоваяСтрока.ДлинаКлюча = СтрДлина(Элемент.Ключ);
|
|
|
|
|
НоваяСтрока.Заполнено = ЗначениеЗаполнено(Элемент.Значение);
|
|
|
|
|
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
ТЗ.Сортировать("Заполнено УБЫВ, ДлинаКлюча");
|
|
|
|
|
|
|
|
|
|
Для Каждого СтрокаТЗ Из ТЗ Цикл
|
|
|
|
|
Значение = СтрокаТЗ.Значение;
|
|
|
|
|
Значение = СтрЗаменить(Значение, "\", "\\");
|
|
|
|
|
Значение = СтрЗаменить(Значение, "/", "\/");
|
|
|
|
|
Значение = СтрЗаменить(Значение, """", "\""");
|
|
|
|
|
|
|
|
|
|
Ключ = СтрокаТЗ.Ключ;
|
|
|
|
|
Ключ = СтрЗаменить(Ключ, "\", "\\");
|
|
|
|
|
Ключ = СтрЗаменить(Ключ, "/", "\/");
|
|
|
|
|
Ключ = СтрЗаменить(Ключ, """", "\""");
|
|
|
|
|
|
|
|
|
|
ТекстовыйДок.ДобавитьСтроку("""" + Ключ + """: """ + Значение + """,");
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
2024-05-31 23:44:55 +02:00
|
|
|
ПоследняяСтрока = ТекстовыйДок.ПолучитьСтроку(ТекстовыйДок.КоличествоСтрок());
|
|
|
|
|
ПоследняяСтрока = Лев(ПоследняяСтрока, СтрДлина(ПоследняяСтрока) - 1);
|
|
|
|
|
ТекстовыйДок.ЗаменитьСтроку(ТекстовыйДок.КоличествоСтрок(), ПоследняяСтрока);
|
|
|
|
|
|
2024-05-31 15:20:25 +02:00
|
|
|
ТекстовыйДок.ДобавитьСтроку("}");
|
|
|
|
|
ТекстовыйДок.Записать(ПутьСловаря);
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
|
|
|
|
Процедура ПолучитьМассивСловОригинала(Знач ПутьКФайлу, СписокСлов)
|
|
|
|
|
|
|
|
|
|
Документ = Новый ТекстовыйДокумент();
|
|
|
|
|
Документ.Прочитать(ПутьКФайлу, "UTF-8");
|
|
|
|
|
|
|
|
|
|
Для Н = 1 По Документ.КоличествоСтрок() Цикл
|
|
|
|
|
|
|
|
|
|
ТекущаяСтрока = СокрЛП(Документ.ПолучитьСтроку(Н));
|
|
|
|
|
|
|
|
|
|
Если СтрНачинаетсяС(ТекущаяСтрока, "//") Тогда
|
|
|
|
|
ТекущаяСтрока = СокрЛП(СтрЗаменить(ТекущаяСтрока, "//", ""));
|
|
|
|
|
ТекущаяСтрока = СтрЗаменить(ТекущаяСтрока, " - ", "$");
|
|
|
|
|
ТекущаяСтрока = СтрРазделить(ТекущаяСтрока, "$", Ложь);
|
|
|
|
|
|
|
|
|
|
Для Каждого Элемент Из ТекущаяСтрока Цикл
|
|
|
|
|
ДобавитьСлово(СписокСлов, Элемент);
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
Продолжить;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
2024-05-31 23:44:55 +02:00
|
|
|
Если СтрНайти(ТекущаяСтрока, """") <> 0
|
|
|
|
|
Или СтрНайти(ТекущаяСтрока, "|") <> 0
|
|
|
|
|
Или СтрНайти(ТекущаяСтрока, "<") <> 0
|
|
|
|
|
Или СтрНайти(ТекущаяСтрока, ">") <> 0 Тогда
|
|
|
|
|
|
2024-05-31 15:20:25 +02:00
|
|
|
ТекущаяСтрока = " " + ТекущаяСтрока;
|
|
|
|
|
|
|
|
|
|
ТекущаяСтрока = СтрЗаменить(ТекущаяСтрока, """", "$");
|
|
|
|
|
ТекущаяСтрока = СтрЗаменить(ТекущаяСтрока, "|", "$");
|
2024-05-31 23:44:55 +02:00
|
|
|
ТекущаяСтрока = СтрЗаменить(ТекущаяСтрока, "<", "$");
|
|
|
|
|
ТекущаяСтрока = СтрЗаменить(ТекущаяСтрока, ">", "$");
|
2024-05-31 15:20:25 +02:00
|
|
|
ТекущаяСтрока = СтрЗаменить(ТекущаяСтрока, "$$", """""");
|
|
|
|
|
|
|
|
|
|
МассивСтроки = СтрРазделить(ТекущаяСтрока, "$", Истина);
|
|
|
|
|
|
|
|
|
|
Цельный = Ложь;
|
|
|
|
|
Для Каждого Элемент Из МассивСтроки Цикл
|
|
|
|
|
|
|
|
|
|
Если Не ЗначениеЗаполнено(СокрЛП(Элемент)) Тогда
|
|
|
|
|
Продолжить;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если Цельный Тогда
|
|
|
|
|
ДобавитьСлово(СписокСлов, Элемент);
|
|
|
|
|
Иначе
|
2024-05-31 21:19:13 +02:00
|
|
|
РазобратьОбычнуюСтроку(Элемент, СписокСлов);
|
2024-05-31 15:20:25 +02:00
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Цельный = Не Цельный;
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
2024-05-31 21:19:13 +02:00
|
|
|
Иначе
|
|
|
|
|
РазобратьОбычнуюСтроку(ТекущаяСтрока, СписокСлов);
|
2024-05-31 15:20:25 +02:00
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
2024-05-31 21:19:13 +02:00
|
|
|
Процедура РазобратьОбычнуюСтроку(Элемент, СписокСлов)
|
|
|
|
|
|
|
|
|
|
Для Каждого Символ Из МассивСимволов Цикл
|
|
|
|
|
Элемент = СтрЗаменить(Элемент, Символ, "$");
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
Пока СтрНайти(Элемент, "$$") <> 0 Цикл
|
|
|
|
|
Элемент = СтрЗаменить(Элемент, "$$", "$");
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
МассивЭлемента = СтрРазделить(Элемент, "$", Ложь);
|
|
|
|
|
Для Каждого Дробный Из МассивЭлемента Цикл
|
|
|
|
|
ДобавитьСлово(СписокСлов, Дробный);
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
2024-05-31 15:20:25 +02:00
|
|
|
Процедура ДобавитьСлово(Список, Слово)
|
|
|
|
|
|
|
|
|
|
Слово = СокрЛП(Слово);
|
|
|
|
|
|
|
|
|
|
Нормализовано = Ложь;
|
|
|
|
|
|
|
|
|
|
Пока Не Нормализовано Цикл
|
|
|
|
|
|
|
|
|
|
ПервыйСимвол = Ложь;
|
|
|
|
|
ПоследнийСимвол = Ложь;
|
|
|
|
|
|
|
|
|
|
Для Каждого Символ Из МассивСимволов Цикл
|
|
|
|
|
|
|
|
|
|
ПервыйСимвол = СтрНачинаетсяС(Слово, Символ);
|
|
|
|
|
ПоследнийСимвол = СтрЗаканчиваетсяНа(Слово, Символ);
|
|
|
|
|
|
|
|
|
|
Если ПервыйСимвол Или ПоследнийСимвол Тогда
|
|
|
|
|
Прервать;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
Если ПервыйСимвол Тогда
|
|
|
|
|
Слово = Лев(Слово, СтрДлина(Слово) - 1);
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ПоследнийСимвол Тогда
|
|
|
|
|
Слово = Прав(Слово, СтрДлина(Слово) - 1);
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если Не ПервыйСимвол И Не ПоследнийСимвол Тогда
|
|
|
|
|
Нормализовано = Истина;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
Слово = СокрЛП(Слово);
|
|
|
|
|
|
|
|
|
|
Если Не ЗначениеЗаполнено(Слово) Или Не НайтиКириллицу(Слово) Тогда
|
|
|
|
|
Возврат;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
СуществующееЗначение = Список.НайтиПоЗначению(Слово);
|
|
|
|
|
|
|
|
|
|
Если СуществующееЗначение = Неопределено Тогда
|
|
|
|
|
Список.Добавить(Слово, СтрДлина(Слово));
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
|
|
|
|
Процедура ПолучитьАлфавит()
|
|
|
|
|
|
|
|
|
|
Алфавит = Новый Массив;
|
|
|
|
|
|
|
|
|
|
Алфавит.Добавить("а");
|
|
|
|
|
Алфавит.Добавить("б");
|
|
|
|
|
Алфавит.Добавить("в");
|
|
|
|
|
Алфавит.Добавить("г");
|
|
|
|
|
Алфавит.Добавить("д");
|
|
|
|
|
Алфавит.Добавить("е");
|
|
|
|
|
Алфавит.Добавить("ё");
|
|
|
|
|
Алфавит.Добавить("ж");
|
|
|
|
|
Алфавит.Добавить("з");
|
|
|
|
|
Алфавит.Добавить("и");
|
|
|
|
|
Алфавит.Добавить("й");
|
|
|
|
|
Алфавит.Добавить("к");
|
|
|
|
|
Алфавит.Добавить("л");
|
|
|
|
|
Алфавит.Добавить("м");
|
|
|
|
|
Алфавит.Добавить("н");
|
|
|
|
|
Алфавит.Добавить("о");
|
|
|
|
|
Алфавит.Добавить("п");
|
|
|
|
|
Алфавит.Добавить("р");
|
|
|
|
|
Алфавит.Добавить("с");
|
|
|
|
|
Алфавит.Добавить("т");
|
|
|
|
|
Алфавит.Добавить("у");
|
|
|
|
|
Алфавит.Добавить("ф");
|
|
|
|
|
Алфавит.Добавить("х");
|
|
|
|
|
Алфавит.Добавить("ц");
|
|
|
|
|
Алфавит.Добавить("ч");
|
|
|
|
|
Алфавит.Добавить("ш");
|
|
|
|
|
Алфавит.Добавить("щ");
|
|
|
|
|
Алфавит.Добавить("ъ");
|
|
|
|
|
Алфавит.Добавить("ы");
|
|
|
|
|
Алфавит.Добавить("ь");
|
|
|
|
|
Алфавит.Добавить("э");
|
|
|
|
|
Алфавит.Добавить("ю");
|
|
|
|
|
Алфавит.Добавить("я");
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
|
|
|
|
Процедура ПолучитьМассивСимволов()
|
|
|
|
|
|
|
|
|
|
МассивСимволов = Новый Массив();
|
|
|
|
|
МассивСимволов.Добавить(";");
|
|
|
|
|
МассивСимволов.Добавить(".");
|
|
|
|
|
МассивСимволов.Добавить(",");
|
|
|
|
|
МассивСимволов.Добавить(")");
|
|
|
|
|
МассивСимволов.Добавить("(");
|
|
|
|
|
МассивСимволов.Добавить("/");
|
|
|
|
|
МассивСимволов.Добавить("\");
|
|
|
|
|
МассивСимволов.Добавить("[");
|
|
|
|
|
МассивСимволов.Добавить("]");
|
|
|
|
|
МассивСимволов.Добавить("=");
|
|
|
|
|
МассивСимволов.Добавить("+");
|
|
|
|
|
МассивСимволов.Добавить("-");
|
|
|
|
|
МассивСимволов.Добавить("*");
|
|
|
|
|
МассивСимволов.Добавить("#");
|
|
|
|
|
МассивСимволов.Добавить(" ");
|
|
|
|
|
МассивСимволов.Добавить("""");
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
|
|
|
|
Функция НайтиКириллицу(Знач Слово)
|
|
|
|
|
|
|
|
|
|
СловоНРег = НРег(Слово);
|
|
|
|
|
|
|
|
|
|
Для Каждого Буква Из Алфавит Цикл
|
|
|
|
|
Если СтрНайти(СловоНРег, Буква) <> 0 Тогда
|
|
|
|
|
Возврат Истина;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
Возврат Ложь;
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
2024-05-31 23:02:00 +02:00
|
|
|
Процедура ДобавитьКлючевыеСловаЯзыка(СоответствиеСловаря)
|
|
|
|
|
|
|
|
|
|
ПутьКСловарюКлючевыхСлов = "./service/dictionaries/keywords.json";
|
|
|
|
|
ЧтениеJSON = Новый ЧтениеJSON();
|
|
|
|
|
ЧтениеJSON.ОткрытьФайл(ПутьКСловарюКлючевыхСлов);
|
|
|
|
|
СоответствиеКС = ПрочитатьJSON(ЧтениеJSON, Истина);
|
|
|
|
|
ЧтениеJSON.Закрыть();
|
|
|
|
|
|
|
|
|
|
Для Каждого КлючевоеСлово Из СоответствиеКС Цикл
|
|
|
|
|
СоответствиеСловаря.Вставить(КлючевоеСлово.Ключ, СокрЛП(КлючевоеСлово.Значение));
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
2024-05-31 15:20:25 +02:00
|
|
|
СоздатьСловари();
|
|
|
|
|
|
