番組テーブルTablehが配列になっている。とても面倒だ。
arrayに注目すると1次元配列ができると書いてある。でも中身はvarなのでそのなかにarrayをいれるのはありのはず。
dim B
B = array(array(“1″,”2″,”3”,0),array(“4″,”5″,”6”,1),array(“7″,”8″,”9”,2))
msgbox B(0)(0)
msgbox B(0)(1)
msgbox B(0)(2)
msgbox B(0)(3)
msgbox B(1)(0)
msgbox B(1)(1)
msgbox B(1)(2)
msgbox B(2)(0)
msgbox B(2)(1)
msgbox B(2)(2)
msgbox B(2)(3)
で実行するとなんかメッセージがでる。いけそうか?
で、早速Tableの値をぶっこむ
B = array( _
array(“ワンピース” ,””,”【”,3), _
array(“マッサン” ,””,””,3), _
array(“ふるさと再生 日本の昔ばなし” ,””,””,3), _
array(“FAIRY TAIL ~フェアリーテイル~”,””,””,3), _
array(“金曜ロードSHOW!” ,”映画 “,””,0), _
array(“ドラゴンボール改”, ,””,”【”,0), _
array(“”, ,””,””,0) _
)
dim s
s = B(4)
msgbox s(0) & s(1) & s(2) & s(3)
msgbox B(0)(0)
msgbox B(0)(1)
msgbox B(0)(2)
msgbox B(0)(3)
msgbox B(1)(0)
msgbox B(1)(1)
msgbox B(1)(2)
msgbox B(2)(0)
msgbox B(2)(1)
msgbox B(2)(2)
msgbox B(2)(3)
msgbox B(3)(0)
msgbox B(3)(1)
msgbox B(3)(2)
msgbox B(3)(3)
msgbox B(4)(0)
msgbox B(4)(1)
msgbox B(4)(2)
msgbox B(4)(3)
今度はうごかない。なーーーーーぜーーーーーー?
あー、カンマがよぶんだ。
Nullがはいっている。
では直すと行けるか?
行けた!
あとでまた(rename).vbsをarrayにしてあげとく。