从字符串中剥离中文字符(vba)

Question

我正在使用Microsoft Project VBA将我的活动名称从英文翻译成中文。

我的问题是我在一些英文活动名称中嵌入了一些中文翻译。在将字符串传递给Microsoft Translator之前，我想去掉中文字符。

我该怎么做，有什么想法吗？

Answer 1

您可以使用Regexp剥离中文unicode字符。

Wikipedia在下面列出了相关字符

​

​

Sub Test()
Dim myString as String
myString = "This is my string with a " & ChrW$(&H6C49) & " in it."
Dim objRegex As Object
Set objRegex = CreateObject("vbscript.regexp")
With objRegex
    .Global = True
    .Pattern = "[\u4E00-\u9FFF\u6300-\u77FF\u7800-\u8CFF\u8D00-\u9FFF]+"
    MsgBox .Replace(myString, vbNullString)
End With
End Sub

因此，此正则表达式将去掉这些范围。我已经使用了aldo.room.nuena的字符串示例

Answer 2

您必须按如下方式使用ChrW$()：

MyString = "This is my string with a " & ChrW$(&H6C49) & " in it."

H6C49在Unicode上是可用的(谢天谢地)，有中日韩三种代码。请参见this以查看字符范围。

因此，您必须检查字符Unicode代码，然后比较它是否已经在CJK范围内，以便翻译它。

还有一个很好的解释，甚至还有一个翻译字符串here的程序