请用一种最最简单的方法按要求截取字符串。。。。

Question

设有一字符串，格式如下：X-YX和Y都是长度未知的字符串，中间是减号'-'又如程序中已经有dim str1,str2 as string我现在的目的就是想用最最简单的字符串截取的方法得到下列结果str1=X
str2=Y

Answer 1

dim arr as variant
arr = split(X-Y,"-")
str1=arr[0]
str2=arr[1]

Answer 2

split函数不是很简单吗？
xx=split(s,"-")
str1=xx(0)
str2=xx(1)

Answer 3

TO：LS
感觉不是最最简单的！！
如果X或Y中本身也有减号符号存在呢？

Answer 4

Private Sub Command1_Click()
    Dim i As Integer
    Dim MyString() As String
    MyString() = Split("1-22-333-4444-55555", "-", -1, 1)
    For i = 0 To UBound(MyString)
        Debug.Print MyString(i)
    Next
End Sub

Answer 5

这个正确阿， 把split的参数都看看。

Answer 6

晕！这样子的东西怎么可能分开？？？
"abc-123-999-kkk-222"
楼主手工分一下X和Y，能分出来吗？

Answer 7

路过,,
小可以为用Split就很好了
要不
先自定义一个字符传判断函数,在用MID()

Answer 8

dim str1 as string ,str2 as string str1=split("X-Y","-")(0)
str2=split("X-Y","-")(1)
表达形式上的简单
实际上执行两次split，效率不一定高

Answer 9

Private Sub Command1_Click()
Dim strA, strLL As String
Dim str As Integer
strLL = "Then-You"
strA = Split(strLL, "-")
MsgBox x = strA(0)
MsgBox y = strA(1)
End Sub

Answer 10

dim str1,str2 as string
这样定义str1不是string来的，做编程的要注意细节
应该dim str1 as string,str2 as string同时同意7楼的见解

Answer 11

这楼主也真是有意思,既然X,Y中有"-"号,那你又是凭什么来区分X,Y的的.也就是说比如"abc-123-999-kkk-222" 这样一个字符串,你是凭什么把它分为X,Y的,哈哈哈