使用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

提取数据成功