SQLの窓

2009年09月12日


VBS : IE のキャッシュからファイルをコピーする

Windows2000 の時からキャッシュのディレクトリ構造は変わっていないのですが、
IE7 になってエクスプローラからは見えないようです。
いずれにしても、構造上同じファイル名が存在するので、コピーして貼り付け
では全てをコピーできないので少しトリックが必要になります

まず、エクスプローラでクリップボードにファイルをコピーします。

Ief

Ief2

そのデータをコマンドプロンプト : クリップボードにあるファイル情報を標準出力へ
を使用して標準出力に出力し、それをパイプで入力するスクリプトが ie_cache_copy.vbs です。
ie_cache_copy.vbs は、必要な copy コマンドを標準出力へ出力します。
その結果をバッチファイルとしてリダイレクトした後実行します

※ 以下のコマンドラインを、コピーしたいフォルダで実行します
( ※ ie_cache_copy.bat と ie_cache_copy.vbs をカレントに置きます )
( ※ パスの通ったフォルダに置いても動作します )
コマンドライン実行
cf path | ie_cache_copy
ie_cache_copy.bat
@echo off
cscript.exe //NOLOGO "%~dp0ie_cache_copy.vbs" > ie_cache_copy_act.bat
ie_cache_copy_act.bat

ie_cache_copy.vbs
Dim str,str2,regEx,strResult,Matches

Set regEx = New RegExp
Set regEx2 = New RegExp

regEx.Global = True
regEx.IgnoreCase = True
regEx2.Global = True
regEx2.IgnoreCase = True

regEx.Pattern = "(\.IE5\\)([^\\]+)(\\)([^\\]+$)"
regEx2.Pattern = "\.IE5\\[^\\]+\\"

Do While Not WScript.StdIn.AtEndOfLine

	str = WScript.StdIn.ReadLine
	Set Matches = regEx.Execute( str )	' 検索

	if Matches.Count <> 0 then
		str2 = Matches(0).SubMatches(1)
		str2 = str2 & "_" & Matches(0).SubMatches(3)
		Wscript.Echo "copy " & """" & str & """ " & """" & str2 & """"
	else
		Wscript.Echo "copy " & """" & str & """"
	end if
Loop

※ 正規表現でなくても良いのですが、VBS の正規表現は面倒なのでサンプルです。


タグ:VBScript
【IEの最新記事】
posted by lightbox at 2009-09-12 23:25 | IE | このブログの読者になる | 更新情報をチェックする
バッチ処理

Microsoft Office
container 終わり

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

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