仕事のため、コードをバッチで変更する必要があるのは小さなことですが、現在処理できるファイルの種類を共有します: .asp .inc .htm .html 特定の種類は次のように変更できます。
プログラムによって実装される機能
: ソース ディレクトリのファイル タイプを変更する ファイルがバッチで変更された後、それらは宛先ディレクトリに保存され、わずかな変更で多くのことが実現できます。
その他のことは言うまでもなく、すべてコードに明確に記述されています。
<%
'// +---------------------------------------------- --- ------------------------+
'// | プログラム名: Stone コード バッチ モディファイア v1.01 |
'// | 他山の石の著作権侵害で捜査されます!転載する場合は著作権を明記してください:) |
'// | ------------------------------------------------ ------------------------ |
'// | システム: win2000; インデント ツール: タブ; フォント: Song 王朝 (10pt);
'// | ------------------------------------------------ ------------------------ |
'// | 作成者: WYC; 作成時間: 2004-03-08;
'// | ライター: WYC; 執筆時間: 2004-03-08;
'// +---------------------------------------------- --- ---------------+
Server.ScriptTimeOut = 500 'スクリプトタイムアウト
'// +-- ----- -------------------------------------- ----- ------------------+
'// | 一括変更関数 |
'// | ------------------------------------------------ ------------------------ |
'// | 属性: ソース ファイル ディレクトリからのパス ターゲット ファイルの作業ディレクトリへのパス |
'// | ------------------------------------------------ ------------------------ |
'// | 戻り値: なし |
'// | ------------------------------------------------ ------------------------ |
'// プログラムの流れ:... |
'// | ------------------------------------------------ ------------------------ |
'// | ライター: WYC; 執筆時間: 2004-03-08;
'// +---------------------------------------------- --- ------------------------+
サブミッドファイル(path_from, path_to)
list_from = path_from '現在のソース作業ディレクトリを保存します
list_to = path_to '現在のターゲット作業ディレクトリを保存します
Set fso = CreateObject("Scripting.FileSystemObject")
Set Fold = fso.GetFolder(list_from) 'フォルダーオブジェクトを取得
Set fc = Fold.Files 'ファイルレコードセットを取得
Set mm = Fold.SubFolders 'ディレクトリレコードセットを取得
各 f2 単位 (mm)
set objfile = server.createobject("scripting.filesystemobject")
objfile.CreateFolder(path_to & "" & f2.name) 'ディレクトリを作成
midfile path_from & "" & f2.name, path_to & "" & f2.name '再帰呼び出し
response.write path_to & "" & f2.name & " 完了!<br>"
次
fc の各 f1 について
file_from = list_from & "" & f1.name 'ファイルアドレスを生成(ソース)
file_to = list_to & "" & f1.name 'ファイルアドレス(to)を生成
fileExt = lcase(right(f1.name,4)) 'ファイルの種類を取得します
fileExt=".asp" または fileExt=".inc" または fileExt=".htm" または fileExt="html" の場合、「特定のタイプは自分で変更および追加できます」
set objfile = server.createobject("scripting.filesystemobject") 'サーバーコンポーネントを定義します（ソースファイルを読み込みます）
set out = objfile.opentextfile(file_from, 1, false, false)
content = out.readall 'データの読み取り
out.close
'// +------------------------------------------ --- --------+
'// | ファイルコンテンツ処理モジュール（主にその他はファイル操作） |
正規表現 = 新しい正規表現を設定します
regEx.Pattern = "(>s*n)"
regEx.Global = true '一致するすべてのモードを設定します
content = regEx.Replace(content, ">") '復帰文字を置換します
content = Replace(content, " ", "") 'タブを置換
'// +---------------------------------------------- --- ---+
set objfile = server.createobject("scripting.filesystemobject") 'サーバーコンポーネントを定義します（ターゲットファイルに書き込みます）
set outt = objfile.createtextfile(file_to,TRUE,FALSE)
outt.write(content) 'データの書き込み
アウトクローズ
else 'それ以外の場合はファイルを直接コピーします
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile file_from、file_to
終了の場合
次
End Sub
Midfile Server.mappath("temp/aaa"), Server.mappath("temp/bbb") 'サンプルソースディレクトリ temp/aaa を呼び出し、処理後に temp/bbb に保存します
'ソース ディレクトリ デスティネーション ディレクトリ (既存のディレクトリである必要があります)
%>
よろしく万葉（他山の石）