VBSの質問です

Question

fashudifhajs

13

13もっと見る

300pt

コンピュータ

VBSの質問です

hoge フォルダの中に
a.html
b.html
c.html
d.html
・
・
・

というようにテキストファイルがたくさん入っています

hogeの一つ上のフォルダに以下のテキストが入力されたhtmlファイルを作りたいのですがどのようなVBSを組めばいいでしょうか？教えてください

hoge.html
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
<tr><td>http://hoge/a.html</td><td>http://hoge/b.html</td></tr>
<tr><td>http://hoge/c.html</td><td>http://hoge/d.html</td></tr>
<tr><td>http://hoge/・.html</td><td>http://hoge/・.html</td></tr>
・
・
・
＊＊＊＊＊＊＊＊＊＊＊

回答の条件

1人1回まで

登録：2014/12/03 01:18:46
終了：2014/12/05 10:53:24

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

コメントはまだありません

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

a-kuma3 · Accepted Answer · 2014-12-03T01:29:55+09:00

こんな感じになります。

targetFolderName = "D:\test\hoge"   ' ※ hoge フォルダのパス

Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set targetFolder = fs.getFolder(targetFolderName)

Set parentFolder = targetFolder.ParentFolder
Set output = fs.CreateTextFile(parentFolder.Path & "\list.html", True)
output.WriteLine "<table>"

For Each f In targetFolder.Files
    If fs.GetExtensionName(f.Path) = "html" Then
        output.WriteLine "<tr><td>http://" & targetFolder.Name & "/" & f.Name & "</td></tr>"
    End If
Next

output.WriteLine "</table>"
output.Close

他で質問されていることも考慮して、以下の処理もしています。

hoge フォルダの下にある .html ファイルだけを対象にしています
外側を <table> ～ </table> でくくっています

追記です。

左端　真ん中　右端で使っているタグは違います

失礼しました。2列の TABLE なんですね。
では、こんな感じでは、いかがでしょうか。

targetFolderName = "D:\test\hoge"   ' ※ hoge フォルダのパス

Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set targetFolder = fs.getFolder(targetFolderName)

Set parentFolder = targetFolder.ParentFolder
Set output = fs.CreateTextFile(parentFolder.Path & "\list.html", True)
output.WriteLine "<table>"

odd = True
For Each f In targetFolder.Files
    If fs.GetExtensionName(f.Path) = "html" Then
        If odd Then
            output.Write     "<tr><td>http://" & targetFolder.Name & "/" & f.Name & "</td>"
            odd = False
        Else
            output.WriteLine     "<td>http://" & targetFolder.Name & "/" & f.Name & "</td></tr>"
            odd = True
        End If
    End If
Next

output.WriteLine "</table>"
output.Close

VBSの質問です

ベストアンサー

a-kuma3497321542014/12/03 01:29:55

コメント（0件)

この質問への反応（ブックマークコメント）