質問
質問者：s1971525 お気に入りのアドレス一覧表の出し方
困り度：
  • すぐに回答を！
 I.Eでのお気に入りのアドレスの一覧の出し方を教えてください。エクスポートのようにHPのタイトル一覧だけではなくて、​http://www.​のアドレスも一緒に一覧表示できる方法はありますか？おねがいします。
質問投稿日時：03/11/04 10:21
質問番号：696586
最新から表示｜回答順に表示

回答

 
回答者：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形式がいいなら補足してね。
種類：回答
どんな人：一般人
自信：参考意見
回答日時：03/11/05 11:48
回答番号：No.2
この回答への補足この回答に補足をつける(質問者のみ)
この回答へのお礼この回答にお礼をつける(質問者のみ)

回答

 
回答者：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列を抜き出し。
種類：回答
どんな人：一般人
自信：自信あり
回答日時：03/11/04 14:55
回答番号：No.1
この回答への補足この回答に補足をつける(質問者のみ)
この回答へのお礼この回答にお礼をつける(質問者のみ)
最新から表示｜回答順に表示
このページのトップへ