使用Split函數提取字符串數據

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

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

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

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

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

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

提取數據成功