中英文句子混合资料提取实例（含代码）

huangqinyong

当中英文资料混合在一起时，若要将中／英文分离出来，用手工来分离一来麻烦，二可能会出错，我所提供的实例将会给大家提供一个思路．

[ 本帖最后由 huangqinyong 于 2008-1-5 17:29 编辑 ]

andymark

谢谢分享
执行提取或删除后增加一句Me.Refresh , 就不需要另行刷新了

huangqinyong

原帖由 andymark 于 2008-1-5 17:43 发表
谢谢分享
执行提取或删除后增加一句Me.Refresh , 就不需要另行刷新了

thank,版主

tmtony

谢谢无私分享

Victor_Duane

根据你的这个示例,我做了如下修改
模块函数
Public Function gethz(ByVal strScc As String, Optional intchoose As Integer = 1) As String
Dim m As Integer
Dim n As Integer
n = Len(strScc)
For m = 1 To n
    If Mid(strScc, m, 1) Like "[A-Za-z]" Then
        Exit For
    End If
    n = n - 1
Next
Select Case intchoose
Case 1
gethz = Trim(Left(strScc, Len(strScc) - n))
Case 2
gethz = Trim(Right(strScc, n))
End Select
End Function

查询语句如下
SELECT Sheet1.原文, gethz([原文],1) AS 汉字, gethz([原文],2) AS 英文
FROM Sheet1;

huangqinyong

５楼版主提供的模块受益匪浅，thank.现将代修改后的实例再次传上，供大家参考

[ 本帖最后由 huangqinyong 于 2008-1-6 11:08 编辑 ]

64382575

珍藏，谢谢分享

goto2008

大哥，这个例子，还能不能再完美些？？？
按照大哥们改的效果是这样的
原文            中文          英文
张三love李四    张三          love李四

能不能改成下面这种效果？
原文            中文          英文
张三love李四    张三李四      love

huangqinyong

原帖由 goto2008 于 2008-1-22 10:27 发表
大哥，这个例子，还能不能再完美些？？？
按照大哥们改的效果是这样的
原文            中文          英文
张三love李四    张三          love李四

能不能改成下面这种效果？
原文            中文         ...

是不是这样的？

ttstory

thanks~~太好了~~~