FileInfo.MediaInfo.VBS (その２)

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

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