Question

怎么用VB语言实现字符串单个提取

我有一串字符串如07:1711:3011:5011:5011:5617:0217:2620:30
怎么样按照5个字符一组，分别提取出来，并且去除重复项？VB语言中有map集合吗？用数组好点还是集合对象好点？

Answer 1

Private Sub Command1_Click()

  Dim t(20) As String * 5

  s = "07:1711:3011:5011:5011:5617:0217:2620:30"

  k = 0

  For i = 1 To Len(s) \ 5

    k = k + 1

    t(k) = Mid(s, 5 * i - 4, 5)

    If t(k) = t(k - 1) Then k = k - 1 Else Print t(k)

  Next i

  Print "k="; k

End Sub

Answer 2

1 截取字符串
2 用Dictionary对象，比数组好点