From a1ae7e6e198dc7256dab65729cf8329410fd775f Mon Sep 17 00:00:00 2001
From: Georgy Litvinov <git@litvinovg.pro>
Date: Tue, 8 Dec 2020 13:35:23 +0100
Subject: [PATCH] Checks to skip DOI

---
 Redaction/Clean.xba | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba
index 1305bcc..1c0ea54 100644
--- a/Redaction/Clean.xba
+++ b/Redaction/Clean.xba
@@ -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 mark68
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark69
 
 End Sub
 
@@ -421,8 +421,9 @@ Private Sub fixFrequentMistakes
 	AskAndReplace(&quot;(?&lt;=[:alpha:])–(?=[:alpha:])&quot;,NBSP &amp; &quot;–&quot; &amp; NBSP)
 	&apos;Между буквами дефис-минус, цифровое тире и длинное тире заменяется на среднее тире
     AskAndReplace(&quot;(?&lt;=[:alpha:][:space:])[-‒—−](?=[:space:][:alpha:])&quot;,&quot;–&quot;)
-    &apos;Между двумя цифрами и тире между ними не долнжо быть пробелов. А также тире должно быть цифровым
-    AskAndReplace(&quot;(?&lt;=[:digit:])(?:[:space:])?[-‒–—−](?:[:space:])?(?=[:digit:])&quot;,&quot;‒&quot;)
+    &apos;Между двумя цифрами и тире не долнжо быть пробелов. А также тире должно быть цифровым.
+    &apos;Также проверяем, что перед искомым тире нет DOI
+    AskAndReplace(&quot;(?&lt;!DOI[0-9. /XVI:-‒–—−-]{1,50})(?&lt;=[:digit:])(?:[:space:])?[-‒–—−](?:[:space:])?(?=[:digit:])&quot;,&quot;‒&quot;)
  	&apos;Между двумя римскими цифрами и тире между ними не долнжо быть пробелов. А также тире должно быть средним
 	AskAndReplace(&quot;(?&lt;=[MDCLXVI])(?:[:space:])?[-‒–—−](?:[:space:])?(?=[MDCLXVI])&quot;,&quot;–&quot;)
 	&apos;Между буквой и угловой открывающейся скобкой должен быть пробел