1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
| Option Explicit
Dim Correspondance(26) As Ttab
Dim i As Integer
Dim j As Integer
Private Sub Form_Initialize()
Dim ChaineLettres As String
Dim DecoupeContenuChaine() As String
'dans celui que j'ai construit tous les parametres lettres et cases de la grille
' (lettres compte double, mots compte triple ....) sont contenus dans un fichier .TXT
'ici je met que les parametres des lettres
'ChaineLettres = données provenant d'un jeu de scrabble, total 102 lettres compris les 2 jockers
ChaineLettres = "9,A,1,2,B,3,2,C,3,3,D,2,15,E,1,2,F,4,2,G,2,2,H,4,8,I,1,1,J,8," _
& "1,K,10,5,L,1,3,M,2,6,N,1,6,O,1,2,P,3,1,Q,8,6,R,1,6,S,1,6,T,1," _
& "6,U,1,2,V,4,1,W,10,1,X,10,1,Y,10,1,Z,10,2,¤,0"
'3 parametres par lettre, exemples
'9,A,1 9= Nombre de lettres A dans un scrabble, A= lettre, 1=valeur de la lettre
'1,Z,10 1= Nombre de lettres Z dans un scrabble, Z= lettre, 10=valeur de la lettre
'le dernier (je ne sais pas si tu vas utiliser ?)
'2,¤,0 2=Nombre de lettres blanches pour jocker, 0 valeur
'decoupe de la chaine pour avoir chaque données séparées
'(placé dans la variable tableau DecoupeContenuChaine)
DecoupeContenuChaine = Split(ChaineLettres, ",")
'27 éléments de 0 à 26, 27° element pour le jocker, indice 26
j = 0 'variable pour incrémenter le tableau Correspondance
'UBound(DecoupeContenuChaine) permet de connaitre le nombre d'item du tableau DecoupeContenuChaine
'puisque 3 parametres par lettre, saute de 3 en 3 d'ou Step 3, 0..3..6..9..12 . . .
For i = 0 To UBound(DecoupeContenuChaine) - 1 Step 3
Correspondance(j).Nombre = DecoupeContenuChaine(i)
Correspondance(j).Lettre = DecoupeContenuChaine(i + 1)
Correspondance(j).Valeur = DecoupeContenuChaine(i + 2)
j = j + 1 'incrémente l'index du tableau Correspondance
Next i
End Sub |
Partager