VBSで、凝ったHTMLを出力する!
いつも大変お世話になっております。
上手く説明できない点もあるかと思いますが、
よろしくお願い致します。
現在、色々とプログラムを組むことが多く、
毎回調べては書いて…の繰り返しのため
良く使うもの・便利だったものはメモ帳などに貼り付けて
保存してあります。
しかし、この状態では
メモ帳が大量にあり探すのにとても苦労しますし、
内容もとても見づらいものになってしまいます。
現在、同フォルダにあるTXTファイルを自動的にHTMLに変換するVBSと
同フォルダにあるファイルのリンクを作成し、一覧をHTMLにするVBSを作りました。
少しずつ便利にはなってきていますが、
やはり見づらさという点では変わりありません。
そこで、やりたいこととしまして
・ジャンル別に分けたい。 (できればツリー状にして表示したい)
・2フレームで作成したい。(左側に目次、選択したものを右側に表示)
全自動でHTMLファイルを作成しようと思っているのですが、
さすがにむずかしいでしょうか?
例えば
HTML化用ファイル
|
|--「HTMLファイルをここに作成」
|
--TEST
|
------ブック
| |___新規ブック.html
| |
| |___ブック名編集.html
|
------シート
| |___新規シート.html
| |
| |___シート編集.html
| |
| |___シート保護.html
| |
| |___シートコピー.html
| |
| |___シート削除.html
|
|
|
------目次3
|
------目次4
|
------目次5
-----------------------------------------
【理想】
|
TEST |
| |
------ブック |
| |___新規ブック.html | クリックしたHTMLの内容表示
| | |
| |___ブック名編集.html |
| |
------シート |
| |___新規シート.html |
| | |
| |___シート編集.html |
| | |
| |___シート保護.html |
| | |
| |___シートコピー.html |
| | |
| |___シート削除.html |
| |
| |
| |
------目次3 |
| |
------目次4 |
| |
------目次5 |
↑↑ 折りたたむことも可能↑↑
今は、同じフォルダ内にあるものを
HTML化することはできています。
-------------------
Sub TEST2()
Dim strScriptPath'自分の現在位置
strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")'フルネームから、スクリプトネームを削除!
' フォルダをオブジェクト取得
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(strScriptPath)
Set HTMLOutPutData = objFso.CreateTextFile("ファイル一覧.html",True)
HTMLOutPutData.WriteLine "<html>"
HTMLOutPutData.WriteLine "<head>"
HTMLOutPutData.WriteLine "<title></title>"
HTMLOutPutData.WriteLine "</head>"
HTMLOutPutData.WriteLine "<body>"
HTMLOutPutData.WriteLine "<h1 align=""" &"center" &""">まとめ</h1>"
HTMLOutPutData.WriteLine "<hr>"
for each file in objFolder.Files
If file.name<> "ファイル一覧.html" and file.name<> WScript.ScriptName and Right(file.name,4)<> ".vbs" Then
HTMLOutPutData.WriteLine "<font size=""" &"5" &"""><a href=""" & file.Path & """>"& file.name & "</a></font><br>"
End if
Next
HTMLOutPutData.WriteLine "</body>"
HTMLOutPutData.WriteLine "</html>"
End Sub
------------------
http://lll.s21.xrea.com/m/link/37.html
Javascriptは特にやっていなかったのと、
HTMLも不慣れなため、簡単なものしかかけませんでした。
フォルダ内の状況をそのまま
HTMLとして出力する方法があれば、
教えて下さい。
よろしくお願い致します。
以上、よろしくお願い致します。
お礼
とてもわかりやすい例えです。 ありがとうございました。