office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2021-04-22 08:00:00
tmtony8
原創
466

對於字符串的數據提取,我們可以用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


提取數據成功




    分享