分享个 字幕自修改脚本
'保存为.vbs'字幕文件自动更名
'注：目录下不能有其他.mkv文件
'字幕文件和视频文件放在同意目录下
dim ass_chs_num,ass_cht_num
dim shuan_ass
shuan_ass="F"
dim lovelive
dim ass_file_num,mkv_file_num
dim ad
dim ass(1000),mkv(1000),ass_chs(1000),ass_cht(1000)
ass_file_num=0
mkv_file_num=0
Set fso = CreateObject("Scripting.FileSystemObject")
lovelive=inputbox("设置文件夹路径",,"LL大法")
if lovelive=Flase or lovelive="LL大法" then
wscript.quit
end if
If not FSO.FolderExists(lovelive) Then
msgbox "文件夹不存在"
wscript.quit
end if
Set Folder = FSO.GetFolder(lovelive)
Set Files = Folder.Files
ad=len(Folder)+1
For Each F In Files
if right(F,3)="ass" then
ass(ass_file_num)=F
ass_file_num=ass_file_num+1
else if right(F,3)="mkv" then
mkv(mkv_file_num)=F
mkv_file_num=mkv_file_num+1 '20
end if
end if
Next
if ass_file_num=0 or mkv_file_num=0 then
msgbox ("无字幕文件或无视频文件")
wscript.quit
else
mkv_file_num=mkv_file_num-1
ass_file_num=ass_file_num-1
call k_on
end if
sub k_on()
'mkv文件名提取
dim slong
dim nmkv
for i=0 to mkv_file_num
nmkv=right(mkv(i),len(mkv(i))-ad)
slong=len(nmkv)-4
nmkv=left(nmkv,slong)
mkv(i)=nmkv
next
ass_chs_num=0
ass_cht_num=0 '
for i=0 to ass_file_num '双字幕相关
if right(ass(i),6)="tc.ass" then
ass_chs(ass_chs_num)=ass(i)
ass_chs_num=ass_chs_num+1
shuan_ass="true"
else if right(ass(i),6)="sc.ass" then
ass_cht(ass_cht_num)=ass(i)
ass_cht_num=ass_cht_num+1
end if
end if
next
ass_chs_num=ass_chs_num-1
ass_cht_num=ass_cht_num-1
end sub
if mkv_file_num=ass_file_num or mkv_file_num=ass_chs_num then
call rename_
else
' msgbox mkv_file_num
' msgbox ass_chs_num
' msgbox ass_file_num
msgbox ("文件数量不匹配")
end if
sub rename_()
if shuan_ass="true" then
for i=0 to ass_chs_num
set filep=fso.getfile(ass_chs(i))
filep.name=mkv(i)+".tc.ass"
next
for i=0 to ass_cht_num
set filep=fso.getfile(ass_cht(i))
filep.name=mkv(i)+".sc.ass"
next
else
for i=0 to ass_file_num
set filep=fso.getfile(ass(i))
filep.name=mkv(i)+".ass"
next
end if
end sub 顶一个。。。
页:
[1]