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