如何拆分一个字符串

Question

Dim a As String
    Dim i As Long
    Dim b(2) As String
    a = "123456"
    For i = 0 To 2
        b(i) = Mid(a, i + i + 1, 2)
        Debug.Print b(i)
    Next

Answer 1

    Dim s1,s2,s3 As String
    s1= Mid(trim(text1.text), 1, 2)
    s2= Mid(trim(text1.text), 3, 2)
    s3= Mid(trim(text1.text), 5, 2)

Answer 2

Dim s1 As String,s2 As String,s3 As String
    s1= Left(Text1.Text, 2)
    s2= Mid(Text1.Text, 3, 2)
    s3= Right(Text1.Text, 2)

Answer 3

也来抢分
如果都是数字，这样最简单：
private function GetSplitAry(byval V as string)as string()
getsplitary=split(format(v,"00-00-00"),"-")
end sub

Answer 4

我觉得 "是我（IsMe)"（沾点光）的方法较有创意！

Answer 5

i=1
do while (i<=len(text1.text)
   temp=mid(text1.text,i,2) 
  debug.print temp
   i=i+2
loop
   
  

Answer 6

不用mid也行
s1 = left(a,2)
s2 = left(right(a,4),2)
s3 = left(right(a,2),2)