ConceptProd/WordAI
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix cyrillic masks

Browse Source
This commit is contained in:
Ivan 2024-08-05 14:53:25 +03:00
parent 18ddcf23bf
commit e58fcefbad
1 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/RulesProcessor.cls
View File

@ -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