Update version, translation fixes
This commit is contained in:
parent
ba938c7ef4
commit
a8f91c44c4
8 changed files with 81 additions and 42 deletions
|
|
@ -1,6 +1,6 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
|
||||
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark53
|
||||
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark54
|
||||
|
||||
End Sub
|
||||
|
||||
|
|
@ -367,6 +367,8 @@ Private Sub removeUserPageStyles
|
|||
End Sub
|
||||
|
||||
Private Sub fixFrequentMistakes
|
||||
Dim config As Object
|
||||
config = initRedactionConfiguration()
|
||||
Dim NBSP As String
|
||||
Dim space As String
|
||||
NBSP = " "
|
||||
|
|
@ -383,48 +385,51 @@ Private Sub fixFrequentMistakes
|
|||
AskAndReplace("^$","")
|
||||
'Не должно быть пробелов перед знаками пунктуации .,;:?!)]}»¡¿”‘’
|
||||
AskAndReplace("[:space:]+(?=[\.,;:?!\)\]\}»¡¿”‘’])","")
|
||||
'Между словом том и цифрой должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=\b[тТ](ом|\.))\ (?=[:digit:])",NBSP)
|
||||
'Между словом серия и цифрой должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=\b[сС](ерия|\.))\ +(?=[:digit:])",NBSP)
|
||||
'Между словом часть и цифрой должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=\b[чЧ](асть|\.))\ +(?=[:digit:])",NBSP)
|
||||
'Между числом и "г." должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=[0-9])[:space:]*г(?=\.)",NBSP & "г")
|
||||
'Между инициалами и Фамилией должен быть неразрывный пробел, а не обычный
|
||||
'А.[м/б пробел]А.Иванов -> А.[м/б пробел]А. Иванов
|
||||
AskAndReplace("(?<=[:upper:]\.[:space:]?[:upper:])\.[:space:]?(?=[:upper:][:lower:]{1,30})","." & NBSP)
|
||||
' А.[пробел]А.Иванов -> А.А. Иванов
|
||||
AskAndReplace("(?<=[:upper:])\.[:space:](?=[:upper:]\.[:space:][:upper:][:lower:]{1,30})",".")
|
||||
'Между Фамилией и инициалами должен быть неразрывный пробел, а не обычный
|
||||
'Иванов А.[м/б пробел]А. -> Иванов А.А.
|
||||
AskAndReplace("(?<=[:upper:][:lower:]{1,30}[:space:][:upper:])\.[:space:]?(?=[:upper:]\.)",".")
|
||||
|
||||
'Не должно быть пробелов после скобок [({ и кавычек «„
|
||||
'Не должно быть пробелов после скобок [({ и кавычек «„
|
||||
AskAndReplace("(?<=[\(\[\{«„])[:space:]","")
|
||||
'Между "и" и "т." должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=\bи)\ (?=т\.)",NBSP)
|
||||
'Между "т." и "е./н./д./п./к." не должно быть пробела
|
||||
AskAndReplace("(?<=\bт)\.[:space:]?(?=[ендпк]\.)",".")
|
||||
|
||||
'Между буквами среднее тире должно обрамляться пробелами
|
||||
'Между буквами среднее тире должно обрамляться пробелами
|
||||
AskAndReplace("(?<=[:alpha:])–(?=[:alpha:])",NBSP & "–" & NBSP)
|
||||
'Между буквами дефис-минус, цифровое тире и длинное тире заменяется на среднее тире
|
||||
AskAndReplace("(?<=[:alpha:][:space:])[-‒—](?=[:space:][:alpha:])","–")
|
||||
'Между двумя цифрами и тире между ними не долнжо быть пробелов. А также тире должно быть цифровым
|
||||
AskAndReplace("(?<=[:digit:])(?:[:space:])?[-‒–—](?:[:space:])?(?=[:digit:])","‒")
|
||||
|
||||
AskAndReplace("(?<=[:digit:])(?:[:space:])?[-‒–—](?:[:space:])?(?=[:digit:])","‒")
|
||||
'Между двумя римскими цифрами и тире между ними не долнжо быть пробелов. А также тире должно быть средним
|
||||
AskAndReplace("(?<=[MDCLXVI])(?:[:space:])?[-‒–—](?:[:space:])?(?=[MDCLXVI])","–")
|
||||
|
||||
'Между буквой и угловой открывающейся скобкой должен быть пробел
|
||||
AskAndReplace("(?<=[:alpha:])<(?=…>)",space & "<")
|
||||
'Между угловой закрывающейся скобкой и буквой должен быть пробел
|
||||
AskAndReplace("(?<=<…)>(?=[:alpha:])",">" & space)
|
||||
AskAndReplace("[ий][\u0306]+","й")
|
||||
AskAndReplace("[ИЙ][\u0306]+","Й")
|
||||
AskAndReplace("[её][\u0308]+","ё")
|
||||
AskAndReplace("[ЕЁ][\u0308]+","Ё")
|
||||
AskAndReplace("(?<=<…)>(?=[:alpha:])",">" & space)
|
||||
|
||||
If config.getPropertyValue("fixes_russian_iph") = "true" Then
|
||||
'между N. Y. не должно быть пробела
|
||||
AskAndReplace("(?<=N\.)[:space:](?=Y\.)","")
|
||||
'Между словом том и цифрой должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=\b[тТ](ом|\.))\ (?=[:digit:])",NBSP)
|
||||
'Между словом серия и цифрой должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=\b[сС](ерия|\.))\ +(?=[:digit:])",NBSP)
|
||||
'Между словом часть и цифрой должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=\b[чЧ](асть|\.))\ +(?=[:digit:])",NBSP)
|
||||
'Между числом и "г." должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=[0-9])[:space:]*г(?=\.)",NBSP & "г")
|
||||
'Между инициалами и Фамилией должен быть неразрывный пробел, а не обычный
|
||||
'А.[м/б пробел]А.Иванов -> А.[м/б пробел]А. Иванов
|
||||
AskAndReplace("(?<=[:upper:]\.[:space:]?[:upper:])\.[:space:]?(?=[:upper:][:lower:]{1,30})","." & NBSP)
|
||||
' А.[пробел]А.Иванов -> А.А. Иванов
|
||||
AskAndReplace("(?<=[:upper:])\.[:space:](?=[:upper:]\.[:space:][:upper:][:lower:]{1,30})",".")
|
||||
'Между Фамилией и инициалами должен быть неразрывный пробел, а не обычный
|
||||
'Иванов А.[м/б пробел]А. -> Иванов А.А.
|
||||
AskAndReplace("(?<=[:upper:][:lower:]{1,30}[:space:][:upper:])\.[:space:]?(?=[:upper:]\.)",".")
|
||||
'Между "и" и "т." должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=\bи)\ (?=т\.)",NBSP)
|
||||
'Между "т." и "е./н./д./п./к." не должно быть пробела
|
||||
AskAndReplace("(?<=\bт)\.[:space:]?(?=[ендпк]\.)",".")
|
||||
AskAndReplace("[ий][\u0306]+","й")
|
||||
AskAndReplace("[ИЙ][\u0306]+","Й")
|
||||
AskAndReplace("[её][\u0308]+","ё")
|
||||
AskAndReplace("[ЕЁ][\u0308]+","Ё")
|
||||
|
||||
EndIf
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub loadArticleStyles
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue