[VB.NET] Obtenir un Char a partir de son ASCII Decimal ...

Version imprimable

09/09/2004, 11h45
maitrebn

[VB.NET] Obtenir un Char a partir de son ASCII Decimal ...

Bonjour,

J'aimerais savoir comment il faut faire en VB pour obtenir un char à partir de son code ASCII ...

Exemple : 65 = A !

1) J'ai bien pense à passer par l'Enum System.Windows.Forms.Keys mais ca m'embête d'avoir à faire une référence IHM sur un composant non IHM ...

2) Y'a bien Chr() mais bon c du VB6 ...

Merci d'avance !
09/09/2004, 11h53
Piotrek

Code:

Convert.ToChar(65)
09/09/2004, 12h37
maitrebn

Merci !

Bon, la c sur c'était pas compliqué ...

Merci encore !

Je profite (j'exagère pte)

J'essaye de générer à la voler :
A
B
[...]
AA
AB ...

Je n'arrive qu'a générer AA puis BB ...
09/09/2004, 12h39
Maniak

Ben ton algo est mauvais.
C'est à peu près tout ce qu'on peut dire avec la grande quantité d'informations que tu donnes :)
09/09/2004, 12h40
Piotrek

moi pas comprendre :koi:

comme ça a la volée je dirais:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
int shift = 65;
int n = 'longueur max des mots à générer';
for (int i=0; i<n*26; i++)
{
     int len = §(int) (i/26)) + 1;
     int temp = i;
     string res="";
      for (int j=0; j <len; j++)
      {
             res = Convert.ToChar((temp-(n-j)*26)+shift) + res;
              temp -= 26;
      } 
      Console.WriteLine(res);
}

mais c'est très approximatif et pas tres beau je touve :(

09/09/2004, 13h50
maitrebn
Alors je commence par m'excuser ... :boulet:

J'ai effectivement oublier une pêtite partie ... donc il en manquait un bout ...

Mon algo était le suivant :
Code:

1 2 3 4 5 6 7 Do str &= System.Convert.ToChar(65 + (int Mod 26)) int -= 26 Loop While int >= 0
ce qui fait qu'à 27 : 27 Mod 26 = 1 (B) et 27 - 26 = 1 B !!

Bref ...

En fait, plutot que de générer A ... AA ... AB ... ZZ ...

Je vais générer AAA, AAB, AAC ...

26 * 26 * 26 = 17576 possibilités ... je devrais pouvoir voir venir !

Merci et encore désolé ...

Alors, j'ai trouvé un algo qui répond à mon besoin
Code:

1 2 3 4 5 6 Do Dim mod As Int32 = (indexMod 26) index = Math.Max(Convert.ToInt32((index - mod) / 26), 0) str = System.Convert.ToChar(65 + mod) & str Loop While index > 0
Bon c pas parfait car il Z --> BA, BB, BC ... mais bon c pas mal ...

Merci encore !

Tu peux faire:

Code:

1
2
3
4
5
6
7
8
9
int i=... /le nbr que tu veux transformer
string s = "";
do
{
  s+=convert.ToChar(65+(i%26));
   i /= 26;
}while(i>0)
 
//et ici t'as plus qu'à retrourner ton string.