logファイルから任意の文字を取り出すには？

解決

アーク 2005-11-02 22:33:04 No: 127257

2005/09/06 17:12:56 BGID=199999999処理開始
2005/09/06 17:12:56 BGID=199999999処理完了
2005/09/06 17:13:18 BGID=188888888処理開始
2005/09/06 17:13:18 ERROR!! BGID=188888888は存在します。処理を中断しました。

上記のファイルからBGID=以降の９桁の数字だけ変数に取り出すにはどうすればよいですか？

あん 2005-11-02 22:53:44 No: 127258

一行の処理はこんな感じ

Set ex = CreateObject("VBScript.RegExp")

ex.Pattern = "(^.*)(BGID=)(.........)(.*$)"
If ex.Test(L) = True Then
ID = ex.Replace(L, "$3")
End If

ファイル読み込みを追加してね

アーク 2005-11-02 23:08:48 No: 127259

ありがとうございます。
動的配列を使って全部の行から取るにはどうすればよいのですか？

アーク 2005-11-02 23:36:57 No: 127260

すいません。ファイル読み込みの方法も教えていただけませんか？
C:\WINDOWS\ABC.logファイルから読み込むためには
Set objBGID = ex.openlogfile("C:\WINDOWS\ABC.log")
ではいけなのですか？

Blue 2005-11-03 00:18:06 No: 127261

Regular Expression オブジェクトのプロパティとメソッド
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/vsobjRegExp.asp

> openlogfile
このようなメソッドはないです。

Openステートメントや
FileSystemObject オブジェクトを調べてみてください。

あん 2005-11-03 00:41:06 No: 127262

>すいません。ファイル読み込みの方法も教えていただけませんか？
こんなことを言う人がなぜＶＢでプログラムをやろうとしてるのか
疑問に思います。

z 2005-11-03 01:05:13 No: 127263

＞あんさん
仕事なんでしょう。

あん 2005-11-03 01:29:57 No: 127264

>仕事なんでしょう。
仕事ならなおさら転職をおすすめします。

アーク 2005-11-03 01:33:10 No: 127265

そのとりです。
仕事なんです・・・
今までずっと受付嬢をやっていたのですが急に開発にまわされてしまったのです。VB初めてなのに期限が短くて急いでたのですいません。
自分でもう少し勉強してみます。

dark 2005-11-03 01:45:20 No: 127266

> VB初めてなのに期限が短くて
ひどい会社だな。品質ワルソー。

アーク 2005-11-03 01:51:23 No: 127267

見つかりました。ありがとうございました。