文字列のURL部分（http://xxxxx/)の取り出し方を教えてください。

Dim stContent As String = "<p><iframe width="480" height="270" src="https://********d" frameborder="0" allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen></iframe></p>"

お世話になります。
上記コードで、
Vb.netで"https://xxxxxxxxxxd"部分だけを抽出するよい方法はありますでしょうか。

Substring
IndexOf

や他のメソッド、プロパティを、色々試行錯誤してましたが、

HTML
1src=""

前後の文字列の長さも可変なため、
URL部分だけを取り出すには、どうすればいいのかが全然わからなくなりました。

参考ですが、
URLの正規表現は、

http(s)?://([\w-]+.)+[\w-]+(/[\w- ./?%&=]*)?

こちらで正しいかを判定できるようです。

x_x

2018/11/20 04:43

C#は関係あるのでしょうか？

行動規範の内容に同意します

回答4件

ベストアンサー

正規表現で次のようにして取り出すのが簡単です。

VB
1Dim stContent As String = "<p><iframe width=""480"" height=""270"" src=""https://********d"" frameborder=""0"" allow=""accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture"" allowfullscreen></iframe></p>"
2Dim match = Regex.Match(stContent, "src=""([^""]*)""")
3MessageBox.Show(match.Groups(1).Value)

投稿2018/11/18 08:22

Zuishin

総合スコア28675

rara

2018/11/29 11:32

今VSで試してみたところ、ちゃんとこちらのコードでメッセージが表示されました。すごいです。ありがとうございます。

行動規範の内容に同意します

substringでわからないというのが分からないですし、substringで分からないからといって正規表現っていうのも分からないです。

こういう風にすればsubstringで取れるのでは？

vb
1	    DIM str = "<p><iframe width=""480"" height=""270"" src=""https://********d"" frameborder=""0"" allow=""accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture"" allowfullscreen></iframe></p>"
2    	DIM start = str.IndexOf("src=""") + 5
3		DIM tail = str.IndexOf(""" ", start)
4		Console.WriteLine (str.Substring(start, tail - start))

あとxml妥当である必要はありますが(今回のだとallowfullscreenがダメなので一部書き変えてます)、LinqToXmlでやるのがいいのでは？
(sgmlreaderとかをつかうと安全にhtmlからxmlになりそうな気がする)

vb
1		DIM htmlStr =  "<p><iframe width=""480"" height=""270"" src=""https://********d"" frameborder=""0"" allow=""accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture; fullscreen""></iframe></p>"
2		Dim doc As XDocument = XDocument.Parse(htmlStr)
3		Dim url = doc.Descendants().First(Function(x) x.Attributes().Any(Function(a) a.Name = "src") ).Attribute("src").Value
4		Console.WriteLine(url)
5