その様な事ができるアプリ、ブラウザのアドオン。プログラム。などを教えてください。
例:
http://www.youtube.com/playlist?list=UUjaWxz81Jq_8NcGW0Tt_CNA&feature=plcp
のページの場合
=======================
「ミス・サイゴン」三井太一コメント,http://www.youtube.com/watch?v=-5op3O3BiQ8&list=UUjaWxz81Jq_8NcGW0Tt_CNA&index=1&feature=plpp_video
「ミス・サイゴン」木内健人コメント,http://www.youtube.com/watch?v=VsW8EnYa7y0&list=UUjaWxz81Jq_8NcGW0Tt_CNA&index=2&feature=plpp_video
・・・
=======================
の様にアンカーテキスト,URLという形で書き出したいです。
※「,」じゃなくても構いません。
ページ内の一部のみというのは難しいと思いますので、htmlソース上の最初から最後まで全部書き出す形で問題ありません。
よろしくお願いいたします。
すべてのタブに開いているページのタイトルとURLを一括コピーするfirefoxのアドオン「Copy Urls Eexpert」というのはどうでしょう?
http://mff2.blog109.fc2.com/blog-entry-806.html
http://tech.lampetty.net/tech/index.php/archives/449
期待する部分以外のテキストもあると思いますが、
ページの構成上それもアンカーテキストとして書かれています。
たたき台レベルですが、拡張子を vbs で保存して実行してみてください。
Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "http://www.youtube.com/playlist?list=UUjaWxz81Jq_8NcGW0Tt_CNA&feature=plcp" ' objIE.Visible = True waitIE objIE Set ancs = objIE.Document.getElementsByTagName("a") For n = 0 To ancs.Length - 1 res = res & ancs(n).InnerText & "," & ancs(n).Href & vbNewLine Next objIE.Quit CreateObject("Scripting.FileSystemObject").CreateTextFile("anchorList.txt", True, True).Write res Set objIE = Nothing Sub waitIE(objIE) Do While objIE.Busy = True Or objIE.readystate <> 4 WScript.Sleep 100 Loop WScript.Sleep 1000 End Sub