[求助]如何截取字段

mandyliu912

CIGT - CIMC TF-Carol-Bond

CIGT - CIIH-BP TF-Alan-equity

如何截取中间的红色姓名

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

fan0217

它是否固定出现在右边第一个横线和第二个短横线得中间啊???

mandyliu912

是的固定在两个 - 中间

fan0217

应该有办法的,晚上给你放上来.

无忧

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


CIGT - CIMC TF-Carol-Bond

CIGT - CIIH-BP TF-Alan-equity

如何截取中间的红色姓名

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

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

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

fan0217

自定义了个函数,不知道是否是你需要的.

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

谢谢，收到：）