VB2010で正規表現

http://www.jtw.zaq.ne.jp/animesong/a/index.html
↑のソースから正規表現を使って
アークエとガッチンポー てんこもり
アーケードゲーマーふぶき
等を抽出したのです。
教えてください。

No.2 ベストアンサー 回答者： n-jun 回答日時： 2013/11/27 22:23

Ｎｏ．１です。

＞TextBox2に出力するにはどうしたら良いですか?

TextBox2.AppendText(m.Result("${moji}") + ControlChars.CrLf) 'テキストボックス２に出力

こちらに変更してみてください。

この回答へのお礼

無事動きました。

お礼日時：2013/11/27 22:59

No.1 回答者： n-jun 回答日時： 2013/11/27 19:29

ソースの取得が出来ているとして

検証ではソースはテキストボックス１に
あると仮定してます。

Imports System.Text.RegularExpressions '追加

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim st As String = TextBox1.Text 'テキストボックスにソースがあると仮定
Dim re As New Regex("href=""[a-zA-Z0-9]+/index.html"">(?<moji>[^<]+)</A>")

Dim m As Match = re.Match(st)

While m.Success
Debug.Print(m.Result("${moji}")) 'イミディエイトウィンドウに出力
m = m.NextMatch()
End While

End Sub
End Class

この回答への補足

イミディエイトウィンドウではなくTextBox2に出力するにはどうしたら良いですか?

補足日時：2013/11/27 21:09

この回答へのお礼

ありがとうございます。

お礼日時：2013/11/27 22:59