Sideway BICK BlogSideway BICK BLOG from Sideway

A Sideway to Sideway Home

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

ShuowenJiezi Chinese Character Radicals 囪

Chinese ShuowenJiezi Radical 385 囪(U+56EA)

Section 分部Character
漢字 4
U+56EA
open
close
在牆曰牖在屋曰囪象形凡囪之屬𣅜从囪楚江切
last updated 31March2017
U+7A97
open
close
或从穴
last updated 31March2017
𡆧
U+211A7
open
close
古文
last updated 31March2017
U+60A4
open
close
多遽悤悤也从心囪囪亦聲倉紅切
last updated 31March2017

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

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

VBScript Array Functions

Functions for manipulating array expression.

Array Function

last updated 9/16/2017

Create a zero-based one-dimensional array from a given comma-delimited list of values by arranging the elements of the ordered list as members of the array.

Syntax

Array(arglist)

Argument

arglistRequired. A comma-delimited list of values which are arranged as the order of a single-dimension array to be created.

Returns

Returns a Variant containing a zero-based one-dimensional array from a given comma-delimited list of values by arranging the elements of the ordered list as members of the array.

Special returns of Array function:

arglistUBoundreturn valueNull-1Variant of an array with a Null elementEmpty-1Variant of an array with a Empty element""0Variant of an array with a "" element -1Variant of an zero length array

Remarks

  • The Array function is used to create zero-based single-dimension arrays.
  • A comma-delimited list of values of arglist argument is used as the ordered elements of a single-dimension array.
  • If no arguments are specified, an array of zero length is created.
  • An element of an array is denoted by the variable name of the array followed by parentheses containing the corresponding index number.
  • A variable that is not declared as an array can still contain an array. Although a Variant variable containing an array is conceptually different from an array variable containing Variant elements, the array elements are accessed in the same way.

Requirement

2

Examples

Examples of Array function

