ファイル名: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で質問しましょう!
似たような質問が見つかりました
- UNIX・Linux テキストファイルをページ番号付きでコマンドラインから印刷したい 1 2023/02/22 12:47
- Visual Basic(VBA) excelにて、特定の列に数字入力してあれば、入力してある行コピーして 別ファイルに張り付ける 2 2022/08/11 05:33
- Visual Basic(VBA) 以下のVBAで該当文字列の前後に付与したい。 例 前に付与 abc ユーザーID 12345 後に付 3 2022/04/19 21:50
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Visual Basic(VBA) エクセルの数式で教えてください。 1 2023/07/31 15:49
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Excel(エクセル) 名前と日付が一致する箇所にフラグを立てる関数が知りたいです 4 2022/08/11 02:24
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
- 数学 登録番号と年月日と時間から作成した数字列を出来る限り小さくする方法 7 2022/06/03 16:10
- Excel(エクセル) <スプレッドシート>IF関数の複数条件について 5 2022/10/27 14:38
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
1本あたり○円と表示する時どの...
-
DataGridViewでyyyy/MM/dd
-
ユーザーフォームのラベルに日...
-
エクセルのVBAで日付を検索し転...
-
VB6.0 のformat関数について
-
VisualBasic6.0のFormat関数で...
-
システム日付とは?
-
Eclipseの対応する括弧の強調表...
-
Excel VBA で入社日から今日迄...
-
エクセルVBAで機械の稼働時間を...
-
今日より前の書き方 マクロ
-
JSPからYYYYMMDDで日付入力する
-
3人のじゃんけんのプログラム
-
【VBA】土日をスキップして日付...
-
「eclipseで作るカレンダー(ス...
-
C++BuilderでCCalendarを使用...
-
VB.net 登録されている日付の連...
-
DateTimePickerを西暦表示にす...
-
ページのタイトルに日付を表示...
-
VBAのオーバーフローについて質...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
エクセルのVBAで日付を検索し転...
-
Eclipseの対応する括弧の強調表...
-
DataGridViewでyyyy/MM/dd
-
VisualBasic6.0のFormat関数で...
-
JSPからYYYYMMDDで日付入力する
-
今日より前の書き方 マクロ
-
3人のじゃんけんのプログラム
-
システム日付とは?
-
【Excel VBA】条件に合った行の...
-
【VBA】土日をスキップして日付...
-
VBA 日付、未来の日付はエラー...
-
VBAで当月の1日を表示するには...
-
「eclipseで作るカレンダー(ス...
-
VBAの質問になります 行の非表示
-
VB 日付範囲チェック
-
コンボボックスに日付を表示する
-
テキストボックスにカレンダー...
-
指定した日付が、その月の第何...
-
DataGridViewの和暦表示について
おすすめ情報