Database Search

TechHome

• Sort Array UDF
• udfArrayFilter
• udfArrayJoin
• udfArrayReverse
• udfDisplayArrayElements

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

udfArrayJoin

 Keywords: udfArrayJoin Join elements array string

;------------------------------------------------------------------------------------------------------------------------------------------
#DefineFunction udfArrayJoin (arrArray, strDelimiter)
objJSC = CreateObject ("MSScriptControl.ScriptControl")
objJSC.Language = "jscript"
objJSC.AllowUI = @FALSE
Switch @TRUE
Case 256 == VarType (arrArray) ; WinBatch Array.
Case ObjectTypeGet (arrArray) == "ARRAY|VARIANT" ; Variant Array
   objJSC.AddCode(: "function VB2JSArray(objVBArray){var a;try{a=new VBArray(objVBArray).toArray();}catch(e){a=new Array(objVBArray);}return a;}")
   objJSC.AddCode(: "function ArrayJoin(objVBArray,strDelimiter){return VB2JSArray(objVBArray).join(strDelimiter);}")
   strJoined = objJSC.Run(: "ArrayJoin", arrArray, strDelimiter)
   Break
Case @TRUE
   strJoined = ""
EndSwitch
Return strJoined
;..........................................................................................................................................
; This UDF "udfArrayJoin" joins all elements of an array into a string.
; The elements will be separated by the specified delimiter string.
;
; Parameter:
; arrArray ....... A one-dimensional array of strings to be searched. Array type can be WinBatch Array or Variant Array.
; strDelimiter ... A single character or a string. The elements will be separated by this delimiter.
;..........................................................................................................................................
; (c)Detlev Dalitz.20100121.
; Jim Dippner.20080221: changed VB2JSArray.
; David Wang.20060704: created VB2JSArray.
;..........................................................................................................................................
#EndFunction
;------------------------------------------------------------------------------------------------------------------------------------------

Article ID:   W18341

Filename:   udfArrayJoin.txt

File Created: 2010:01:21:10:12:14

Last Updated: 2010:01:21:10:12:14