• はてなアカウントでログイン
• 無料ユーザー登録

みんなの回答

• hottokei2007/02/14 23:09:41

  満足27pt

  　ものすごく特定の環境下、かつ手動、連続操作不可ですが、WebブラウザFirefox + メールソフトThunderbirdの組み合わせ（ともにフリーソフト）を使うと、こんなことができます。

  http://www.mozilla-japan.org/

  
  

  1　メールソフトの準備

  　メールソフトThunderbirdで「新しいメッセージを作成」として、新規メッセージウィンドウをあらかじめ開いておく。

  
  

  2　WebブラウザFirefoxで、任意のウェブサイトを表示させる。

  
  

  3　その状態で、FirefoxのURLが表示されているテキストボックスに注目。

  　表示中サイトのURLの文字列の頭にある部分にマウスを当てると

  　「このアイコンをドラッグ＆ドロップすると、このページのリンクが作成されます。」と、

  　表示されますが、その状態で、マウスをドラッグして、

  　Thunderbirdのメッセージウィンドウにドロップして下さい。

  
  

  4　ドロップした先のメッセージウィンドウには、

  　Webブラウザに表示されていたURLと

  　titleタグの内容が、

  　２行書きテキストの状態で出力されています。

  
  

  　この芸当、Internet Explorer + メモ帳ではできません。

  　

  スター

  • artdot 2007/02/14 23:16:35

    Sleipnirを使っています。

    ブラウザではなくフリーソフトでtitleタグの内容とURLの抽出ができるものを教えてください

    引き続き募集します

hamster0092007/02/16 02:58:21

満足27pt

これでできると思います。

URLだけでなく、リンクテキスト(この部分）も抽出するように指定する必要があると思いますが。

http://www015.upp.so-net.ne.jp/basue/software/mojika/

こっちはできるかどうかわからない。

http://vvindows.s17.xrea.com/x/vvine.html

スター

llusall2007/02/17 15:04:05

満足31pt

エクセルのマクロで自作してみましたが、いかがでしょうか？

   '標準モジュールに以下のソースを貼り付けます。

   'Sheet1のA列(A1,A2～のセル)にURLを入力します。

   'GetHtmlTitleを実行します。

   'Sheet1のB列(B1,B2～のセル)にタイトルが表示されます。




Option Explicit




Public Sub GetHtmlTitle()

    

    Sheets("Sheet1").Select

    Range("A1").Select

    

    Do Until ActiveCell.Value = ""

        Dim url As String

        Dim html As String

        url = ActiveCell.Value

        html = GetHttpResponse("GET", url, "", "_autodetect")

        ActiveCell.Offset(0, 1).Value = ExtractTitle(html)

        ActiveCell.Offset(1, 0).Activate

    Loop

    

    MsgBox "おしまい"

End Sub





Private Function GetHttpResponse(ByVal methodType, ByVal url, ByVal sendData, ByVal charset)

    Const adTypeBinary = 1

    Const adTypeText = 2

    Const agent As String = "Mozilla/4.0(compatible; MSIE 6.0; Windows NT 5.1)"

    

    Dim dst

    Set dst = CreateObject("ADODB.Stream")

    With dst

        .Open

        .Type = adTypeBinary




        'HttpRequest

        Dim xmlhttp

        Set xmlhttp = CreateObject("Msxml2.XMLHTTP")

        xmlhttp.Open methodType, url, False

        xmlhttp.SetRequestHeader "User-Agent", agent

        xmlhttp.send (sendData)




        .Write (xmlhttp.responseBody) 'ADODB.Streamオブジェクトへ書き込み

        .Position = 0

        .Type = adTypeText

        .charset = charset

        GetHttpResponse = .ReadText 'Textとして読み出す

        .Close

    End With

    Set dst = Nothing




End Function





Private Function ExtractTitle(ByVal html As String)

    

    '正規表現オブジェクト

    Dim oRe, oMatch, oMatches

  

    '正規表現オブジェクトの参照をセット（新規作成）

    Set oRe = CreateObject("VBScript.RegExp")

    '正規表現オブジェクトのオプション設定

    With oRe

        .Global = True

        .IgnoreCase = True

    End With




    'マッチパターン作成

    oRe.Pattern = "title[\s]*>([^<>/]+)<[\s]*/title"

    '正規表現実行

    Set oMatches = oRe.Execute(html)

    'マッチした全てに対して処理する

    For Each oMatch In oMatches

        Set oMatches = oMatch.SubMatches

        If oMatches.Count = 1 Then

            ExtractTitle = oMatches.Item(0) 'oMatch.Value

            Exit For

        Else

            ExtractTitle = "おかしい・・・"

            Exit For

        End If

   Next




End Function

※参考

Design For Life VBScriptで文字コード変換

一文字に三つ星 [VBA] 正規表現オブジェクトの使い方

※なお、正規表現については良くわかっていません。すみません。

スター

• artdot 2007/02/20 01:18:32

  ありがとうございます！

• その他の回答を読む

この質問へのコメント

質問の情報

登録日時

2007-02-14 22:23:08

終了日時

2007-02-20 01:18:57

回答条件

回答にURL必須 1人2回まで

この質問のカテゴリ

• インターネット
• ウェブ制作

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者112日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者112日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者20時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者120時間前
• 内定してほしいポケモンはいますか？匿名質問者20時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