ASP VbScript Command:
<script runat="server" language="VBScript">
Function cmda1:cmda1="Array("&str&")":End Function
Dim vars,str,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=Null":dsp_x
vars="str=Empty":dsp_x
vars="str=""""":dsp_x
vars="str=""""""""""""":dsp_x
vars="str=1":dsp_x
vars="str=""1""":dsp_x
vars="str=""1,2""":dsp_x
vars="str=""a""":dsp_x
vars="str=""a,b""":dsp_x
vars="str=""""""a"""",""""b""""""":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=Null[], Null[Array()], String[], Variant()str=Empty[], Empty[Array()], String[], Variant()str=""[], String[Array()], String[], Variant()str=""""""[""], String[Array("")], String[""], Variant()str=1[1], Integer[Array(1)], String['1'], Variant()str="1"[1], String[Array(1)], String['1'], Variant()str="1,2"[1,2], String[Array(1,2)], String['1' '2'], Variant()str="a"[a], String[Array(a)], String["9/30/2017"], Variant()str="a,b"[a,b], String[Array(a,b)], String["9/30/2017" "3/27/2019"], Variant()str="""a"",""b"""["a","b"], String[Array("a","b")], String["a" "b"], Variant()

Split Function

last updated 9/16/2017

Create a zero-based one-dimensional array from a given expression by breaking the string of the given expression from the beginning to the end into a list of ordered substring elements which is then arranged as members of the array.

Syntax

Split(expression[, delimiter[, count[, compare]]])

Argument

expressionRequired. String expression containing substrings and delimiters. If expression is a zero-length string, Split returns an empty array, that is, an array with no elements and no data.delimiterOptional. String used to identify substring limits. If omitted, the space character (" ") is assumed to be the delimiter. If delimiter is a zero-length string, a single-element array containing the entire expression string is returned.countOptional. Number of substrings to be returned; -1 indicates that all substrings are returned. If omitted, all substrings are returned.compareOptional. Numeric value indicating the kind of comparison to use when evaluating substrings. See Settings section for values. If omitted, a binary comparison is performed.

Settings

compare argument

vbConstantValueConstantvbBinaryCompare0Perform a binary comparison.vbTextCompare1Perform a textual comparison.

Returns

Returns a Variant containing a zero-based one-dimensional array obtained from a given expression by breaking the string of the given expression from the beginning to the end into a list of ordered substring elements which is then arranged as members of the array.

Special returns of Array function:

expressiondelimitercountcomparereturn valueNullAnyAnyAnyRun-time errorEmptyNilNilNilVariant of a zero length array""NilNilNilVariant of a zero length arrayAnyNullAnyAnyRun-time error∈{Empty ""}∈{Empty ""}NilNilVariant of an array with one "" element∈{Empty ""}∉{Null Empty ""}NilNilVariant of a zero length array∉{Null Empty ""}∈{Empty ""}NilNilVariant of an array with one element containing expressionAnyAny∈{Null <-1}AnyRun-time error∈{Empty ""}∈{Empty ""}≥-1NilVariant of an array with one "" element∈{Empty ""}∉{Null Empty ""}≥-1NilVariant of a zero length arrayValidValid0NilVariant of a zero length array

Remarks

  • The Split function always returns a zero-based, one-dimensional array containing a specified number of substrings.
  • If expression contains Null, Split function returns Run-time error.
  • If delimiter argument is omitted, a space character (" ") is used as the default delimiter value.
  • If both expression and delimiter contain Empty, or "", Split function returns an array with one "" element.
  • If expression contains Empty, or "", and delimiter does not constain Null, Empty, or "", Split function returns a zero-length array, an empty array with no element and no data.
  • If expression does not constain Null, Empty, or "", and delimiter contains Empty, or "", Split function returns an array with one element containing expression.
  • If a "delimiter' which is not equal to Null, Empty, or "", is located at the beginning or the end of the given expresseion, One extra zero-length, "", element will be returned before the first element or after the last element correspondingly.
  • If count argument is omitted, -1 is used as the default count value which means to split all possible substrings.
  • If count contains Null or count is less than -1, Split function returns Run-time error.
  • If both expression and delimiter contain Empty, or "", and count is greater than or equal to -1, Split function returns an array with one "" element.
  • If expression contains Empty, or "", delimiter does not contain Null, Empty, or "", and count is greater than or equal to -1, Split function returns a zero-length array.
  • If count argument is specified, Split function can only split the given expression to the maximum count of substrings out of all possible seperation starting from the beginning of the expression to the end.
  • However, if count argument is equal to 0 and other arguments are valid, Split can only return a zero length array.
  • If compare argument is omitted, 0 is used as the default compare value which means to perform a binary comparison with two compared strings are exactly the same.
  • If compare argument is specified as 1, Split function will to perform a textual comparison with the uppercase and lowercase of a character in two compared strings are assumed as the same characters.

Requirement

2

Examples

Examples of split function

ASP VbScript Command:
<script runat="server" language="VBScript">
Function cmda1:cmda1="Split(str,dlt,cnt,cmp)":cmda1=Left(cmda1,Len(cmda1)-4*(4-x)-1)&")":End Function
Dim vars,str,dlt,cnt,cmp,x,cmda,var:var=0
cmda=array("str","Eval(""cmda1"")","Eval(cmda1)","Ubound(Eval(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=Empty":x=1:dsp_x
vars="str=""""":dsp_x
vars="str="" """:dsp_x
vars="str=""  """:dsp_x
vars="str=""   """:dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla""":dsp_x
vars="str=""abcdefghijkl:abcdefghijkl ABCDEFGHIJKL:abcdefghijkla""":dsp_x
vars="str=Empty:dlt=Empty":x=2:dsp_x
vars="str="""":dlt=Empty":dsp_x
vars="str=Empty:dlt=""""":dsp_x
vars="str="""":dlt=""""":dsp_x
vars="str=Empty:dlt=""a""":dsp_x
vars="str="""":dlt=""a""":dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=Empty":dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=""""":dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=""a""":dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=""a"":cnt=-1":x=3:dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=""b"":cnt=0":dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=""b"":cnt=1":dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=""b"":cnt=2":dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=""b"":cnt=3":dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=""b"":cnt=9":dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=""b"":cnt=-1:cmp=0":x=4:dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=""b"":cnt=-1:cmp=1":dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=""B"":cnt=-1:cmp=0":dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=""B"":cnt=-1:cmp=1":dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=""l:A"":cnt=-1:cmp=0":dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=""L:a"":cnt=-1:cmp=0":dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=""l:A"":cnt=-1:cmp=1":dsp_x
vars="str=""abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"":dlt=""L:a"":cnt=-1:cmp=1":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), TypeNameUbound(Eval(Eval("cmda1"))), TypeNamestr=Empty[], Empty[Split(str)], String[], Variant()[-1], Longstr=""[], String[Split(str)], String[], Variant()[-1], Longstr=" "[ ], String[Split(str)], String["" ""], Variant()[1], Longstr="  "[  ], String[Split(str)], String["" "" ""], Variant()[2], Longstr="   "[   ], String[Split(str)], String["" "" "" ""], Variant()[3], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str)], String["abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"], Variant()[0], Longstr="abcdefghijkl:abcdefghijkl ABCDEFGHIJKL:abcdefghijkla"[abcdefghijkl:abcdefghijkl ABCDEFGHIJKL:abcdefghijkla], String[Split(str)], String["abcdefghijkl:abcdefghijkl" "ABCDEFGHIJKL:abcdefghijkla"], Variant()[1], Longstr=Empty:dlt=Empty[], Empty[Split(str,dlt)], String[""], Variant()[0], Longstr="":dlt=Empty[], String[Split(str,dlt)], String[""], Variant()[0], Longstr=Empty:dlt=""[], Empty[Split(str,dlt)], String[""], Variant()[0], Longstr="":dlt=""[], String[Split(str,dlt)], String[""], Variant()[0], Longstr=Empty:dlt="a"[], Empty[Split(str,dlt)], String[], Variant()[-1], Longstr="":dlt="a"[], String[Split(str,dlt)], String[], Variant()[-1], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt=Empty[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt)], String["abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"], Variant()[0], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt=""[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt)], String["abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"], Variant()[0], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt="a"[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt)], String["" "bcdefghijkl:" "bcdefghijkl:ABCDEFGHIJKL:" "bcdefghijkl" ""], Variant()[4], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt="a":cnt=-1[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt,cnt)], String["" "bcdefghijkl:" "bcdefghijkl:ABCDEFGHIJKL:" "bcdefghijkl" ""], Variant()[4], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt="b":cnt=0[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt,cnt)], String[], Variant()[-1], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt="b":cnt=1[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt,cnt)], String["abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"], Variant()[0], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt="b":cnt=2[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt,cnt)], String["a" "cdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla"], Variant()[1], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt="b":cnt=3[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt,cnt)], String["a" "cdefghijkl:a" "cdefghijkl:ABCDEFGHIJKL:abcdefghijkla"], Variant()[2], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt="b":cnt=9[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt,cnt)], String["a" "cdefghijkl:a" "cdefghijkl:ABCDEFGHIJKL:a" "cdefghijkla"], Variant()[3], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt="b":cnt=-1:cmp=0[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt,cnt,cmp)], String["a" "cdefghijkl:a" "cdefghijkl:ABCDEFGHIJKL:a" "cdefghijkla"], Variant()[3], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt="b":cnt=-1:cmp=1[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt,cnt,cmp)], String["a" "cdefghijkl:a" "cdefghijkl:A" "CDEFGHIJKL:a" "cdefghijkla"], Variant()[4], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt="B":cnt=-1:cmp=0[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt,cnt,cmp)], String["abcdefghijkl:abcdefghijkl:A" "CDEFGHIJKL:abcdefghijkla"], Variant()[1], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt="B":cnt=-1:cmp=1[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt,cnt,cmp)], String["a" "cdefghijkl:a" "cdefghijkl:A" "CDEFGHIJKL:a" "cdefghijkla"], Variant()[4], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt="l:A":cnt=-1:cmp=0[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt,cnt,cmp)], String["abcdefghijkl:abcdefghijk" "BCDEFGHIJKL:abcdefghijkla"], Variant()[1], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt="L:a":cnt=-1:cmp=0[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt,cnt,cmp)], String["abcdefghijkl:abcdefghijkl:ABCDEFGHIJK" "bcdefghijkla"], Variant()[1], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt="l:A":cnt=-1:cmp=1[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt,cnt,cmp)], String["abcdefghijk" "bcdefghijk" "BCDEFGHIJK" "bcdefghijkla"], Variant()[3], Longstr="abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla":dlt="L:a":cnt=-1:cmp=1[abcdefghijkl:abcdefghijkl:ABCDEFGHIJKL:abcdefghijkla], String[Split(str,dlt,cnt,cmp)], String["abcdefghijk" "bcdefghijk" "BCDEFGHIJK" "bcdefghijkla"], Variant()[3], Long

Sources

Sideway BICK Blog

07/09


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