Sideway BICK BlogSideway BICK BLOG from Sideway

A Sideway to Sideway Home
Home
Output.to

Link:http://output.to/sideway/default.asp?qno=180300013

Script, Scripting Language, VBScript elements, Server-Side VBScript Function Join Function

VBScript Array Functions

Functions for manipulating array expression.

Join Function

last updated 9/20/2017

Create a string from a given one-dimensional array list of substrings by joining all elements in the array accroding to the index numebr with the specified delimiter.

Syntax

Join(list[, delimiter])

Argument

listRequired. One-dimensional array containing substrings to be joined.delimiterOptional. String character used to separate the substrings in the returned string. If omitted, the space character (" ") is used. If delimiter is a zero-length string, all items in the list are concatenated with no delimiters.

Returns

Returns a Variant of String data subtype containing the string obtained from a given one-dimensional array list of substrings by joining all elements in the array accroding to the index numebr with the specified delimiter.

Special returns of Lbound function:

listdelimiterreturn valueNullNilRun-time errorEmptyNilRun-time error""NilRun-time error NilRun-time errorArray(Null)NilRun-time errorArray(Empty)Nil""Array("")Nil""Array()Nil""AnyNullRun-time error

Remarks

  • The Join function always returns String.
  • If the list argument is not a one-dimensional array, Join function returns Run-time error.
  • If the give array of list argument contains Null, Join function returns Run-time error.
  • If delimiter argument is omitted, the default value used is the space character (" ").
  • If delimiter is a zero-length string, all items in the list are concatenated with no delimters.

Requirement

2

Examples

Examples of Join function

