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

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

如下圖，我們想把路徑上的內(nèi)容以反斜桿（\）為標(biāo)記，全部提取到列表框中。

如果這里用instr函數(shù)的話就要逐個(gè)反斜杠去提取了。如果用Split或者更加方便

Split函數(shù)返回一個(gè)一維數(shù)組，下標(biāo)從零開始的指定數(shù)目的子字符串。

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

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"  '列表框內(nèi)容為值列表
        Me.List11.RowSource = s
    Next i
    
End Sub

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