Difference between revisions of "ReNamer:Pascal Script:Basic Conversion Routines"

From den4b Wiki
Jump to: navigation, search
(formatted, corrected IntToStr error)
Line 5: Line 5:
 
In this chapter we will take a look on serialization.  
 
In this chapter we will take a look on serialization.  
  
All we need to serialize filenames is an integer variable and a way to convert the number into a string. This type of convertion is done by '''IntToStr''' function. Convertion is necessary as FileName is a string and anything we want to add to a FileName must be also a string.
+
====Converting Integer to the String====
 +
All we need to serialize filenames is integer variable and a way to convert the number into a string. This type of convertion is done by '''IntToStr''' function. Convertion is necessary as FileName is a string and anything we want to add to a FileName must be also a string.
  
In the following script we will add a serialized number in front of the filename.
+
In the following script we will add serialized number in front of the FileName.
<pre><nowiki>
+
<source>
 
var
 
var
 
   i: Integer;
 
   i: Integer;
Line 15: Line 16:
 
   i := i + 1;
 
   i := i + 1;
 
end.
 
end.
</nowiki></pre>
+
</source>
This script always serialize from 0 to "infinity". It's because all the variables are set to their default values when you press Preview. And the default value of integers is 0. Would you mind trying to rewrite this script so it would start to serialize from 1? It's enough to swap the main two lines of code.
+
This script always serialize from 0 to "infinity". It's because all the variables are set to their default values when you press Preview. And the default value for integers is 0. Would you mind trying to rewrite this script so it would start to serialize from 1? It's enough to swap the main two lines of code.
  
<pre><nowiki>
+
<source>
 
   i := i + 1;
 
   i := i + 1;
 
   FileName := IntToStr(i) + '_' + FileName;
 
   FileName := IntToStr(i) + '_' + FileName;
</nowiki></pre>
+
</source>
  
 
Now '''i''' is incremented from default 0 to 1 before the first filename is changed. For now we can serialize from 0 or 1. How to start from a different number will be covered in the next chapter.
 
Now '''i''' is incremented from default 0 to 1 before the first filename is changed. For now we can serialize from 0 or 1. How to start from a different number will be covered in the next chapter.
  
 +
====Converting String to the Integer====
 +
And what if we have filenames that already start from a two-digit number and we want to increase these numbers by 2?
  
And what if we have filenames that already start from a two-digit number and we want to increase these numbers by 2 for example?
+
We need to extract the number from the FileName string, convert it to the integer, increase by 2 and then convert back to the string. It means we would need the '''StrToInt''' function which is the complete opposition to already known '''IntToStr'''.
 
+
<source>
We need to extract the number from the FileName string, convert it to integer, increase by 2 and then convert back to string. It means we would need the '''StrToInt''' function which is the complete opposition to already known IntToStr.
 
<pre><nowiki>
 
 
var
 
var
 
   i: Integer;
 
   i: Integer;
Line 39: Line 40:
 
   FileName := IntToStr(i) + WideCopy(FileName, 3, Length(FileName)-2);
 
   FileName := IntToStr(i) + WideCopy(FileName, 3, Length(FileName)-2);
 
end.
 
end.
</nowiki></pre>
+
</source>
  
Beware, if the string passed to StrToInt function cannot be converted into integer, function will fail and preview procedure will be terminated with an error message.
+
Beware, if the string passed to '''StrToInt''' function cannot be converted into integer, function will fail and preview procedure will be terminated with an error message.
  
 
If that doesn't suit us and we want to handle those cases, we can use '''StrToIntDef''' function that apart from the string takes the default integer value as a parameter and returns that value on failure. So we could use it like this:
 
If that doesn't suit us and we want to handle those cases, we can use '''StrToIntDef''' function that apart from the string takes the default integer value as a parameter and returns that value on failure. So we could use it like this:
  
<pre><nowiki>
+
<source>
 
   i := StrToIntDef(Number, -1);
 
   i := StrToIntDef(Number, -1);
 
   if i <> -1 then ...
 
   if i <> -1 then ...
</nowiki></pre>
+
</source>

Revision as of 16:15, 13 August 2009

{{{iparam}}} This article needs to be cleaned up!

Basic Conversion Routines or How to serialize files

In this chapter we will take a look on serialization.

Converting Integer to the String

All we need to serialize filenames is integer variable and a way to convert the number into a string. This type of convertion is done by IntToStr function. Convertion is necessary as FileName is a string and anything we want to add to a FileName must be also a string.

In the following script we will add serialized number in front of the FileName.

var
  i: Integer;
begin
  FileName := IntToStr(i) + '_' + FileName;
  i := i + 1;
end.

This script always serialize from 0 to "infinity". It's because all the variables are set to their default values when you press Preview. And the default value for integers is 0. Would you mind trying to rewrite this script so it would start to serialize from 1? It's enough to swap the main two lines of code.

  i := i + 1;
  FileName := IntToStr(i) + '_' + FileName;

Now i is incremented from default 0 to 1 before the first filename is changed. For now we can serialize from 0 or 1. How to start from a different number will be covered in the next chapter.

Converting String to the Integer

And what if we have filenames that already start from a two-digit number and we want to increase these numbers by 2?

We need to extract the number from the FileName string, convert it to the integer, increase by 2 and then convert back to the string. It means we would need the StrToInt function which is the complete opposition to already known IntToStr.

var
  i: Integer;
  Number: String;
begin
  Number := Copy(FileName, 1, 2);
  i := StrToInt(Number);
  i := i + 2;
  FileName := IntToStr(i) + WideCopy(FileName, 3, Length(FileName)-2);
end.

Beware, if the string passed to StrToInt function cannot be converted into integer, function will fail and preview procedure will be terminated with an error message.

If that doesn't suit us and we want to handle those cases, we can use StrToIntDef function that apart from the string takes the default integer value as a parameter and returns that value on failure. So we could use it like this:

  i := StrToIntDef(Number, -1);
  if i <> -1 then ...