VBAのstring.Split C＃では空のエントリ

Question

を削除し、あなたがこのような何か行うことができます。

string s = "1--2--3"; 
s.Split(new char[] {'-'}, StringSplitOptions.RemoveEmptyEntries); 

を、代わりに得ることの{1、2、3}、あなたは、{1,2を取得したいです3}

私はVBAでも同じことをしようとしていますが、StringSplitOptions.RemoveEmptyEntriesは表示されません。これを行う最も簡単な方法は何ですか？

Answer 1

VBAでは簡単な方法はありませんが、それぞれを削除します。

Public Function SplitRemoveEmptyEntries(strInput As String, strDelimiter As String) As String() 
Dim strTmp As Variant 
Dim sSplit() As String 
Dim sSplitOut() As String 
ReDim Preserve sSplitOut(0) 
    For Each strTmp In Split(strInput, strDelimiter) 
    If Trim(strTmp) <> "" Then 
     ReDim Preserve sSplitOut(UBound(sSplitOut) + 1) 
     sSplitOut(UBound(sSplitOut) - 1) = strTmp 
    End If 
    Next strTmp 
    ReDim Preserve sSplitOut(UBound(sSplitOut) - 1) 
    SplitRemoveEmptyEntries = sSplitOut 
End Function 

Answer 2

あなたの具体的な例を使用して、ハードコードの例では、 - トリプルエントリでは動作しません

Dim arrSplit as Variant 
Dim strExample as String 
Dim i as Integer 

strExample = "1--2--3" 

arrSplit = Split(Replace(strExample,"--","),"-") ' Replace double delimiters 
for i = lBound(arrSplit) to uBound(arrSplit) 
    Debug.Print arrSplit(i) 
next