«前の日記(2009-11-17) 最新 次の日記(2009-11-20)» 編集

会長@腹部日記


2009-11-19 [長年日記]

_ VBScript大嫌い

あまりにもむごいので、配列同士をzipする関数を作ろうと・・・

 Function zipArray(array1, array2)
   zipArray = Null
   Dim zippedArray
   Dim array1Element
   Dim array1Count
   For Each array1Element in array1
     Dim miniArray
     miniArray = Array(1)
     miniArray(0) = array1Element
     miniArray(1) = array2(array1Count)
     # ここで面倒と思い始める
     # 配列の長さあってなかったら・・・と思うとさらに面倒になる
     array1Count = array1Count + 1
   Next
 End Fuction

結局ループだらけのコードになりました。

_ きょうのつぶやき : 102回