VBSの質問です

フォルダの中に
*******************
a.vbs
01/01.html
02/02.html
‥/‥.html
99/99.html
*******************
が入っています

htmlの中には必ず以下の行が入っています
************************************
<meta http-equiv="Content-Type" content="text/html;>
************************************

a.vbsを実行したらファイル内すべての上記1文を以下の文に置換して欲しいのですが
************************************
<meta http-equiv="Content-Type" content="text/html" name="robots" content="noindex,nofollow">
************************************
どのようなプログラムを組めばいいでしょうか?
よろしくお願いします

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2014/02/11 19:53:09
  • 終了:2014/02/12 02:38:47

ベストアンサー

id:Mook No.1

Mook回答回数1312ベストアンサー獲得回数3912014/02/12 00:14:48

ポイント500pt

こういう事でしょうか。

Option Explicit

Const sText = "<meta http-equiv=""Content-Type"" content=""text/html;>"
Const rText = "<meta http-equiv=""Content-Type"" content=""text/html"" name=""robots"" content=""noindex,nofollow""> "

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

Dim htmlFile
Dim htmlText
Dim folder
For Each folder In fso.GetFile(WScript.ScriptFullName).ParentFolder.SubFolders
    For Each htmlFile In folder.Files
        If fso.GetExtensionName( htmlFile.Name ) = "html" Then
            htmlText = fso.OpenTextFile( htmlFile.Path ).ReadAll()
            fso.CreateTextFile(htmlFile.Path,True).Write Replace(htmlText,sText,rText)
        End If
    Next
Next
id:takanii

動きました!
本当にありがとうございました!!

2014/02/12 02:38:37

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

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

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

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

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません