Discussion :

[SkYsO]

Bonjour,

J'aimerais savoir si vous aviez un algo qui me convertirait une chaine de caractère en entier. Mais je ne veux pas un entier genre le code ascii.

Plutôt du genre :

A=1
Z=26
AA=26+1=27
BA=26+26+1=53

Bref une qui me calculerait un indice par rapport aux lettres données

J'ai déjà la fonction inverse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function numerique_vers_alphabetique(nombre : integer) : string;  var entier, reste : integer;
    tempo : string;
begin
  entier := nombre div 26;
  reste := nombre mod 26;
  if reste = 0 then entier := entier-1;
  if entier > 0 then tempo := numerique_vers_alphabetique(entier);
  if reste > 0 then chaine := chaine + chr(reste+64)
  else chaine := chaine + 'Z';
  result := chaine;
end;

Voilà si quelqu'un à déjà traité une fonction de ce genre (sûrement toute simple) il me ferait gagné du temps

merci à tous

[mico2]

Tout ça ressemble à une simili base 27 sans zéro (chiffres de A=1 à Z=26)

A priori tu devrais pouvoir t'en sortir un trafiquant ce qui suit

Valeur du digit= ((Code ASCII - 64) X 26) puissance(Position du digit à partir de la droite -1)

En parcourant la chaine if suffit d'additionner le resultat de toutes les lettres.

[xavi]

A certaines optimisations et contrôles près, ça doit ressembler à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
function  alpha_to_num (chaine : string) : longint;
var
	i : integer;
	mult : longint;
	res : longint;
	a : longint;
begin
	mult:= 1;
	res:= 0;
	for i:= length(chaine) downto 1 do
	begin
		res:= res + mult * ( ord (chaine[i]) - ord ('A') + 1);
		mult:= mult *26;
	end;
	result:= res;
end;

[jmdeffet]

Bonjour!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
uses Math;
 
function AlphaToEntier(alpha:string):Integer;
var i:integer;
    p:extended;
begin
  p:=0;
  if length(alpha)<>0 then
    for i:=length(alpha) downto 1 do
      p:=p+(ord(upcase(alpha[i]))-64)* power(26,length(alpha)-i);
  result:=Round(p);
end;

[SkYsO]

merci beaucoup les gars

Bonne continuation