Open text For Output As #1 For t = 0 To 3 For l = 0 To 3 For c = 0 To 12 Write #1, gstrHandImg(t, l, c) Next c Next l Next t Close #1
カレントディレクトリからFileNameを読み出し、1文字ずつgstrHandImgに展開します。
FileName = File1.FileName Open FileName For Input As #1 For t = 0 To For l = 0 To 3 For c = 0 To 12 Input #1, gstrHandImg(t, l, c) Next c Next l Next t Close #1