[Pascal] [xEdit] Netrve Script

unit userscript;

var
  slOld, slNew: TStringList;
  sElementChange: String;

function Initialize: integer;
var
    lineCount: Integer;
begin
  slOld := TStringList.Create;
  slNew := TStringList.Create;
  InputQuery('Enter', 'Element to change', sElementChange);
  slOld.LoadFromFile('Edit Scripts\slOld.txt');
  slNew.LoadFromFile('Edit Scripts\slNew.txt');
end;

function Process(e: IInterface): integer;
var
  idx: integer;
  sOldValue, sNewValue: string;
begin
  sOldValue := GetElementEditValues(e, sElementChange);
  idx := slOld.IndexOf(sOldValue);
  if idx > -1 then begin
    sNewValue := slNew[idx];
    AddMessage(Format('Changing value %s to %s', [sOldValue, sNewValue]));
    SetElementEditValues(e, sElementChange, slNew[idx]);
  end
  else begin
    AddMessage(Format('Couldn''t find match for %s', [sOldValue]));
  end;
end;

function Finalize: integer;
begin
  slOld.Free;
  slNew.Free;
end;

end.