Conversion PHP -> Windev

Bonjour à tous,

Je n'arrive pas à convertir ces deux fonctions PHP en Windev, si quelqu'un peut m'aider...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

function num2alpha($n) {   for($r = ""; $n >= 0; $n = intval($n / 26) - 1)   $r = chr($n%26 + 0x41) . $r; return $r; }     function alpha2num($a) { $l = strlen($a); $n = 0; for($i = 0; $i < $l; $i++) $n = $n*26 + ord($a[$i]) - 0x40; return $n-1; }

---

Merci d'avance.

Citation:

---

Envoyé par xdoomer

Je n'arrive pas...

---

Mais encore ?
Qu'est-ce qui te pose problème ? Le code PHP ? Les fonctions WD ?

C'est la notation PHP que je ne comprend pas pour la traduction voila ce que j'ai fait mais cela ne fonctionne pas et n'est pas logique :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

PROCEDURE num2alpha(_n) r est une chaîne   r="" POUR i=0 A PartieEntière(_n/26)-1 r=Caract(modulo(_n,26)+0x41)+r FIN   Trace(r)   RENVOYER r     PROCEDURE alpha2num(_a)   l est un entier= Taille(_a) n est un entier = 0   POUR i=0 A l-1 n = n*26 + Asc(_a[[i]]) - 0x40 FIN   RENVOYER n-1;

---

déjà, je remplacerais ceci:

Code:

---

r=Caract(modulo(_n,26)+0x41)+r

---

par ceci :

Code:

---

r=Caract(modulo(_n,26)+65)+r

---

et ceci :

Code:

---

n = n*26 + Asc(_a[[i]]) - 0x40

---

par ceci :

Code:

---

n = n*26 + Asc(_a[[i]]) - 65

---