SQLの窓

2009年05月29日


VBScript : フォルダの中にある複数テキストファイルの指定した文字列を一括置換

フォルダ内に変換したい対象のテキストファイルをコピーして実行します。

スクリプトは、直接更新を行わず、オリジナルの内容を _org をフォルダ名の後に付けて保存した上で、一括変換します。
Set Fso = CreateObject( "Scripting.FileSystemObject" )

' カレントディレクトリにある対象ディレクトリ
strTarget = "res"

Set objFolder = Fso.GetFolder( strTarget )
objFolder.Name = objFolder.Name & "_org"

on error resume next
Call Fso.CreateFolder(strTarget)
on error goto 0

Set objFiles = objFolder.Files

For each objFile in objFiles
	' フルパス
	strFullPath = Fso.GetAbsolutePathName( strTarget & "_org\" & objFile.Name )
	strFullPath2 = Fso.GetAbsolutePathName( strTarget & "\" & objFile.Name )

	Set InObj = Fso.OpenTextFile( strFullPath, 1 )
	Set OutObj = Fso.OpenTextFile( strFullPath2, 2, True )
	Buffer = InObj.ReadAll
	Buffer = Replace(Buffer,"charset=UTF-8"">","charset=SHIFT_JIS"">")
	OutObj.Write Buffer
	OutObj.Close
	InObj.Close

Next





タグ:VBScript
posted by lightbox at 2009-05-29 13:38 | VBScript | このブログの読者になる | 更新情報をチェックする
バッチ処理

Microsoft Office
container 終わり

フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

Android SDK ポケットリファレンス
改訂版 Webデザイナーのための jQuery入門
今すぐ使えるかんたん ホームページ HTML&CSS入門
CSS ドロップシャドウの参考デモ
Google Hosted Libraries
cdnjs
BUTTONS (CSS でボタン)
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり