access將文本拆分轉化爲一箇數組

有網友問到如何把文本轉換成變量數組。

有下麵文字“This website is office-cn”。我們希望把這段文字拆分單詞後放入數組中。

拆分我們可以使用split函數。空白用space（1）卽可

Sub TheSplitFunction()
  
  Dim vaWords As Variant
  Dim i As Long
  
  vaWords = Split("This website is office-cn.", Space(1))
  
  For i = LBound(vaWords) To UBound(vaWords)
    Debug.Print vaWords(i)
  Next i
  
End Sub

vawords變量將是包含四箇元素的變量數組，這箇元素分彆是This、website、is、office-cn。

分隔符是一箇空格，併未包含在元素中。