VBA 如何在阿拉伯语中测试一个词是阳性还是阴性

Question

如何在 VBA 中测试阿拉伯语中的单词是阳性还是阴性？

这个词是一个字符串。

男性或女性的结果应为 True 或 False。

示例：“شمس”变得女性化

“قمر”变得阳刚

这个简单的代码根本不起作用：

Sex = "M"
If Right(word, 1) = "ة" Then Sex = "F"

谢谢

Answer 1

如果决定单词性别的唯一因素是词尾，您可以使用 select 大小写（德语的简单示例）：

Right()中的数字决定了你想看多少个字符。

Public Function isMale(aWord As String) As Boolean
    Select Case True
        Case Right(aWord, 2) = "er"
            isMale = True
        Case Right(aWord, 2) = "in"
            isMale = False
        End Select
End Function

VBA 如何在阿拉伯语中测试一个词是阳性还是阴性

How to test if a word is masculine or feminine in Arabic in VBA

vba

arabic