VBS配列関数学習の実例分析

7370 ワード

VBS 行列関数

Aray関数
配列を含むVarantを返します。
Aray(arglist)
パラメータ：arglistは、Variantに含まれる配列要素の値を付与するリストです。このパラメータが指定されていない場合、ゼロの長さの配列が作成されます。
説明：配列要素を参照するための表示符は、括弧を付随する変数名からなり、括弧には必要な要素を示す索引番号が含まれています。
次の例では、最初のステートメントはAという変数を作成します。第二条ステートメントは、変数Aに配列値を割り当てます。最後のステートメントは、2番目の配列要素に含まれる値を他の変数に割り当てます。


arr = array("t1","t2")
MsgBox arr(0)
MsgBox arr(1)

注意配列宣言として使用されていない変数は、依然として配列を含んでいます。配列を含むVarant変数はVariant要素を含む配列変数と概念的に異なるが、配列要素にアクセスする方法は同じである。
IsAray関数
Boolean値を返します。配列かどうかを指定します。
IsAray(varname)
パラメータ：varnameは任意の変数でもいいです。
説明：変数が配列であれば、IsAray関数はTrueに戻ります。そうでなければ、関数はFalseに戻ります。変数に配列が含まれている場合、IsAray関数を使うと効果的です。
以下の例は、MyVarableが配列であるか否かをIsAray関数を用いて検証する。


Dim MyVariable
Dim MyArray(3)
MyArray(0) = "Sunday"
MyArray(1) = "Monday"
MyArray(2) = "Tuesday"
MyVariable = IsArray(MyArray) ' MyVariable    "True"。

UBound関数
指定された配列次元の最大値を下付きで返します。
UBound（arrayname[，dimension]）
パラメータ：arrayname必須オプションです。配列変数名は、標準変数の命名規則に従います。
Dimensionオプションがあります。どの1次元の上界に戻る整数を指定しますか？1は1次元を表し、2は2次元を表し、これに類推する。ディメンションパラメータを省略すると、デフォルト値は1です。
説明：UBound関数はLBound関数と一緒に使用され、配列のサイズを決定します。LBound関数を使用して、配列の一次元の下界を決定できます。
すべての次元の下界は0です。このような次元の配列の場合、UBound関数は、以下の結果を返します。


Dim A(100,3,4)
      
UBound(A, 1) 100
UBound(A, 2) 3
UBound(A, 3) 4

LBound関数
指定された配列次元の最小値を下付きで返します。
LBound（arrayname[，dimension]）
パラメータ：arrayname配列変数名は、標準変数の命名規則に従います。
Dimensionは、どの1次元の下界に戻る整数を指定しますか？
1を使って1次元を表し、2は2次元を表し、これに類推する。ディメンションパラメータを省略すると、デフォルト値は1です。
説明：LBound関数はUBound関数と共に使用され、配列のサイズを決定します。UBound関数を使用すると、配列の一次元の上界を見つけることができます。どの次元の下界も0です。


arr = array("t1","t2","t3")
For i=0 To UBound(arr)-LBound(arr)
 MsgBox arr(i)
Next

