[VBScript] youkuの分割動画をリネームする
2013年 06月 29日
youkuから(一時的に)ダウンロードした動画ファイルは、訳の分からん長ったらしい名前がついている。
それを短くリネームするスクリプト。
動画ファイルを保存したフォルダをスクリプトファイルにドロップすれば、
以下のようにリネームしてくれる。
Const cPos = 9 ' 16^1の位の文字位置
If WScript.Arguments.Count = 0 Then WScript.Quit ' フォルダドロップでない
Set objFS = CreateObject("Scripting.FileSystemObject")
For idpth = 0 To WScript.Arguments.Count -1: Do
dpth = WScript.Arguments(idpth)
If Not objFS.FolderExists(dpth) Then Exit Do ' フォルダでない
dname = objFS.GetFileName(dpth) ' フォルダ名
' フォルダ内のファイル処理
Set Folder = objFS.GetFolder(dpth)
For Each File In Folder.Files: Do
fname = File.Name
If InStr(fname, dname) <> 0 Then Exit Do ' リネーム済み
If Len(fname) > cPos Then
' 16^1の位
i = CInt(Mid(fname,cPos,1))
' 16^0の位
s = Mid(fname,cPos+1,1)
If s < "A" Then
j = CInt(s)
Else
j = Asc(s) -Asc("A") +10
End If
' ファイル番号を生成
s = CStr(i*16 +j)
If Len(s) = 1 Then s = "0" & s
' ファイル名の変更
fname = dname &"_"& s & Right(fname,4)
ElseIf (Len(fname) = 6) And IsNumeric(Left(fname,2)) Then
fname = dname & "_" & fname
End If
File.Name = fname
Loop Until 1: Next
Loop Until 1: Next
[youku] オススメ動画サイトyouku(= 中国版Youtube)、そのダウンロード方法