如何用split分割这段

Question

 text1内容为百度<>baidu
微博<>weibo那么如何用split使
label1显示为百度
label2显示为baidu
label3显示为微博
label4显示为weibo

Answer 1

Dim Tex() As String
  Tex = Split("百度<>baidu" & vbCrLf & "微博<>weibo", "<>")
  If UBound(Tex) = -1 Then Exit Sub 'Or Function
  Label1.Caption = Tex(0)
  Label4.Caption = Tex(2)
  Tex = Split(Tex(1), vbCrLf)
  If UBound(Tex) = -1 Then Exit Sub 'Or Function
  Label2.Caption = Tex(0)
  Label3.Caption = Tex(1)

Answer 2

dim a() as string
a = split(text1,vbcrlf)dim b() as string
b = split(a(0),"<>")label1.caption = b(0)
label2.caption = b(1)b = split(a(1),"<>")label3.caption = b(0)
label4.caption = b(1)

Answer 3

Dim a() as String
Dim s As String
s = "百度<>baidu" & VbCrLf & _
"微博<>weibo"
a = Split(Replace(s, "<>", VbCrLf), VbCrLf)
label1.Text = a(0)
label2.Text = a(1)
label3.Text = a(2)
label4.Text = a(3)

Answer 4

a = Split(Replace(s, "<>", VbCrLf), VbCrLf)

Answer 5

dim a() as string
dim s as strings=text1
a = Split(Replace(s, "<>", VbCrLf), VbCrLf) 
label1=trim(a(0))
label2=trim(a(1))
label3=trim(a(2))
label4=trim(a(3))