vbaの複数の区切り文字（単語）

Question

split（）関数に複数の区切り文字を使用するにはどうすればよいですか？私はデリミタとして2つ以上の単語を使用したいが、それがどのように可能かは分かりません。

Answer 1

置き換えを使用して複数の単語を置き換えてから、分割して使用することができます。

あなたは次のように行くことができる

mystring= Replace(mystring, "hello", "#") 
mystring= Replace(mystring, "hi", "#") 
mystring= Replace(mystring, "thanks", "#") 
newstring= Split(mystring, "#") 

Answer 2

は、次のとおりです。

Option Explicit 

Sub main() 
    Dim t As String 
    Dim arr As Variant, seps As Variant, sep As Variant 

    seps = Array("hello", "hi") '<--| define your seperators list 

    t = "hello i would hello like to hi split this string hello with multiple hello separators hi" '<--| string to split 

    t = " " & t & " " '<--| add trailing blank to catch possible "border" 'separators' 
    For Each sep In seps 
     t = Replace(t, " " & sep & " ", "|") 'turn all separators into one only 
    Next sep 
    t = Trim(t) '<--| remove trailing blanks 
    If Left(t, 1) = "|" Then t = Right(t, Len(t) - 1) '<--| remove any initial 'separator' 
    If Right(t, 1) = "|" Then t = Left(t, Len(t) - 1) '<--| remove any final 'separator' 
    arr = Split(t, "|") 

End Sub