[VB6]Problème avec la Fonction Split

Salut;

Quelqu'un peut me dire ce qui ne va pas dans mon Split? J'ai une erreur sur la ligne

Code:

---

monTab = Split(HiScores(i), " ")

---

Lorsque j'ai

Code:

---

Dim monTab as String

---

l'erreur est "Attendu tableau" et lorsque je déclare

Code:

---

Dim monTab (1 To 4) as String

---

l'erreur est "Impossible d'affecter au tableau".
Dans HiScore(i), il y a une chaîne, toujours sous la forme "nomJoueur Score NomJoueur Score".

Merci.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim monTab As String 'Dim monTab (1 to 4) as String Dim BestHiScore As Integer BestHiScore = 0 'Trouver le meilleur HiScore For i = 1 To 15 If HiScores(i) <> "" Then monTab = Split(HiScores(i), " ") If BestHiScore < CInt(monTab(2)) Then BestHiScore = CInt(monTab(2)) End If End If Next i

---

Bonjour,

Voici l'exemple repris

Code:

---

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

Private Sub Command1_Click() Dim monTab() As String ' c'est un tableau Dim HiScores() As String Dim BestHiScore As Integer   ReDim HiScores(2) For i = 0 To 2 HiScores(i) = "score " & i ' forme "score 0", "score 1", ... Next   BestHiScore = 0 'Trouver le meilleur HiScore For i = 0 To 2 If HiScores(i) <> "" Then monTab = Split(HiScores(i), " ") 'décompose If BestHiScore < CInt(monTab(1)) Then 'teste le 2éme éléments contenant le nombre BestHiScore = CInt(monTab(1)) ' note le nombre qui est dans le 2ème éléments du tableau End If End If Next i MsgBox BestHiScore End Sub

---

A+, Hervé

Ah ben c'était juste ça!
monTab commence à 0!
Merci!
:yaisse2:

Et si la chaîne que tu 'splites' a plus que 4 espaces... ? Vaut mieux déclarer un tableau sans dimentions, un tableau dynamique, quoi !

Code:

---

Dim monTableau() As String

---