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

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

具体的には

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

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

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

よろしくお願いします。

No.3 回答者： anotherone 回答日時： 2007/11/17 19:38

たくさんのページを　まとめて処理するような時は

別の方法もあります　補足してください

下記の文をコピーして　メモ帳に貼り付けて
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を使用していますがそれは関係ありますでしょうか？

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

お礼日時：2007/11/18 00:03