ＶＢ.6.0でメールアドレス部分。

質問

ＶＢ6.0、お世話になっています^^
ＶＢ久々の質問です！

メールアドレス　****＠***.**
を色々書いているtxtファイルから抜き出してtxtファイルに再度保存しようと考えています。

保存等は分かりますが、メールアドレス部分はどのようにtxtファイルより抜き出したら良いものかと思っています。よろしくお願いいたします。

回答No.2

SpiralGalaxy · ベストアンサー

まさに正規表現を使う場面でしょう（＾＾；

正規表現のリンクとＶＢでの正規表現モジュール見つけたのでリンクはっておきます。ボクはＶＢプログラマではないので紹介したやつがどうなのかはわかりません（オイオイ）

http://www2.famille.ne.jp/~akio1998/l_grep.html
http://www.vector.co.jp/soft/win95/prog/se104024.html

参考URL：

http://www2.famille.ne.jp/~akio1998/l_grep.html,http://www.vector.co.jp/soft/win95/prog/se104024.html

回答No.1

noname#6131

そうですねえ、、
メールアドレスの前後は、空白か、アドレスとして使用しない文字(漢字とか)があるはずですので、

1.メールアドレスとして使用できる文字が見つかったら、そこを仮の先頭位置とする
2."@"が見つかったら、その手前までをユーザ名とする。"@"が見つかる前に改行や使用できない文字が見つかったら、1.からやり直す
3."@"以降、メールアドレスとして使用できる文字をドメイン名とする

を繰り返せば、メールアドレスを抜き出せるはず、です。

処理内容からすると、スクリプトのような感じですよね。
VB6にこだわらなければ、VBScriptで正規表現オブジェクトを使うとラクだと思います。文法VBと同じですし。

参考URL：

http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/vtoriVBScript.asp