人気ブログランキング | 話題のタグを見る

[VBScript] youkuの分割動画をリネームする

こんヴァンヘイレン。どーもボキです。

youkuから(一時的に)ダウンロードした動画ファイルは、訳の分からん長ったらしい名前がついている。
それを短くリネームするスクリプト。

動画ファイルを保存したフォルダをスクリプトファイルにドロップすれば、
以下のようにリネームしてくれる。
[VBScript] youkuの分割動画をリネームする_a0021757_2042648.gif
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)、そのダウンロード方法
by yozda | 2013-06-29 20:38 | プログラミング | Comments(0)