Я использую Microsoft Project VBA для перевода названий моих действий с английского на китайский.
Моя проблема в том, что у меня есть некоторые китайские переводы, встроенные в некоторые английские названия действий. Я хочу удалить китайские иероглифы перед передачей строки в Microsoft Translator.
Любые идеи относительно того, как я могу это сделать?
Вы можете использовать Regexp для удаления китайских символов Юникода.
Википедия перечисляет соответствующие символы ниже
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.roman.nurena
Вы должны использовать ChrW$() как это:
MyString = "This is my string with a " & ChrW$(&H6C49) & " in it."
H6C49 доступен (слава Богу за это) в Unicode как коды CJK (китайский, японский и корейский). См. это, чтобы взглянуть на диапазон символов.
Итак, вам нужно проверить код Unicode символа, а затем сравнить, находится ли он уже в диапазоне CJK, чтобы перевести его или нет.
Также есть хорошее объяснение и даже программа для перевода строк здесь
