トップ  >  サンプルソース  >  URL一覧取得(C#/VB.NET)

URL一覧取得(C#/VB.NET)

2009年12月30日

WEBページ(HTML)を解析し内部リンク(URL一覧)を表示するサンプル(ソース/コード)です。NonUrlCheck.dll を使っています。DataGridView等を使うと下の画面のようになります。
ブログの中のURL一覧

このサンプルはデバッグ表示のみです。

' URL一覧を表示するサンプル(VB.NET/VS2005)
' NonUrlCheck.dllを参照設定しています。
Private Sub Button1_Click( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
    ' URL一覧初期化
    NonUrlCheck.UrlCheckClass.Initialize()
    Dim dtUrl As DataTable = _
        NonUrlCheck.UrlCheckClass.InitDtUrl( _
        "http://xxx.blog111.fc2.com/", Nothing)
    Dim idx As Integer = 0
    Do While idx < dtUrl.Rows.Count
        ' URL一覧取得
        NonUrlCheck.UrlCheckClass.GetAllUrl(dtUrl, idx)
        If dtUrl.Rows(idx)("Typ").ToString() = "lnk" And _
         dtUrl.Rows(idx)("Out").ToString() = "0" Then
            ' URL一覧表示
            Debug.WriteLine(dtUrl.Rows(idx)("Url").ToString())
        End If
        idx += 1
    Loop
    NonUrlCheck.UrlCheckClass.Terminate()
End Sub

// URL一覧を表示するサンプル(C#.NET/VS2005)
// NonUrlCheck.dllを参照設定しています。
private void button1_Click(object sender, EventArgs e)
{
    // URL一覧初期化
    NonUrlCheck.UrlCheckClass.Initialize();
    DataTable dtUrl = NonUrlCheck.UrlCheckClass.InitDtUrl(
        "http://xxx.blog111.fc2.com/", null);
    int idx = 0;
    while( idx < dtUrl.Rows.Count)
    {
        // URL一覧取得
        NonUrlCheck.UrlCheckClass.GetAllUrl(dtUrl, ref idx);
        if (dtUrl.Rows[idx]["Typ"].ToString() == "lnk" &&
            dtUrl.Rows[idx]["Out"].ToString() == "0" )
        {
            // URL一覧表示
            Debug.WriteLine(dtUrl.Rows[idx]["Url"].ToString());
        }
        idx += 1;
    }
    NonUrlCheck.UrlCheckClass.Terminate();
}

// URL一覧結果表示(2009.12.30時点)の例
http://kchon.blog111.fc2.com/
http://kchon.blog111.fc2.com/blog-entry-4.html
http://kchon.blog111.fc2.com/blog-category-3.html
http://kchon.blog111.fc2.com/blog-entry-3.html
http://kchon.blog111.fc2.com/blog-category-2.html
http://kchon.blog111.fc2.com/blog-entry-2.html
http://kchon.blog111.fc2.com/blog-category-0.html
http://kchon.blog111.fc2.com/blog-entry-1.html
http://kchon.blog111.fc2.com/blog-category-1.html
http://kchon.blog111.fc2.com/blog-date-200911.html
http://kchon.blog111.fc2.com/blog-date-201001.html
http://kchon.blog111.fc2.com/blog-date-20091229.html
http://kchon.blog111.fc2.com/blog-date-20091230.html
http://kchon.blog111.fc2.com/blog-category-4.html
http://kchon.blog111.fc2.com/blog-date-200912.html
http://kchon.blog111.fc2.com/archives.html
スポンサーサイト

新年(2010)のごあいさつ | トップページへ戻る | FC2ブログのタイトル変更

このページのトップに戻る

コメント

名前
題名
メールアドレス
WEBサイト
 
コメント
パスワード
  管理者にだけ表示を許可する

このページのトップに戻る

トラックバック

このページのトップに戻る