From da680a506d70a3d63ce68f05129176d0d6b56435 Mon Sep 17 00:00:00 2001 From: Georgy Litvinov Date: Sun, 8 Nov 2020 15:06:54 +0100 Subject: [PATCH] Added minus sign to frequent mistakes regexps --- Redaction/Clean.xba | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba index f20175b..1305bcc 100644 --- a/Redaction/Clean.xba +++ b/Redaction/Clean.xba @@ -1,6 +1,6 @@ -Sub mark67 +Sub mark68 End Sub @@ -420,11 +420,11 @@ Private Sub fixFrequentMistakes 'Между буквами среднее тире должно обрамляться пробелами AskAndReplace("(?<=[:alpha:])–(?=[:alpha:])",NBSP & "–" & NBSP) 'Между буквами дефис-минус, цифровое тире и длинное тире заменяется на среднее тире - AskAndReplace("(?<=[:alpha:][:space:])[-‒—](?=[:space:][:alpha:])","–") + AskAndReplace("(?<=[:alpha:][:space:])[-‒—−](?=[:space:][:alpha:])","–") 'Между двумя цифрами и тире между ними не долнжо быть пробелов. А также тире должно быть цифровым - AskAndReplace("(?<=[:digit:])(?:[:space:])?[-‒–—](?:[:space:])?(?=[:digit:])","‒") + AskAndReplace("(?<=[:digit:])(?:[:space:])?[-‒–—−](?:[:space:])?(?=[:digit:])","‒") 'Между двумя римскими цифрами и тире между ними не долнжо быть пробелов. А также тире должно быть средним - AskAndReplace("(?<=[MDCLXVI])(?:[:space:])?[-‒–—](?:[:space:])?(?=[MDCLXVI])","–") + AskAndReplace("(?<=[MDCLXVI])(?:[:space:])?[-‒–—−](?:[:space:])?(?=[MDCLXVI])","–") 'Между буквой и угловой открывающейся скобкой должен быть пробел AskAndReplace("(?<=[:alpha:])<(?=…>)",space & "<") 'Между угловой закрывающейся скобкой и буквой должен быть пробел @@ -462,6 +462,7 @@ Private Sub fixFrequentMistakes End Sub + Private Sub loadArticleStyles Dim dispatcher As Object Dim filePath As String