User Tools

Site Tools


vba:functions:concat_ws

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revision Previous revision
Next revision
Previous revision
vba:functions:concat_ws [08.05.2014 10:31:44]
yaslaw [Code]
vba:functions:concat_ws [31.01.2017 11:47:05] (current)
yaslaw [Parameters]
Line 1: Line 1:
 +<​const>​
 +    version=1.0.0
 +    vdate=27.02.2014
 +    fname=udf_concatws.bas
 +    ns=%NAMESPACE%
 +    fpath=/​vba/​functions
 +</​const>​
 ====== [VBA] concat_ws() ====== ====== [VBA] concat_ws() ======
-Diese Funktion verbindet Mehrere Elemente zu einem String. Das Trennzeichen kann mitgegeben werden.+//Diese Funktion verbindet Mehrere Elemente zu einem String. Das Trennzeichen kann mitgegeben werden.
 Sie ist sehr gut in SQL geeignet um aus mehreren Feldern ein Key zu erstellen Sie ist sehr gut in SQL geeignet um aus mehreren Feldern ein Key zu erstellen
 +//
 +==Version %%version%% - %%vdate%%==
 +
 +{{%%fname%%|Download %%fname%% (V-%%version%%)}}
 +
 +
  
 ===== Definition ===== ===== Definition =====
Line 9: Line 22:
 ) As String</​code>​ ) As String</​code>​
 ==== Parameters ==== ==== Parameters ====
-  ***iDelemiter** ​ Das Trennzeichen/​String,​ der ziesch ​die einzelnen Elemente gesetzt wird +  ***iDelemiter** ​ Das Trennzeichen/​String,​ der zwischen ​die einzelnen Elemente gesetzt wird 
-  ***ParamArray** ​ Die einzelnen Elemente+  ***%%ParamArray%%**  Die einzelnen Elemente
 ==== Return ==== ==== Return ====
 Es wird ein String zurückgegeben Es wird ein String zurückgegeben
Line 28: Line 41:
  
 ===== Code ===== ===== Code =====
-<code vb _concat_ws.bas>​ +<source ​'%%fpath%%/%%fname%%' ​vb>
-'/** +
-' ​* Fügt mehrere Elemente mit einem Trennstring zu einem String zusammen +
-' * @param ​ Variant ​        ​Delemiter +
-' * @param ​ ParamArray ​     Die verschiedenen Elemente +
-' * @return String +
-' */ +
-Public Function concat_ws( _ +
-        ByVal iDelemiter As Variant, _ +
-        ParamArray items() As Variant _ +
-) As String +
-    concat_ws = Join(items, CStr(iDelemiter)) +
-End Function +
-</code>+
  
vba/functions/concat_ws.1399537904.txt.gz · Last modified: 08.05.2014 10:31:44 by yaslaw