Split関数
指定された数のサブ文字列を含む0次元配列を返します。
Split(expression[，delimiter[，count[，start]])
パラメータ：expression必須オプション。サブ文字列とセパレータを含む文字列表式。expressionがゼロの長さの文字列である場合、Splitは空の配列を返します。すなわち、要素とデータの配列は含まれません。
     デリミターオプションを選択します。サブ文字列の境界を識別する文字です。省略する場合は、区切り記号としてスペース(")を使用します。
                delimiterがゼロの長さの文字列であれば、expression文字列全体を含む単一の要素配列を返します。
     countオプションがあります。返されたサブ文字列の数は、-1がすべてのサブ文字列を返すことを示しています。
     Compreオプションがあります。サブ文字列の計算に使用する比較タイプの数値を示します。数値については、「設定」部分を参照してください。
設定
compareパラメータは以下の値があります。
定数値の説明
vbBinary Compare 0はバイナリ比較を実行します。
vbTextCompare 1はテキスト比較を実行します。
以下の例は、Split関数を用いて文字列から配列を返します。関数は、境界記号をテキスト比較し、すべてのサブ文字列を返します。


Dim MyString, MyArray, Msg
MyString = "VBScriptXisXfun!"
MyArray = Split(MyString, "x", -1, 1)
' MyArray(0)    "VBScript"。
' MyArray(1)    "is"。
' MyArray(2)    "fun!"。
Msg = MyArray(0) & " " & MyArray(1)
Msg = Msg & " " & MyArray(2)
MsgBox Msg

次のように


stng = "t1,t2,t3"
arr = Split(stng,",")
MsgBox arr(0)
MsgBox arr(1)
MsgBox arr(2)

ジョイン関数
配列に含まれる多くのサブ文字列接続によって作成される文字列を返します。
Join(list[，delimiter])
引数：リスト必須オプション。接続するサブ文字列の1次元配列が含まれます。
     Delimiterオプションがあります。返した文字列でサブ文字列を区切る文字です。省略すると、空の文字(")が使用されます。
     delimiterがゼロの長さの文字列であれば、同じリストにすべての項目を並べます。境界記号はありません。

以下の例は、Join関数を用いてMyArayのサブ文字列を結合する。


Dim MyString
Dim MyArray(3)
MyArray(0) = "Mr."
MyArray(1) = "John "
MyArray(2) = "Doe "
MyArray(3) = "III"
MyString = Join(MyArray) 'MyString    "Mr. John Doe III"。

次のように


arr = array("t1","t2","t3")
MsgBox Join(arr,",")

上記は主にVBS中の相関関数を紹介しましたが、実際の仕事では、いくつかの特殊な処理が頻繁に行われています。
例1：一次元配列の比較


Dim a
Dim b
a=Array(10,15,30)
b=Array(10,20,30)   
flag=1
For i=0 To UBound(a)-LBound(a)
 If a(i)=b(i) Then
  flag=1
 Else
  flag=0
  n=UBound(a)
  msgbox "  a"&n&":="&a(i)&","&"  b"&n&":="&b(i)
 End If
Next

例2：二次元配列の比較


Dim array1(1,1)
array1(0,0)=1
array1(0,1)=2
array1(1,0)=3
array1(1,1)=4
Dim array2(1,1)
array2(0,0)=1
array2(0,1)=2
array2(1,0)=4
array2(1,1)=4
   
flag=1
For i=0 To 1
 For j=0 To 1
 If array1(i,j)=array2(i,j) Then
  flag=1
  Exit for
 Else
  flag=0
  msgbox "array1"&"("&i&","&j&")"&"="&array1(i,j)&","&"array2"&"("&i&","&j&")"&"="&array2(i,j)
 End If
 Next
Next

例3：循環を使って配列にある値が含まれているかどうかを比較します。


Dim arr, i, str
arr = array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "a", "b", "c", "d", "f", "g")
str = "a"
For i = 0 To UBound(arr)
 If arr(i) = str Then
 Exit For
 end if
Next
If i <= UBound(arr) Then
 msgbox "arr   str  ！"
 Else
 msgbox "arr    str  ！"
End If

例4：関数の組み合わせを使って、配列にある値が含まれているかどうかを比較します。（最適化ロジック）


Dim arr, i, str
arr = array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "a", "b", "c", "d", "f", "g")
str = "a"
If InStr(Join(arr, "|"), str) > 0 Then
 msgbox "arr   str  ！"
 Else
 msgbox "arr    str  ！"
End If

様々な関数コマンドを活用して、多くの余分なコードを節約できます。コード構造を簡素化するだけでなく、実行効率を提供します。
例5：VBSにおける配列の関数としての戻り値


Function GenerateRandom()

 Dim myarray(2)
 Dim aa, bb, cc
 Dim myvalue, bbbase, ccbase 
 bbbase=array("Beijing", "NewYork", "Copenhagen", "Paris", "London", "Gothenborg")
 ccbase=array("China", "America", "Denmark", "Franch", "England", "Sweden")
 'Get a number contains 8 characters
 aa= Int((99999999 - 11111111+ 1) * Rnd + 11111111)
 ' Get a number between 1 to 6
 myvalue=Int((6 * Rnd) + 1)
 bb=bbbase(myvalue)
 cc=ccbase(myvalue)
 myarray(0)=CStr(aa)
 myarray(1)=bb
 myarray(2)=cc 
 GenerateRandom=myarray 
 End Function
'****************************************************
' Call the function 
Dim testarr 
testarr=GenerateRandom
msgbox testarr(0)
msgbox testarr(1) 
msgbox testarr(2)

例6：配列並べ替え


Function fSortArray(aSortThisArray)
 Dim oArrayList, iElement
 Set oArrayList = CreateObject( "System.Collections.ArrayList" )
 For iElement = 0 To UBound(aSortThisArray)
 oArrayList.Add aSortThisArray(iElement)
 Next
 oArrayList.Sort
 set fSortArray = oArrayList
End Function
 
myarray=Array(50,20,30)
MsgBox myarray(0)
MsgBox fSortArray(myarray)(0)

'CreateObject(System.Collects.ArayList)はmscore.dllを呼び出しました。