我正在尝试以正则表达式模式匹配希腊字符。似乎 VBA 在支持 Unicode 方面非常有限,但如果可能的话,我可以使用 ASCII。这是一个示例代码:
Sub TestGreekRegEx()
Dim str
str = "αυτό είναι ένα ελληνικό κείμενο"
Set regEx = CreateObject("vbscript.regexp")
regEx.Pattern = "\b[\xe1-\xfe]+\b"
Set Matches = regEx.Execute(str)
For Each Match In Matches
MsgBox Match
Next
End Sub
这根本没有返回匹配项。另外,如果我在 str 的字符中循环,我得到的 ASCII 代码在\xE1 到\xFE 的范围内。
谢谢
最佳答案
试试这个
\b[\u00E1-\u03CE]+\b
顺便说一句,请确保处理 UNICODE 字符的范围。
关于regex - VBA 使用正则表达式匹配希腊词作为整个词,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/14602843/