Office中国论坛/Access中国论坛

标题: [求助]如何截取字段 [打印本页]

作者: mandyliu912 时间: 2006-3-31 23:57
标题: [求助]如何截取字段
CIGT - CIMC TF-Carol-Bond

CIGT - CIIH-BP TF-Alan-equity

如何截取中间的红色姓名

用Left或right函数位置不固定啊

作者: fan0217 时间: 2006-4-1 00:09
它是否固定出现在右边第一个横线和第二个短横线得中间啊???

作者: mandyliu912 时间: 2006-4-1 00:10
是的固定在两个 - 中间

作者: fan0217 时间: 2006-4-1 00:12
应该有办法的,晚上给你放上来.

作者: 无忧 时间: 2006-4-1 01:19

以下是引用mandyliu912在2006-3-31 15:57:00的发言：

CIGT - CIMC TF-Carol-Bond

CIGT - CIIH-BP TF-Alan-equity

如何截取中间的红色姓名

用Left或right函数位置不固定啊

最好楼主把规律说清楚，我看第一行有两个“-”，第二行有三个“-”，要取的字，是不是一定在倒数第一个“-”后面？不然，别人帮你做出来了，也是无用功。

最好用自定义涵数，在里面用InStr()结合Left或right函数，就可以了。如果不用自定义涵数，公式会很长，，，刚刚小试了一下

作者: fan0217 时间: 2006-4-1 01:26
自定义了个函数,不知道是否是你需要的.

Function mySplitText(strMyText As String) As String
'strMyText As String 要拆分的字符串
'调用示例：Me.Text1= mySplitText("CIGT - CIMC TF-Carol-Bond")
'返回： Carol
Dim i As Integer

i = UBound(Split(strMyText, "-", -1), 1)

mySplitText = Split(strMyText, "-", -1)(i - 1)

End Function

作者: mandyliu912 时间: 2006-4-1 02:01
谢谢，收到：）

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