正規表現について・・・

解決

初心者 2007-01-06 23:00:10 No: 134771

VB6.0で開発しております。
正規表現でドメインを取得したいと思っております。
メールアドレス等の取得には成功しておりますが、ドメインのみの取得がなかなか思うようにできません。
どなたかご教授頂けると助かります。
一応、URLの取得は正規表現で出来ました。

URLかどうかの判断はRegExpで取得できました。

url = "http://xxxxxxx.com/?oeiauao"

ObjUrlChk.Pattern = "http://[\w\d/%#$&?()~_.=+-]+"
Set objMatches = ObjUrlChk.Execute(url)
If objMatches.Count > 0 Then
MsgBox objMatches.Item(0)
Else
MsgBox "がおかしい"
End If

この後に
urlの中身のドメイン部分のみを取得したいと思っております。
宜しくお願い致します。

VB梅 2007-01-08 05:27:33 No: 134772

こんにちは
dim a()
a = split(url,"/")
msgbox a(2)
でいかがでしょうか？

初心者 2007-01-08 22:05:45 No: 134773

VB梅さんレス有難う御座います。

Dim a
a = Split(url, "/")
MsgBox a(2)

これで取得できました。
本当に有難う御座いました。

初心者 2007-01-08 22:06:58 No: 134774

感謝感謝ですV(^^)V