ファイル名:test.txt
内 容 :日付 数字 数字 数字 数字 数字
日付 数字 数字 数字 数字 数字
・
・
(1)日付も090106のような数字で全て数値です。
(2)1年分250行です。
(3)全ての日付や数字の間はスペースで最後の数字で改行です。
VBSでこのテキストファイルを読み込み2次元配列に入れて、
例えば6月10日(日付が090610)の行とその次の日の行の2行を
表示するには、どのようなコードになりますか?
すいません、プログラマー学習でないためできればコードを
教えていただきたいです。宜しくお願いします。
No.2ベストアンサー
- 回答日時:
>プログラマー学習でない・・・
ですね
>If Left(v(i), 6) = Right(Replace(FormatDateTime("2009/6/10", 2), "/", ""),6) Then
↓
If Left(v(i), 6) = "090610" Then
遅れましてすいません。
やってみましたが、うまくいきませんでした。
ご回答を参考に、もう少し調べてみたいとおもいます。
どうもありがとうございました。
No.1
- 回答日時:
参考に
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
3人のじゃんけんのプログラム
-
テキストボックスにカレンダー...
-
VB 日付範囲チェック
-
DataGridViewでyyyy/MM/dd
-
テキストボックスに今日の日付...
-
1本あたり○円と表示する時どの...
-
今日より前の書き方 マクロ
-
C#で日付をdateTimePickerに読...
-
TRANSFORM
-
システム日付とは?
-
このコードの処理を説明して頂...
-
【Excel VBA】条件に合った行の...
-
MonthView 日付取得方法
-
VB6で時刻の範囲に入っているか...
-
VBAで当月の1日を表示するには...
-
VB.net 登録されている日付の連...
-
htmlで日付表示。三日後の日付...
-
Eclipseの対応する括弧の強調表...
-
経過時間を表示したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
DataGridViewでyyyy/MM/dd
-
VisualBasic6.0のFormat関数で...
-
Eclipseの対応する括弧の強調表...
-
エクセルのVBAで日付を検索し転...
-
特定の項目セルにスキャン(入...
-
テキストボックスにカレンダー...
-
VBA 日付、未来の日付はエラー...
-
今日より前の書き方 マクロ
-
コンボボックスに日付を表示する
-
システム日付とは?
-
【VBA】土日をスキップして日付...
-
3人のじゃんけんのプログラム
-
指定した日付が、その月の第何...
-
1本あたり○円と表示する時どの...
-
VB6.0 のformat関数について
-
VBAで当月の1日を表示するには...
-
テキストボックスに今日の日付...
-
VB 日付範囲チェック
-
【Excel VBA】条件に合った行の...
おすすめ情報