Office中国论坛/Access中国论坛

标题: 中英文句子混合资料提取实例（含代码） [打印本页]

作者: huangqinyong 时间: 2008-1-5 17:28
标题: 中英文句子混合资料提取实例（含代码）
当中英文资料混合在一起时，若要将中／英文分离出来，用手工来分离一来麻烦，二可能会出错，我所提供的实例将会给大家提供一个思路．

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

作者: andymark 时间: 2008-1-5 17:43
谢谢分享
执行提取或删除后增加一句Me.Refresh , 就不需要另行刷新了

作者: huangqinyong 时间: 2008-1-5 17:54

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

thank,版主

作者: tmtony 时间: 2008-1-5 20:55
谢谢无私分享

作者: Victor_Duane 时间: 2008-1-5 23:56
根据你的这个示例,我做了如下修改
模块函数
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 时间: 2008-1-6 10:46
５楼版主提供的模块受益匪浅，thank.现将代修改后的实例再次传上，供大家参考

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

作者: 64382575 时间: 2008-1-21 14:45
珍藏，谢谢分享

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

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

作者: huangqinyong 时间: 2008-1-22 15:37

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

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

是不是这样的？

作者: ttstory 时间: 2008-2-3 10:53
thanks~~太好了~~~

作者: ttstory 时间: 2008-2-3 15:26
学习中，谢谢楼主分享~~^_^

作者: REORX 时间: 2008-3-4 15:32
感谢分享,谢谢....学习中

作者: tanhong 时间: 2008-7-3 12:14
好实例,真是不错!

作者: yanwei82123300 时间: 2010-1-26 12:03
实例,真是不错!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)