プロが教えるわが家の防犯対策術!

すみません。困ってます。
放置していたアクセスログが7GBたまっていまして、何とかダウンロードし、何とか解凍し、テキストファイルにまではしたのですが、
さてそこからそのデータを開くということで行き詰ってます。
おそらく大変な行数の状態なのだと思います。

なんとか開いて、削って使いたいのですが・・・

よろしくお願いします。

A 回答 (3件)

myFILE = "C:\Work\Sample.txt"


Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.GetFile(myFILE).OpenAsTextStream(8)
MsgBox "総行数は " & .Line & "行です"
.Close
End With
Set FSO = Nothing

もしこれが動くなら データが何行あるかわかります
最後の1000行を取り出す ということも可能です
    • good
    • 0

http://www.happy2-island.com/vbs/cafe02/capter00 …
http://www.officetanaka.net/excel/vba/filesystem …

もし下記のものが表示されたら 方法があります
テストしてみてください
下記の文を コピーして メモ帳に貼り付けて
最初に指定している TXTの名前と場所 フルパスを修正して
test.vbs という名前でデスクトップに保存してください
これを開くと 内容が1件だけ表示されて終了します


myFILE = "C:\Work\Sample.txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.GetFile(myFILE).OpenAsTextStream
Msgbox .ReadLine
.Close
End With
Set FSO = Nothing


何行ごとに区切るか とか
不要なデータはあるか とか
どのようにけずるのか 条件を教えてください
タブ区切りで 2列目に日付(yyyy/mm/dd)があるので 
10/20以前を全て削除 など
    • good
    • 0

自分で試したことがありませんので、できる保障はありませんが…


1.巨大ファイルを扱えるテキストエディタを探す。
2.ファイルの分割ソフトなどを使って、細切れにしてテキストエディタで開く。
などの方法はいかがでしょう?

お使いのOSがWindowsでしたら、たとえば、
1.http://www.vector.co.jp/soft/win95/writing/se236 …
2.http://www.forest.impress.co.jp/lib/sys/file/fil …
などのソフトでうまくいくかもしれません。
    • good
    • 0
この回答へのお礼

お礼遅くなり申し訳ございません。
早々にご案内ありがとうございます。
ちょっと巨大すぎて対応はできませんでした。。。

お礼日時:2007/11/09 12:45

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!