Discussion :

[LordZener]

Bonjour à tous,
Voilà le problème, j'ai un tableau de caractères, que je parcours élément par élément. J'ai besoin de modifier ce tableau (par exemple ici enlever un élément).
Voici un exemple de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Tab As Char() = {"a", "b", "c", "d"}
 
For i As Integer = 0 To Tab.Length - 1
	If Tab(i) = "c" Then
		' On copie la lettre d'après et on la déplace à la position du "c"
		Array.Copy(Tab, i + 1, Tab, i, 1)
		' On redimensionne le tableau
		Array.Resize(Tab, Tab.Length - 1)
	End If
Next

Comment puis-je faire pour ne pas lever d'exception à cause de l'index "i" qui dépasse le tableau ?
Merci par avance à ceux qui m'aideront !

[LordZener]

La réponse était trop naze...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Tab As Char() = {"a", "b", "c", "d"}
Dim i As Integer = 0
While i <= Tab.Length - 1
	If Tab(i) = "c" Then
		' On copie la lettre d'après et on la déplace à la position du "c"
		Array.Copy(Tab, i + 1, Tab, i, 1)
		' On redimensionne le tableau
		Array.Resize(Tab, Tab.Length + 1)
	End If
	i = i + 1
End While

J'avais essayé plein de trucs avec des itérateurs et tout mais la réponse était vraiment simple...