You are not logged in.
Hi,
love your software, it's simple, powerful, and very handy.
Because of a server standard, I need to serialize using letters: a,b,c,d,.....,y,z,a1,b1,...etc.
Can that be done?
Thanks a lot,
Ma.
Offline
Yes, it can be done, using PascalScript rule.
If you have no experience in pascal/delphi programming, I can help you writing this script.
I will need to know variations of the serializing sequence... and where to insert it in the name.
For example, below is the code to append single letter from "abc...xyz" to each name, one-by-one.
var
I: Integer;
Letters: string;
Initialized: Boolean;
begin
if not Initialized then
begin
Letters := 'abcdefghijklmnopqrstuvwxyz';
Initialized := True;
I := 1;
end;
if I > Length(LETTERS) then I := 1;
FileName := FileName + Letters[i];
I := I + 1;
end.
Offline
This will go in this sequence: a,b,c,...,x,y,z,a1,b1,c1,...,x1,y1,z1,a2,b2,c2,...,x2,y2,z2,... ... ... x999999,y999999,z999999,.....
var
I, J: Integer;
Letters: string;
Initialized: Boolean;
begin
if not Initialized then
begin
Letters := 'abcdefghijklmnopqrstuvwxyz';
Initialized := True;
I := 1;
J := 0;
end;
if I > Length(LETTERS) then
begin
I := 1;
J := J + 1;
end;
FileName := FileName + Letters[i];
if J > 0 then
FileName := FileName + IntToStr(J);
I := I + 1;
end.
Offline
Good job, eagle!
Here is a slightly modified version of your code, which will skip the extension:
var
I, J: Integer;
Letters, Pad: string;
Initialized: Boolean;
begin
if not Initialized then
begin
Initialized := True;
Letters := 'abcdefghijklmnopqrstuvwxyz';
I := 1; J := 0;
end;
if I > Length(Letters) then
begin
I := 1; J := J + 1;
end;
Pad := Letters[i];
if J > 0 then
Pad := Pad + IntToStr(J);
FileName := WideStripExtension(FileName) +
Pad + WideExtractFileExt(FileName);
I := I + 1;
end.
Offline
ReNamer v6.7.0.2 Beta:
Added a selection of numeral systems to the Serialize rule: Decimal digits (0..9), English letters (a..z), Roman numerals (I,II,III,IV,...), Simplified Chinese, Custom alphabetic and Custom numeric.
Offline