～技术宅真可怕～ » 讨论
ReNamer 番剧自动命名脚本

#1 - 2024-1-10 11:01

world

有时候下载番剧合集需要自己重命名的时候就用的这个, 自己写的垃圾代码给大家分享一下
ReNamer 官网下载: https://www.den4b.com/products/renamer
脚本添加方法就是添加规则 - Pascal脚本, 然后右边复制粘贴就好

使用方法: 拖动文件名到ReNamer中会自动弹出一个对话框, 输入相关信息就好
例如: 将下列文件添加到ReNamer中
[Nekomoe kissaten][Mushoku Tensei S2][11][1080p][JPSC].mp4
[Nekomoe kissaten][Mushoku Tensei S2][10][1080p][JPSC].mp4
[Nekomoe kissaten][Mushoku Tensei S2][05][1080p][JPSC].mp4
[Nekomoe kissaten][Mushoku Tensei S2][02][1080p][JPSC].mp4
[Nekomoe kissaten][Mushoku Tensei S2][06][1080p][JPSC].mp4
[Nekomoe kissaten][Mushoku Tensei S2][00][1080p][JPSC].mp4
[Nekomoe kissaten][Mushoku Tensei S2][09][1080p][JPSC].mp4
[Nekomoe kissaten][Mushoku Tensei S2][04][1080p][JPSC].mp4
[Nekomoe kissaten][Mushoku Tensei S2][12][1080p][JPSC].mp4
[Nekomoe kissaten][Mushoku Tensei S2][03][1080p][JPSC].mp4
[Nekomoe kissaten][Mushoku Tensei S2][01][1080p][JPSC].mp4
[Nekomoe kissaten][Mushoku Tensei S2][08][1080p][JPSC].mp4
[Nekomoe kissaten][Mushoku Tensei S2][07][1080p][JPSC].mp4

在对话框中输入: '无职转生～到了异世界就拿出真本事～ (2021).S2*0'
然后效果是

最后感谢大家!





{ 章节数字填充 }

function getEpisode(a: Integer):String;

begin

  Result := 'E' + IntToStr(a);

  if a < 10 then Result :=  'E0' + IntToStr(a);

end;



function matchExt(FileExt: String): Boolean;

begin

  Result := False

  if (POS(FileExt,lowercase(FileName)) > 0) then

    begin

      Result := True

    end

end;



var

  {程序运行次数, Tv计数, 简体ass计数, 繁体ass计数}

  I, TvStart, ScAss, TcAss, start: Integer;

  { 合集名称, 季度, 自定义尾缀}

  TvName, Season, CurrExt: String;

  InputName: WideString;

  SplitInputName: TWideStringArray;

  { 文件扩展名 }

  Ext: String;



procedure Initialize;

begin

  // 初始化代码

  if WideInputQuery('renamer番剧命名脚本', '这里填名称+季度+其他信息(可选)+*(起始集数)就行： 例如: "游戏人生 (2014).S1.720p*1"', InputName) then

    begin

      { 分词拆分 - 开始集数 }

      start := 1;

      SplitInputName := WideSplitString(InputName, '*');

      if length(SplitInputName) = 2 then start := StrToInt(SplitInputName[1]);

      { 剧集信息 }

      SplitInputName := WideSplitString(SplitInputName[0], '.');

      if length(SplitInputName) < 2 then

        begin

          WideShowMessage('请确认输入信息是否有误');

          Exit;

        end

      else if length(SplitInputName) = 3 then CurrExt := ' - ' + SplitInputName[2];

      TvName := SplitInputName[0];

      Season := SplitInputName[1];

    end;

  TvStart := start;

  ScAss := start;

  TcAss := start;

end;



begin

  if I = 0 then Initialize;

  I := I + 1;

  Ext := WideExtractFileExt(FileName);



  { 匹配字幕文件 }

  if matchExt('sc.ass') or matchExt('chs.ass') or matchExt('zh-Hans.ass') or matchExt('.ssa') then

    begin

      Ext := '.zh-Hans' + Ext;

      FileName := TvName + ' - ' + Season + getEpisode(ScAss) + CurrExt + Ext;

      ScAss := ScAss + 1;

    end

  else if matchExt('tc.ass') or matchExt('cht.ass') or matchExt('zh-Hant.ass') then

    begin

      Ext := '.zh-Hant' + Ext;

      FileName := TvName + ' - ' + Season + getEpisode(TcAss) + CurrExt + Ext;

      TcAss := TcAss + 1;

    end

  else if matchExt('.ass') then

    begin

      FileName := TvName + ' - ' + Season + getEpisode(ScAss) + CurrExt + Ext;

      ScAss := ScAss + 1;

    end

  else

    begin

      FileName := TvName + ' - ' + Season + getEpisode(TvStart) + CurrExt + Ext;

      TvStart := TvStart + 1;

      {FileName := TvName + ' - ' + Season + Episode + CurrExt + Ext;}

    end;

end.

#2 - 2024-1-10 11:09

WutheringEthan

mark

#3 - 2024-1-10 11:22

pfrr

make

#4 - 2024-1-10 21:12

yutianzf

mark

#5 - 2024-1-10 21:13

JOTARO167 (路人)

牛牛牛

#6 - 2024-1-10 21:24

頂上ノ月🌙 (DD雷达搜寻中...?)

我一般选择直接重命名文件夹名

#7 - 2024-1-10 22:01

面包

我在 linux 下用 ranger，它有个 bulkrename 的功能很好用

/ 返回～技术宅真可怕～小组

～技术宅真可怕～ » 讨论ReNamer 番剧自动命名脚本

～技术宅真可怕～ » 讨论
ReNamer 番剧自动命名脚本