office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

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

使用Split函数提取字符串数据

2021-04-22 08:00:00
tmtony8
原创
1154

对于字符串的数据提取,我们可以用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


提取数据成功




    分享