VB.Net Problème avec un Tableau

Résolu
cs_JeffC1977 Messages postés 928 Date d'inscription vendredi 10 novembre 2000 Statut Membre Dernière intervention 23 septembre 2023 - 1 nov. 2007 à 13:46
cs_JeffC1977 Messages postés 928 Date d'inscription vendredi 10 novembre 2000 Statut Membre Dernière intervention 23 septembre 2023 - 1 nov. 2007 à 14:14
Salut à tous...

J'ai un problème avec un Tableau et je ne trouve pas la solution....
Je dois coder un facon pour effacer un ligne dans un tableau... Je m'y prend bisarement mais je absolument utiliser cette facon de faire....

Tableau = String
TableauTempo = String
J'ai un tableau avec tois lignes et je veux effacer une ligne...
J'ai un tableau qui ressemble à cela...
352 -111.5832 244.1727 -0.2960 50
355 10.9664 259.7962 -0.2960 50
356 6.3258 287.0802 -0.2960 50

Je veux effacer la ligne contenant le 352 (première ligne)
Ma variable Tableau contient ces trois lignes.
Je veux que mon TableauTempo devienne comme cela 
355 10.9664 259.7962 -0.2960 50
356 6.3258 287.0802 -0.2960 50

Le problème.....
Quand j'arrive à la ligne en gras et soulignée, mon i vaut 1 car il a déjà été incrémenté. Il a passé par la condition IF...

Alors j'ai un message d'erreur disant:
Conversion from String "355 10.9664 259.7962 -0.2960 50" to type Integr is not valid

Comment régler ce problème ????

Merci d'avance

P.S. Stephanne. Je n'ai pas eu de message d'erreur pour l'instant (pour le code que tu m'as donné). Je fais des tests et je te redonne des news...

Dim

j
As
Integer = 0

If

txtEfface.Text <> Tableau(i).Split(Separateur)(0) Then
   If j = 0
Then
       ReDim TableauTempo(Tableau(i))
      TableauTempo(i) =
CStr(Tableau(i))
      j = 1

   Else
      ReDim
Preserve TableauTempo(Tableau(i))
      TableauTempo(i) =
CStr(Tableau(i))

   End
If
End
If

1 réponse

cs_JeffC1977 Messages postés 928 Date d'inscription vendredi 10 novembre 2000 Statut Membre Dernière intervention 23 septembre 2023 4
1 nov. 2007 à 14:14
J'ai trouvé....

If txtEfface.Text <> Tableau(i).Split(Separateur)(0)
Then
ObjetFichierW.WriteLine(Tableau(i))
ObjetFichierW.Flush()

If j = 0
Then
ReDim TableauTempo(j)
TableauTempo(j) = Tableau(i)

Else
ReDim
Preserve TableauTempo(j)
TableauTempo(j) = Tableau(i)

End
If
j = j + 1

End
If
Next i
3
Rejoignez-nous