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 编辑 ]