ASP VbScript Command:
<script runat="server" language="VBScript">
Function cmda1:cmda1="Join(str,dlt)":cmda1=Left(cmda1,Len(cmda1)-4*(2-x)-1)&")":End Function
Dim vars,str,dlt,x,cmda,var:var=0
cmda=array("str","Eval(""cmda1"")","Eval(cmda1)")
Dim ucnt,tmp,i:ucnt=UBound(cmda):If var=1 Then:tmp="":Else:tmp="<b>vars</b>":End If:For i=0 to ucnt:tmp=tmp&"<b>"&rmv_ctrl(cmda(i))&", TypeName</b>":Next:Response.Write "Results on Microsoft Windows 8.1 Pro x64, Microsoft-IIS/8.5, VBScript Version 5.8 of page /internet/users/sideblog/default.asp<br />"&"<i>"&tmp&"</i>"
Function dsp_x:Dim tmp_a,tmp_b,i:If varx=0  Then:Execute vars:End If:If var=1 Then:tmp_a="":Else:tmp_a=rmv_ctrl(vars):End If:For i=0 to ucnt:tmp_b=cmd_b(cmda(i)):if i/2=fix(i/2) Then:tmp_b="<b>"&tmp_b&"</b>":End If:tmp_a=tmp_a&tmp_b:Next:Response.Write "<i>"&tmp_a&"</i>":End Function
Function rmv_ctrl(blk_str):Select Case blk_str:Case chr(0):blk_str="NUL":Case chr(1):blk_str="SOH":Case chr(2):blk_str="STX":Case chr(3):blk_str="ETX":Case chr(4):blk_str="EOT":Case chr(5):blk_str="ENQ":Case chr(6):blk_str="ACK":Case chr(7):blk_str="BEL":Case chr(8):blk_str="BS":Case chr(9):blk_str="HT":Case chr(10):blk_str="LF":Case chr(11):blk_str="VT":Case chr(12):blk_str="FF":Case chr(13):blk_str="CR":Case chr(14):blk_str="SO":Case chr(15):blk_str="SI":Case chr(16):blk_str="DLE":Case chr(17):blk_str="DC1":Case chr(18):blk_str="DC2":Case chr(19):blk_str="DC3":Case chr(20):blk_str="DC4":Case chr(21):blk_str="NAK":Case chr(22):blk_str="SYN":Case chr(23):blk_str="ETB":Case chr(24):blk_str="CAN":Case chr(25):blk_str="EM":Case chr(26):blk_str="SUB":Case chr(27):blk_str="ESC":Case chr(28):blk_str="FS":Case chr(29):blk_str="GS":Case chr(30):blk_str="RS":Case chr(31):blk_str="US":Case chr(127):blk_str="DEL":End Select:rmv_ctrl=blk_str:If IsNull(blk_str) OR IsEmpty(Blk_str) OR blk_str="" OR IsNumeric(Blk_str) Then:Else:rmv_ctrl=Replace(Replace(Replace(Replace(Replace(blk_str,"&","&amp;"),"  "," &nbsp;"),"""","&quot;"),"<","&lt;"),">","&gt;"): End If :End Function
Function cmd_b(blk_str):cmd_b="["&cmd_x(blk_str)&"], "&cmd_x("TypeName("&blk_str&")"):End Function
Function cmd_x(blk_str):On Error Resume Next:Dim xans, tmp:xans="":tmp="":execute "xans="&blk_str:If Err.Number <> 0  Then:xans=cmd_x("TypeName("&blk_str&")"):Select Case xans:Case 9::Case Else:xans="error":End Select:End If:If IsArray(xans)=False Then:cmd_x=rmv_ctrl(xans): Else:tmp=lst_arry(xans):cmd_x=trim(tmp):End If:End Function
Function lst_arry(blk_str):Dim tmp,i,q:q="""":tmp="":For i=0 to UBound(blk_str):if VarType(blk_str(i))>1 And VarType(blk_str(i))<6 Then:q="'":End If:tmp=tmp&" "&q&rmv_ctrl(blk_str(i))&q:Next:lst_arry=trim(tmp):End Function

vars="str=Array(Empty)":x=1:dsp_x
vars="str=Array("""")":dsp_x
vars="str=Array()":dsp_x
vars="str=array(""1"",""2"",""3"")":dsp_x
vars="str=array(1,2,3)":dsp_x
vars="str=array(1,2,3):dlt=Empty":x=2:dsp_x
vars="str=array(1,2,3):dlt=""""":dsp_x
vars="str=array(1,2,3):dlt="" """:dsp_x
vars="str=array(1,2,3):dlt=""zz""":dsp_x
vars="str=array(a,b,c)":x=1:dsp_x
vars="str=array("""","""","""")":dsp_x
vars="str=array(""a"",""b"",""c"")":dsp_x
vars="str=array(""a"",""b"",""c""):dlt="" """:x=2:dsp_x
vars="str=array(""a"",""b"",""c""):dlt=""""":dsp_x
vars="str=array(""a"",""b"",""c""):dlt=""zz""":dsp_x
</script>
HTML Web Page In-line Output:
Results on Microsoft Windows 8.1 Pro x64, Microsoft-IIS/8.5, VBScript Version 5.8 of page /internet/users/sideblog/default.asp
varsstr, TypeNameEval("cmda1"), TypeNameEval(cmda1), TypeNamestr=Array(Empty)[""], Variant()[Join(str)], String[], Stringstr=Array("")[""], Variant()[Join(str)], String[], Stringstr=Array()[], Variant()[Join(str)], String[], Stringstr=array("1","2","3")["1" "2" "3"], Variant()[Join(str)], String[1 2 3], Stringstr=array(1,2,3)['1' '2' '3'], Variant()[Join(str)], String[1 2 3], Stringstr=array(1,2,3):dlt=Empty['1' '2' '3'], Variant()[Join(str,dlt)], String[123], Stringstr=array(1,2,3):dlt=""['1' '2' '3'], Variant()[Join(str,dlt)], String[123], Stringstr=array(1,2,3):dlt=" "['1' '2' '3'], Variant()[Join(str,dlt)], String[1 2 3], Stringstr=array(1,2,3):dlt="zz"['1' '2' '3'], Variant()[Join(str,dlt)], String[1zz2zz3], Stringstr=array(a,b,c)["3/31/2018" "3/27/2019" ""], Variant()[Join(str)], String[3/31/2018 3/27/2019 ], Stringstr=array("","","")["" "" ""], Variant()[Join(str)], String[  ], Stringstr=array("a","b","c")["a" "b" "c"], Variant()[Join(str)], String[a b c], Stringstr=array("a","b","c"):dlt=" "["a" "b" "c"], Variant()[Join(str,dlt)], String[a b c], Stringstr=array("a","b","c"):dlt=""["a" "b" "c"], Variant()[Join(str,dlt)], String[abc], Stringstr=array("a","b","c"):dlt="zz"["a" "b" "c"], Variant()[Join(str,dlt)], String[azzbzzc], String

Sources
Previous Month  MAR  2018  Next Month
SMTWTFS
123
45678910
11121314151617
18192021222324
25262728293031

Previous Month  JAN  2010  Next Month
SMTWTFS
12
3456789
10111213141516
17181920212223
24252627282930
31

Sideway BICK Blog

13/03

Copyright © 2000-2020 Sideway . All rights reserved Disclaimerslast modified on 26 January 2013