Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

#38 Поддержка EN языка выгрузки #39

Open
wants to merge 1 commit into
base: develop
Choose a base branch
from
Open

#38 Поддержка EN языка выгрузки #39

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
26 changes: 14 additions & 12 deletions src/Классы/internal/ripper/Классы/ПарсерОтчетаХранилища.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -150,33 +150,33 @@

ТекущаяСтрока = Массив[ИИ];

Если НЕ ИмяПоля = "Комментарий" И СтрНачинаетсяС(ТекущаяСтрока, "Версия:") Тогда
Если НЕ (ИмяПоля = "Комментарий" ИЛИ ИмяПоля = "Comment") И (СтрНачинаетсяС(ТекущаяСтрока, "Версия:") ИЛИ СтрНачинаетсяС(ТекущаяСтрока, "Version:")) Тогда

СтрокаТаблицы = ТаблицуВерсий.Добавить();
СтрокаТаблицы.Изменены = Новый Массив;
СтрокаТаблицы.Добавлены = Новый Массив;
СтрокаТаблицы.Удалены = Новый Массив;
ИмяПоля = "Номер";

ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Пользователь:") Тогда
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Пользователь:") ИЛИ СтрНачинаетсяС(ТекущаяСтрока, "User:") Тогда
ИмяПоля = "Автор";
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Дата создания:") Тогда
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Дата создания:") ИЛИ СтрНачинаетсяС(ТекущаяСтрока, "Creation date:") Тогда
ИмяПоля = "Дата";
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Время создания:") Тогда
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Время создания:") ИЛИ СтрНачинаетсяС(ТекущаяСтрока, "Creation time:") Тогда
ИмяПоля = "Время";
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Версия конфигурации:") Тогда
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Версия конфигурации:") ИЛИ СтрНачинаетсяС(ТекущаяСтрока, "Configuration version:") Тогда
ИмяПоля = "Версия";
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Комментарий:") Тогда
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Комментарий:") ИЛИ СтрНачинаетсяС(ТекущаяСтрока, "Comment:") Тогда
ИмяПоля = "Комментарий";
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Метка:") Тогда
ИмяПоля = "Метка";
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Комментарий метки:") Тогда
ИмяПоля = "КомментарийМетки";
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Изменены:") Тогда
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Изменены:") ИЛИ СтрНачинаетсяС(ТекущаяСтрока, "Changed:") Тогда
ИмяПоля = "Изменены";
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Добавлены:") Тогда
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Добавлены:") ИЛИ СтрНачинаетсяС(ТекущаяСтрока, "Added:") Тогда
ИмяПоля = "Добавлены";
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Удалены:") Тогда
ИначеЕсли СтрНачинаетсяС(ТекущаяСтрока, "Удалены:") ИЛИ СтрНачинаетсяС(ТекущаяСтрока, "Deleted:") Тогда
ИмяПоля = "Удалены";
Иначе

Expand All @@ -196,7 +196,7 @@
СтрокаТаблицы[ИмяПоля] = СократитьКавычки(ТекущаяСтрока);

Иначе

СтрокаТаблицы[ИмяПоля] = ТекущаяСтрока;

Конецесли;
Expand All @@ -210,7 +210,9 @@

Для Каждого ОписаниеВерсии Из ТаблицуВерсий Цикл

ОписаниеВерсии.Номер = Число(СтрЗаменить(ОписаниеВерсии.Номер, Символы.НПП, ""));
Номер = СтрЗаменить(ОписаниеВерсии.Номер, Символы.НПП, "");
Номер = СтрЗаменить(Номер, ",", "");
ОписаниеВерсии.Номер = Число(Номер);
ВремяВСекундах = ВремяВСекундах(ОписаниеВерсии.Время);
ОписаниеВерсии.Дата = РаботаСДатой.СтрокаВДату(ОписаниеВерсии.Дата, "dd.MM.yyyy") + ВремяВСекундах;

Expand Down Expand Up @@ -253,4 +255,4 @@

Возврат СтрЗаменить(СтрокаДанных, """""", """");

КонецФункции
КонецФункции