Home

ReNamer で Pascal Script を使う

#renamer#pascal

fuji44

ReNamer で Pascal Script を使う。pascalの全機能が使えるわけではないらしい。

Pascal標準

文字列と整数の変換

StrToInt('123')
IntToStr(123)

参考

プロシージャ、関数

プロシージャは戻り値のない手続き処理のまとまり。関数は戻り値のある手続き処理のまとまり。という解釈でいいと思う。

procedure DoSomething (Para : String);  
begin  
  Writeln (’Got parameter : ’,Para);  
  Writeln (’Parameter in upper case : ’,Upper(Para));  
end;

関数の戻り値は、関数名または Result という変数に代入することで定義する。ReNamer だと後者でしか動作しないみたい。

function MyFunction : integer;  
begin  
  MyFunction:=12; // Return 12  
end;
function MyFunction : integer;  
begin  
  Result:=12; // Return 12 
end;

呼び出し方は組み込みの関数などと同じ。

var
  I: integer;

function MyFunction : integer;  
begin  
  Result:=12;
end;

begin
  I := MyFunction()
end.

参考

初期化処理

procedure で初期化処理を定義して、メイン処理の最初で呼び出す。初回だけ実行するように真偽型変数 Initialized で制御する。あとは好きなように初期化処理を行う。

この例では、インデックス変数の初期値設定を行っている。

var
  Initialized: Boolean;
  I: Integer;

procedure Initialize;
begin
  Initialized := True;
  I := 5;
end;

begin
  if not Initialized then Initialize;
  FileName := IntToStr(I) + '_' + FileName;
  I := I + 1;
end.

参考

ReNamer独自

ファイルパスの操作

参考

ダイアログ

ReNamer で用意された関数を呼び出すことで処理途中でダイアログを表示し、情報を伝えたり、ユーザからの入力を受けたりすることができる。

var
  Input: WideString;
  Seq: WideString;
begin
  if WideInputQuery('エピソード番号の指定', 'エピソード番号の開始番号を入力してください。', Input) then Seq := Input;
  FileName := 'video - episode.' + Seq '.mp4';
end.

参考