お気に入りのアドレス一覧表の出し方

質問

I.Eでのお気に入りのアドレスの一覧の出し方を教えてください。エクスポートのようにHPのタイトル一覧だけではなくて、http://www.のアドレスも一緒に一覧表示できる方法はありますか？おねがいします。

回答No.2

ittochan

Windows98Se以上のWindowsならWSHが標準でインストールされているので

↓はどう？(拡張子はVBSね)

Set WshShell = CreateObject("WScript.Shell")
i = WshShell.PopUp("デスクトップにお気に入りの一覧を作成します",0,"by ittochan",36)
if i<>6 then
WScript.Quit
end if
Set fso = CreateObject("Scripting.FileSystemObject")

strDesktop = WshShell.SpecialFolders("Desktop")
strFavorites = WshShell.SpecialFolders("Favorites")

set objtxt = fso.CreateTextFile( strDesktop & "\お気に入りの一覧.txt")

if fso.FolderExists(strFavorites) then
addfav( strFavorites )
mySubFolders( strFavorites )
end if
objtxt.Close
msgbox "終了しました"
WScript.quit
sub mySubFolders(str1)
dim f,sf
set f = fso.GetFolder(str1)
set sf = f.SubFolders
For Each f1 in sf
str2 = str1 & "\" & f1.name
addfav( str2 )
mySubFolders( str2 )
Next
end sub
sub addfav(str1)
dim f,fc
Set f = fso.GetFolder(str1)
Set fc = f.Files
For Each f1 in fc
if f1.Type="インターネット ショートカット" then
set oUrlLink = WshShell.CreateShortcut(f1.Path)
objtxt.WriteLine fso.GetBaseName(f1.name)
objtxt.WriteLine oUrlLink.TargetPath
objtxt.WriteLine
end if
Next
end sub

テキストファイルで出力しますが
HTM形式がいいなら補足してね。

回答No.1

neKo_deux

Excelを使うと、

> エクスポートのようにHPのタイトル一覧だけではなくて、

のファイルからタイトル、URLの一覧を抜き出せます。

--
1) エクスポートしたファイルをExcelにドラッグ＆ドロップ。A列にhtmlがテキスト形式で読み込まれる。
2) B1以降のセルに以下の式を設定。
B1:=FIND("HREF=",A1,1)
C1:=NOT(ISERR(B1))
D1:=FIND(CHAR(34),A1,B1+6)
E1:=FIND(">",A1,D1+1)
F1:=FIND("<",A1,E1+1)
G1:=MID(A1,E1+1,F1-E1-1)
H1:=MID(A1,B1+6,D1-B1-6)
3) B1～H1を↓方向にコピー。

で、GH列を抜き出し。