使用Split函數(shù)提取字符串數(shù)據(jù)

對於字符串的數(shù)據(jù)提取，我們可以用instr函數(shù)，根據(jù)截取的字符串在源字符串中的位置來截取

如下圖，我們想把路徑上的內容以反斜桿（\）爲標記，全部提取到列錶框中。

如果這裡用instr函數(shù)的話就要逐箇反斜槓去提取瞭。如果用Split或者更加方便

Split函數(shù)返迴一箇一維數(shù)組，下標從零開始的指定數(shù)目的子字符串。

詳細代碼如下：提取的數(shù)據(jù)存放到數(shù)組中，循環(huán)添加分號“;”生成值列錶，添加到列錶框中。

Private Sub Command10_Click()
    Dim arr() As String  '定義瞭數(shù)組
    arr() = Split(Me.Label1.Caption, "")    '截取
    Dim i As Integer
    Dim s As String
    For i = 0 To UBound(arr)    '循環(huán)數(shù)組最大值
        s = s & ";" & arr(i)
        Me.List11.RowSourceType = "Value List"  '列錶框內容爲值列錶
        Me.List11.RowSource = s
    Next i
    
End Sub

提取數(shù)據(jù)成功