Access字符串?dāng)?shù)據(jù)拆分追加到表

把一個長的字符串按固定的規(guī)則截取出多個子字符串。

如下面字符串"蘋果;西瓜;香蕉;哈密瓜;菠蘿;奇異果;櫻桃"，按“；”把逐個水果截取出來添加到表中。

詳細(xì)函數(shù)：

Public Sub subStringInsert()
    Dim strf As String
    Dim arr() As String
    strf = "蘋果;西瓜;香蕉;哈密瓜;菠蘿;奇異果;櫻桃"
    arr() = Split(strf, ";") ' split函數(shù)以；分解字符串
    For i = 0 To UBound(arr())  '循環(huán)找出數(shù)組
    CurrentDb.Execute "insert into tbl1(水果) values('" & arr(i) & "')" '追加到表
    Next
    
End Sub

效果圖：