From c4b56ad3f1b67b3948dcb085a85a897beee86782 Mon Sep 17 00:00:00 2001 From: Georgy Litvinov Date: Mon, 27 Apr 2020 16:06:32 +0200 Subject: [PATCH] Author and initials fixes --- Redaction/Clean.xba | 18 +++++++++++------- description.xml | 2 +- 2 files changed, 12 insertions(+), 8 deletions(-) diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba index f4b8b46..b9761ab 100644 --- a/Redaction/Clean.xba +++ b/Redaction/Clean.xba @@ -1,6 +1,6 @@ -Sub mark46 +Sub mark47 End Sub @@ -367,24 +367,28 @@ Private Sub fixFrequentMistakes AskAndReplace("(?<=\b[чЧ](асть|\.))\ +(?=[:digit:])",NBSP) 'Между числом и "г." должен быть неразрывный пробел, а не обычный AskAndReplace("(?<=[0-9])[:space:]*г(?=\.)",NBSP & "г") - 'Между инициалами и Фамилией должен быть неразрывный пробел, а не обычный - AskAndReplace("(?<=[:upper:]\.[:space:][:upper:]\.)[:space:](?=[:upper:][:lower:]+)",NBSP) - 'Между Фамилией и инициалами должен быть неразрывный пробел, а не обычный - AskAndReplace("(?<=[:upper:][:lower:]{1,30})[:space:](?=[:upper:]\.[:space:][:upper:]\.)",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т)\.\ ?(?=[ендпк]\.)",".") + 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])","–") diff --git a/description.xml b/description.xml index 25e218f..03fbe46 100644 --- a/description.xml +++ b/description.xml @@ -3,7 +3,7 @@ xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:xlink="http://www.w3.org/1999/xlink"> - + Cleaning and validation documents for publishing in html and epub with pagination