[リストへもどる]
一括表示
投稿時間：2003/09/09(Tue) 14:47
投稿者名：のり
Ｅメール：
ＵＲＬ　：
タイトル：正規表現でできるのでしょうか
HTMLのタグの文字列から画像のリンクだけ取り出したいのですが
どうすれば良いのでしょうか
httpから始まり.jpgまでを抜き取りたいのです

例）
str='<TD><IMG height=300 src="http://www.hoge/○○.jpg" width=400 border=0 name=image1></td>'

strからhttp://www.hoge/○○.jpgだけを抜き出す

投稿時間：2003/09/09(Tue) 15:23
投稿者名：Kiyuzou
Ｅメール：
ＵＲＬ　：
タイトル：InStr関数で
> HTMLのタグの文字列から画像のリンクだけ取り出したいのですが
> どうすれば良いのでしょうか
> httpから始まり.jpgまでを抜き取りたいのです

InStr関数を使うのはどうでしょうか？

Dim lngURLStart as Long
Dim lngURLEnd as Long
Dim strURL as String

lngURLStart = InStr(1,str,"http")
lngURLEnd = InStr(1,str,".jpg")
strURL = Mid(str,lngURLStart,(lngURLEnd-lngURLStart) + Len(".jpg"))

こんなんでどうですか？？

投稿時間：2003/09/09(Tue) 15:44
投稿者名：のり
Ｅメール：
ＵＲＬ　：
タイトル：Re: InStr関数で
ありがとうございます。
自分の中で正規表現しか頭にありませんでした。

投稿時間：2003/09/09(Tue) 16:51
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: InStr関数で
VBからInternetExplorerを使ってIMG タグを取得して　"src"　の値を見れば
http://www.bcap.co.jp/hanafusa/ypcs/to_basyo.jpg　こういった形で取得できます。

Instr関数で取得するにしてもまず、タグ内のデータだけを取得してから

lngURLStart = InStr(1,str,"http")
lngURLEnd = InStr(1,str,".jpg")

このようにしないととんでもないものが取得できてしまいます。
又、ソースファイルから取得する場合、http から始らずにファイル名だけの場合が
多いかと思うのですが？。