VBSでＴＸＴファイルを配列に格納し表示

ファイル名：test.txt
　内　容　：日付　数字　数字　数字　数字　数字
　　　　　　　日付　数字　数字　数字　数字　数字
　　　　　　　　　　　　　・
　　　　　　　　　　　　　・
(1)日付も090106のような数字で全て数値です。
(2)1年分２５０行です。
(3)全ての日付や数字の間はスペースで最後の数字で改行です。

ＶＢＳでこのテキストファイルを読み込み２次元配列に入れて、
例えば6月10日（日付が090610）の行とその次の日の行の2行を
表示するには、どのようなコードになりますか？

すいません、プログラマー学習でないためできればコードを
教えていただきたいです。宜しくお願いします。

No.2 ベストアンサー 回答者： watabe007 回答日時： 2010/03/20 20:59

>プログラマー学習でない・・・

ですね
>If Left(v(i), 6) = Right(Replace(FormatDateTime("2009/6/10", 2), "/", ""),6) Then
　　　↓
If Left(v(i), 6) = "090610" Then

この回答へのお礼

遅れましてすいません。
やってみましたが、うまくいきませんでした。
ご回答を参考に、もう少し調べてみたいとおもいます。
どうもありがとうございました。

お礼日時：2010/03/26 04:38

No.1 回答者： watabe007 回答日時： 2010/03/20 20:54

参考に

Dim FSO, buf
Dim v,vv
Dim i, j, k

Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.OpenTextFile("J:\Test.txt")
buf = .ReadAll
.Close
End With
v = Split(buf, vbCrLf)
For i = LBound(v) To UBound(v)
If Left(v(i), 6) = Right(Replace(FormatDateTime("2009/6/10", 2), "/", ""),6) Then
For j = i To i + 1
vv = Split(v(j), " ")
For k = LBound(vv) To UBound(vv)
MsgBox vv(k)
Next
Next
Exit For
End If
Next
Set FSO = Nothing