2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
無料ブログはココログ

« FileInfo.MediaInfo.VBS | トップページ | フォルダサイズを一覧表示する。 »

2008年8月 3日 (日)

FileInfo.MediaInfo.VBS (その2)

頑張って、文字化けを補正しました。

FileInfo.MediaInfo.VBS メディアファイル

Option Explicit
Dim FileInfo
Dim File
Dim re
Set re=New RegExp
re.Pattern="^(  形式: )(....)$"
re.MultiLine=True
Set FileInfo=CreateObject("FileInfo.MediaInfo")
For Each File In WScript.Arguments
  FileInfo.FileName=File
  WScript.Echo re.Replace(FileInfo.MediaInfo,GetRef("replaceFunc"))
Next
Function replaceFunc(matchedString,subMatch1,subMatch2,matchPos,source)
replaceFunc=submatch1 & Chr(AscB(MidB(submatch2,1,1))) & Chr(AscB(MidB(submatch2,3,1))) & Chr(AscB(MidB(submatch2,5,1))) & Chr(AscB(MidB(submatch2,7,1)))
End Function

« FileInfo.MediaInfo.VBS | トップページ | フォルダサイズを一覧表示する。 »