increment alpha variable?

zfmejenny

I have a code variable that might be A or B or 1 or 2, etc.

I have a report that is using INCSTR(variable), but this is unable to increment the alpha variables.

Is it possible to increment to the next alpha?

Thanks!

ara3n

Here is an example on how to increment text. It will increment all the way to z.

t := 'tada';
if INCSTR(t) = '' then begin
  t[strlen(t)] := t[strlen(t)] + 1;
end else
  t := INCSTR(t);
message(t);

You can use it to do more complex code. Such as increment past z.

zfmejenny

Thanks Rashed! That worked great.

ara3n

you are welcome.

DenSter

That is a cool trick =D> it even goes beyond z

ara3n

It does go beyond z but I don't think having } as an increment makes sense.

DenSter

No that doesn't make sense indeed, but it is still a cool trick

ara3n

I usually use this trick to see if last character is a '\' when a directory is specified for files.

kriki

[Topic moved from Navision forum to Navision Tips & Tricks forum]
How wonderfull that I can sometimes move something TO the Tips & Tricks forum!

ara3n

It's sad that I have to look for my own tips and trick?

DenSter

I always do too

Jesse

tyvm for the sample and the tip!

ara3n

you are welcome.

kine

I am using this code to do the same, but with possibility to define the string of "numbers"...

IncStrAlpha(Code : Code[20]) : Code[20]
//Increment Alpha Strig
SeqText := '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; //sequence of "numbers"
i := STRLEN(Code);
REPEAT
  Pos := STRPOS(SeqText,FORMAT(Code[i]));
  IF Pos = STRLEN(SeqText) THEN BEGIN //Is last number in row
    Code[i] := SeqText[1];      //take first number
    i := i-1;              //change number on higher position
  END ELSE BEGIN
    Code[i] := SeqText[Pos+1];
    Switched := TRUE;
  END;
UNTIL Switched or (i = 0);
EXIT(Code);

Andwian

=D> :thumbsup: