HTMLのAタグからURLとリンクラベルを抽出できるソフト

質問

初めまして。
閲覧中のページ内のリンクを、URLとラベルのセットで抽出して一覧表示してくれるソフトを探しています。

具体的には

<a href="url">リンクラベル</a>

となっていた場合、"url"と"リンクラベル"を自動的に抜き出して
それを外部ファイルなどに出力してくれるソフトです。

自分で調べた中で近いソフトがあったのですが、どうも思ったような結果が得られなかったです。
http://www.forest.impress.co.jp/article/2005/06/17/ablink.html

よろしくお願いします。

回答No.3

anotherone

たくさんのページを　まとめて処理するような時は
別の方法もあります　補足してください

下記の文をコピーして　メモ帳に貼り付けて
TAG.vbs　という名前で　デスクトップに保存
ダブルクリックでこれを開いて　URLを指定
CSVファイルが作成されて　終了メッセージが表示されたら
CSVの内容を確認する

myURL = InputBox("調べるURL", "Aタグ抽出", "http://www.yahoo.co.jp/")
If myURL = "" Then
Msgbox "Cancel(終了)"
WScript.Quit
End If

myTM = Year(Now) & "_" & Month(Now) & "_" & Day(Now) & "_"
myTM = myTM & Hour(Now) & "_" & Minute(Now) & "_" & Second(Now)
myPATH = Replace(wscript.ScriptFullName, wscript.ScriptName, "") & "\"

Set myFS = CreateObject("Scripting.FileSystemObject")
Set myWF = myFS.CreateTextFile(myPATH & myTM & "_TAG_A.csv")

Set myIE = CreateObject("InternetExplorer.Application")
myIE.Visible = True

myIE.Navigate myURL
Do Until myIE.Busy = False
'DoEvents
Loop
For Each myTAG In myIE.Document.getElementsByTagName("a")
myWF.WriteLine myTAG.innerText & "," & myTAG.Href
Next

myWF.Close : Set myWF = Nothing : Set myFS = Nothing
myIE.Quit : Set myIE = Nothing
MsgBox myPATH & myTM & "_TAG_A.csv　を作成しました"

お礼

anotheroneさん、どうもありがとうございます。
早速試させていただいたのですが、どちらもエラーがでてしまいます…。

ATAGCHU.vbsの方はURL入力後、IEで指定のページが開き以下のメッセージが出ます。
行：21
文字：5
エラー：エラーを特定できません
コード：80004005
ソース：(null)

TAG.vbsの方は起動と同時にエラーメッセージが以下のように表示されます。
行：1
文字：64
エラー：文字が正しくありません
コード：800A0408
ソースMicrosoft VBScriptコンパイルエラー

ATAGCHU.vbsの方は何度か試してるうちに一度だけ出力が成功したんですが、その後は何度やっても同じエラーが出てしまいます。
TAG.vbsは保存時の警告メッセージとしてunicodeでの保存を促されましたがそれでよろしいのでしょうか？
また、当方IE6、Excell2003を使用していますがそれは関係ありますでしょうか？

お手数お掛けしますがどうぞよろしくお願いします。