AI讲解字典分离中英文

ning84 · 发表于 2024-9-11 10:49

本帖最后由 ning84 于 2024-9-11 10:59 编辑

照猫画虎，结果不对，没有空格和数字

TherearecurrentlyeightparishesinMacau
澳门现有个堂区

代码如下

Sub llll()
Dim ii, oChar, English, Chinese
Dim Str
Str = "澳门现有8个堂区There are currently eight parishes in Macau."
Dim EngDict As Scripting.Dictionary, ChiDict As Scripting.Dictionary
Dim Dict As Scripting.Dictionary
Set Dict = New Scripting.Dictionary
For ii = 1 To Len(Str)
oChar = Mid(Str, ii, 1)
Debug.Print oChar
If Asc(oChar) >= 65 And Asc(oChar) <= 122 Then
English = English & oChar
ElseIf Asc(oChar) >= -20319 And Asc(oChar) <= -3652 Then
Chinese = Chinese & oChar
End If
Next ii
Dict.Add "English", English
Dict.Add "Chinese", Chinese
Stop
Debug.Print Dict("English") & vbCr; Dict("Chinese")
End Sub

复制代码

遇到这种字符如何中文分离 Sé，St.等等。

"大堂区 Parish of Sé"
"望德堂区 Parish of St. Lazarus"
"风顺堂区 Parish of St. Lawrence"
"嘉模堂区 Parish of Our Lady of Carmel"
"圣方济各堂区 Parish of St. Francis Xavier"
"路氹填海区 Cotai Reclamation Area"

ning84 · 发表于 2024-9-11 19:31

正则方法

Function SeparateChineseAndEnglish(text As String) As String
Dim regEx As VBScript_RegExp_55.RegExp
Set regEx = New VBScript_RegExp_55.RegExp
regEx.Pattern = "[\u4e00-\u9fa5]+"
Dim chineseMatches As VBScript_RegExp_55.MatchCollection
Set chineseMatches = regEx.Execute(text)
Dim chineseText As String
For Each Match In chineseMatches
chineseText = chineseText & Match.Value
Next
regEx.Pattern = "\b[\w\s\d]+\b [a-zA-Z]+"
Dim englishMatches As VBScript_RegExp_55.MatchCollection
Set englishMatches = regEx.Execute(text)
Dim englishText As String
For Each Match In englishMatches
englishText = englishText & Match.Value
Next
Debug.Print englishText
SeparateChineseAndEnglish = chineseText & " " & englishText
Stop
End Function
Sub TestSeparation()
Dim inputText As String
inputText = "Hello 你好 World！世界"
inputText = "澳门现有8个堂区There are currently eight parishes in Macau."
Debug.Print (SeparateChineseAndEnglish(inputText))
Stop
End Sub

复制代码

学习regEx.Pattern = "[\u4e00-\u9fa5]+" 和 "\b[\w\s\d]+\b [a-zA-Z]+"
学习

		自动登录	找回密码
密码			免费注册