Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11171 / 13646 ツリー ←次へ | 前へ→

【17725】多量・大容量のテキストファイルの扱いに... ぴよ@初心者 04/9/6(月) 16:57 質問[未読]
【17726】Re:多量・大容量のテキストファイルの扱い... ちゃっぴ 04/9/6(月) 17:12 回答[未読]
【17727】Re:多量・大容量のテキストファイルの扱い... ぴよ@初心者 04/9/6(月) 17:26 お礼[未読]

【17725】多量・大容量のテキストファイルの扱いに...
質問  ぴよ@初心者  - 04/9/6(月) 16:57 -

引用なし
パスワード
   お初にお目にかかります。ぴよ。です。
いつも質問箱を参考にさせていただいております。

行詰ってしまいましたので、是非アドバイスをお願いしたく
初投稿させていただきました。

■やりたいこと
テキストファイルの中の必要な行だけ抜き取ってエクセルに貼り付けたい。
必要な行は、自分で文字指定し、その一行を抜き取りたい。

■対象のテキストファイルについて
1つのフォルダに入っています。
そのテキストファイルは複数あり、
15Mくらいのボリュームのあるものから100kくらいのものまであります。

■今まで
テキストをエクセルにし、そこから文字を検索していました。
(シートが足りない場合はシート追加をして書き込みをさせています。)
開いたテキストファイル名にxlsを付けて保存し、それが終わったら
また次のテキストをエクセルにし…、と繰り返しのマクロを組んでみました。

ですが、15M以上あるファイルがネックとなってしまい動作に支障をきたしてしまい
困っています。
(利用しているPCの容量が足りないみたいなのです。。。)

その為、テキストファイルから必要な行だけをエクセルへ抜き取る作業に変更したいと
考えています。
可能でしょうか?
もし、可能であれば、大変あつかましいのですが、
「例えば」をご教授いただけますでしょうか。

■ファイルの内容は以下のようなものです。
(複数のテキストファイルが存在しますが、内容は似ており、数字が少し違うくらいです。)

↓↓ファイルの内容↓↓
2004/01/31  23:12:10  123  69
   : 
2004/02/03  00:12:10  215  579  
2004/02/03  00:12:10  222  951 
2004/02/03  00:12:10  123  0 
2004/02/03  01:01:55  222  458 
2004/02/03  01:01:55  123  0 
   :
2004/02/09  00:12:10  523  689 
2004/02/09  00:12:10  123  49 
   :

■エクセルの希望完成図
日付「2004/02/*」のなかで番号「123」を含む文字列だけを抜き出したい。
(日付は「2004/01/*」を指定したい場合や、番号「222」を指定したい場合もあります。)

↓↓希望↓↓
2004/02/03  00:12:10  123  0 
2004/02/03  01:01:55  123  0 
   :
2004/02/09  00:12:10  123  49 
   :


以上
説明が長い割りには分かりにく申し訳ありません。
よろしくお願いいたします。

【17726】Re:多量・大容量のテキストファイルの扱...
回答  ちゃっぴ  - 04/9/6(月) 17:12 -

引用なし
パスワード
   別にVBAでやってもいいですが、このくらいのことなら
コマンドプロンプトのFINDSTRコマンドを使用すれば
簡単に抽出可能です。

コマンドプロンプトで下記を実行してみてください。
(Batファイルでもいいですけど・・・)

FINDSTR /B "2004/02.123." "検索するテキストパス" > "出力先テキストパス"

あとは、普通にExcelに取り込めばいいだけです。
下手にVBAでやるよりよっぽど速い・・・かも?

【17727】Re:多量・大容量のテキストファイルの扱...
お礼  ぴよ@初心者  - 04/9/6(月) 17:26 -

引用なし
パスワード
   ぴよ。です。

ちゃっぴさん、早速の回答ありがとうございます!!

なるほど、コマンドプロンプトという手があるのですね…。( ..)φ
ディレクトリの移動は>cdですよね。
一度やってみます!!

11171 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free