下記のようにTextBox1に入力されているとします。
そこで、'<TD><a href="main.py?qtype=userpage&teamnum=162&username=KOTOKO"> KOTOKO </a> </TD>'と書かれた行から、
<a></a>タグで囲まれた' KOTOKO'という文字を検索して、
'<TD> 18 </TD>'と書かれた文字の18と、
<a></a>タグで囲まれた'11346595'と、
<a></a>タグで囲まれた'16184'を取得してMsgBoxに表示したいのですが、
どうすれば出来ますでしょうか?
(18、11346595、16184という数字は変動します。)
いくら検索しても思うようなものが見つかりませんでした。
因みに、大本のhtmlソースはこちらです。
http://fah-web.stanford.edu/cgi-bin/main.py?qtyp …
↓これがTextBox1に入力されている値です。
<TR bgcolor=#ffffff>
<TD> 18 </TD>
<TD><a href="main.py?qtype=userpage&teamnum=162&username=KOTOKO"> KOTOKO </a> </TD>
<TD><a href="http://fah-web2.stanford.edu/awards/cert.php?u=K … target="_blank"> 11346595 </a> </TD>
<TD><a href="http://fah-web2.stanford.edu/awards/cert.php?u=K … target="_blank"> 16184 </a> </TD>
</TR>
<TR bgcolor=#dcdcdc>
<TD> 19 </TD>
<TD><a href="main.py?qtype=userpage&teamnum=162&username=yukichan"> yukichan </a> </TD>
<TD><a href="http://fah-web2.stanford.edu/awards/cert.php?u=y … target="_blank"> 10625127 </a> </TD>
<TD><a href="http://fah-web2.stanford.edu/awards/cert.php?u=y … target="_blank"> 4769 </a> </TD>
</TR>
↓これがVBのコード
Public Class Form1
Dim url As String
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
url = "http://fah-web.stanford.edu/cgi-bin/main.py?qtyp …
WebBrowser1.Navigate(url)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
Form2.TextBox1.Text = WebBrowser1.Document.Body.OuterHtml
Dim r As New System.Text.RegularExpressions.Regex("KOTOKO ", System.Text.RegularExpressions.RegexOptions.IgnoreCase)
'TextBox1.Text内で正規表現と一致する対象を1つ検索
Dim m As System.Text.RegularExpressions.Match = r.Match(Form2.TextBox1.Text)
'次のように一致する対象をすべて検索することもできる
'Dim mc As System.Text.RegularExpressions.MatchCollection = _
' r.Matches(TextBox1.Text)
While m.Success
'一致した対象が見つかったときキャプチャした部分文字列を表示
MsgBox(m.Value)
'次に一致する対象を検索
m = m.NextMatch()
End While
End Sub
End Class
No.2ベストアンサー
- 回答日時:
No1です。
こっちが良いかも?
Dim r As New System.Text.RegularExpressions.Regex(">\s[^>]+?\s</(a|TD) ", System.Text.RegularExpressions.RegexOptions.IgnoreCase)
No.1
- 回答日時:
Dim r As New System.Text.RegularExpressions.Regex(">\s.+?\s</(a|TD) ", System.Text.RegularExpressions.RegexOptions.IgnoreCase)
とかかな?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- JavaScript EasyUIのSubGrid(jquery)におけるObjectに入れた連想配列について 1 2022/05/02 11:21
- Visual Basic(VBA) Selenium.ChromeDriverの使い方について 7 2022/09/22 06:43
- AJAX JavascriptからPHPへのAjax通信でnullが返ってくる 3 2022/08/03 22:00
- HTML・CSS テーブルタグのセルの幅の一部だけを指定 1 2023/03/12 12:02
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- HTML・CSS 【CSS】:hasで可能? imgを含むtr要素を選択したい 1 2022/11/17 14:36
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- JavaScript jQueryで同じクラス名のものを別物として扱いたい 1 2022/06/17 14:14
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- JavaScript jqueryを使ったスムーススクロールのコードを書いたのですが、HTMLコード内にある、a butt 2 2022/04/14 10:59
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
<a href="#" …>の意味を教えて...
-
HTMLソースからURLだけを抜き出...
-
本番環境とテスト環境のURL
-
相対パスと絶対パスの速度
-
リンクに飛ばない・・・
-
プルダウンメニューからリンク...
-
chromeでの擬似クラス:focus に...
-
同意を求めて、次のページに進...
-
URLでEXEを呼出した際の、引数...
-
bodyにidをつける理由は何ですか?
-
別ファイルのfunctionの読み込み方
-
複数のJavascriptを1つのscrip...
-
base64encodeでの文字化けについて
-
javascriptでalertの文字列をコ...
-
ウインドウの後ろに隠れている...
-
cssにjavascriptを入れる?呼び...
-
Vbscriptで自分自身のウィンド...
-
複数のページ(html)のvalueを...
-
文字を入れ替わり表示させたい...
-
document.getElementById
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
<a href="#" …>の意味を教えて...
-
相対パスと絶対パスの速度
-
pythonのWebスクレイピングでfi...
-
HTMLソースからURLだけを抜き出...
-
<META HTTP-EQUIV='refresh' CO...
-
フレームだけ閉じる方法ありま...
-
html メールリンクにて自動ファ...
-
<a href>での背景色について。
-
HTMLアプリでインラインフレー...
-
iPadのロングタップ(長押し)...
-
リンクに飛ばない・・・
-
プルダウンメニューからリンク...
-
ある一定時間操作していない場...
-
POSTで<a hrefを送る方法について
-
mailto + 変数名
-
個別にハイパーリンクの色を指...
-
chromeでの擬似クラス:focus に...
-
エクスプローラ風階層構造のhtml
-
特定リファラからのアクセスを拒否
-
時間によってリンク先を変える...
おすすめ情報