人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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">
************************************
どのようなプログラムを組めばいいでしょうか?
よろしくお願いします

●質問者: takanii
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● Mook
●500ポイント ベストアンサー

こういう事でしょうか。

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

takaniiさんのコメント
動きました! 本当にありがとうございました!!
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