version=1.1.0 vdate=07.10.2016 fname=udf_splitplus.bas ns=%NAMESPACE% fpath=/vba/functions ====== [VBA] splitPlus() ====== //Erweiterung des VBA.split(). Diese Funktion kann mit Anfürhungszeichen und Maskierungen arbeiten // ==Version %%version%% %%vdate%%== {{%%fname%%|Download %%fname%% (V-%%version%%)}} ===== Definition ===== Array = splitPlus(Expression [,Delimiter [, Quota]])

Public Function splitPlus( _
	ByVal iString As String, _
	Optional ByVal iDelimiter As String = ",", _
	Optional ByVal iQuote As String = """" _
) As String()

==== Parameters ==== ***iString** String, der in einen Array zerlegt werden soll ***iDelimiter** String, Delimiter. Standard ist , ***iQuota** Textbegrenzungszeichen. Standard ist " ==== Rückgabewert ==== Array ===== Beispiele ===== {{section>:snippets#vba_print_r&noheader&firstseconly}}

'Trennung mit VBA.split()
d split("abc,'def,ghi'", ",")
  (
    [0] =>  'abc'
    [1] =>  ''def'
    [2] =>  'ghi''
)

'und Dasselbe mit splitPlus
d splitPlus("abc,'def,ghi'", ",", "'")
  (
    [0] =>  'abc'
    [1] =>  'def,ghi'
)

'Und ein Beispiel mir Maskierten Zeichen. Maskieren immer mit \
d splitPlus("ab\,c\\,'def,g\'hi',''", ",", "'")
  (
    [0] =>  'ab,c\'
    [1] =>  'def,g'hi'
    [2] =>  ''
)

===== Code =====