diff --git a/src/RulesProcessor.cls b/src/RulesProcessor.cls index 8e7b098..cf7eb12 100644 --- a/src/RulesProcessor.cls +++ b/src/RulesProcessor.cls @@ -9,16 +9,16 @@ Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Option Explicit -Private Const SYMBOL_QUOTE$ = "„”“«»""" -Private Const SYMBOL_LETTER$ = "a-zA-Zà-ÿÀ-߸¨" -Private Const SYMBOL_DIGIT$ = "0-9" +Private SYMBOL_QUOTE$ +Private SYMBOL_LETTER$ +Private SYMBOL_DIGIT$ -Private Const MASK_LETTER$ = "[" & SYMBOL_LETTER & "]" -Private Const MASK_DIGIT$ = "[" & SYMBOL_DIGIT & "]" -Private Const MASK_ALPHANUM = "[" & SYMBOL_LETTER & SYMBOL_DIGIT & "]" -Private Const MASK_ROMAN_DIGIT$ = "[ivxlcdmIVXLCDM]" +Private MASK_LETTER$ +Private MASK_DIGIT$ +Private MASK_ALPHANUM +Private MASK_ROMAN_DIGIT$ -Private Const MASK_QUOTE$ = "[" & SYMBOL_QUOTE & "]" +Private MASK_QUOTE$ Private Const NEW_PARAGRAPH = -1 @@ -35,6 +35,17 @@ Public errors_ As Long Public fixes_ As Long Private Sub Class_Initialize() + SYMBOL_QUOTE$ = ChrW(8222) & ChrW(8221) & ChrW(171) & ChrW(187) & """" + SYMBOL_LETTER$ = "a-zA-Z" & ChrW(1072) & "-" & ChrW(1103) & ChrW(1040) & "-" & ChrW(1071) & ChrW(1105) & ChrW(1025) + SYMBOL_DIGIT$ = "0-9" + + MASK_LETTER$ = "[" & SYMBOL_LETTER & "]" + MASK_DIGIT$ = "[" & SYMBOL_DIGIT & "]" + MASK_ALPHANUM = "[" & SYMBOL_LETTER & SYMBOL_DIGIT & "]" + MASK_ROMAN_DIGIT$ = "[ivxlcdmIVXLCDM]" + + MASK_QUOTE$ = "[" & SYMBOL_QUOTE & "]" + Call ResetCounters End Sub