如何在字符串中有条件的截取特定字符？
如：12-3-5-6
    1235-6
能否按最右侧的"-"作为分隔符，来截取：12-3-5和6 以及1235和6 呢？

Dim A,B,C as String

A="12-3-5-6"

B=Mid(A,1,instrrev(A,"-")-1)  
C=Mid(A,Len(B)+1)

--------------OR-----------------

Dim A,B,C,Temp() as String

A="12-3-5-6"

Temp=Split(A,"-")
B=Temp(0) & Temp(1) &Temp(2)
C=Temp(UBound(Temp))
Erase Temp

[ 本帖最后由 wube 于 2011-7-29 17:12 编辑 ]

能够达到效果了，谢谢！

-------------------------------------------------------------------------------
推荐几个非常实用的模块：VB - 自编字符串段值处理函数 ★『经典版』VS『现代版』★
http://hi.baidu.com/51025187/blog/item/a8f52b50d6b0e0688435242e.html
-------------------------------------------------------------------------------

VB 有正则表达式的。。。用正则很容易