Salut à tous...

Question #1: Comment fait-on pour supprimer une ligne dans un Tableau ???

Dim i AsInteger
For i = 0 To UBound(Tableau)
LigneSplit = Tableau(i).Split(Separateur)
If LigneSplit(0) = txtEfface.Text Then
Tableau(i).Empty
EndIf
Next i
Question #2: Comment fait-on pour supprimer une ligne dans un fichier texte

Dim

ObjetFichier As StreamReader = New StreamReader(NomDuFichier)
Try
Do
FichierTexte = ObjetFichier.ReadLine()
ReDimPreserve Tableau(Compteur)
LoopUntil FichierTexte IsNothing

Dim ObjetFichierW As StreamWriter = New StreamWriter(FichierSave, True)
Effacer la ligne qui commence par  txtEfface.Text


Merci de votre aide

ok merci...

Comment est-il possible de supprimer l'ensemble du fichier au complet sans supprimer le fichier...

C'est-à-dire que je pense faire un fichier qui se nommera Tempo. Ce fichier existera dans un répertoire et sera vide (vierge)... J'utiliserai ce fichier pour écrire temporaiement dedans  sans la ligne que je veux effacer... et ensuite réécrire dans le fichier original... Mais comment faire pour supprimer l'ensemble du fichier Original sans le détruire ??? Donc lire le fichier Original sans la ligne que je veux effacer. Effacer le fichier original. Réécrire dans la fichier original tout ce qui est dans le fichier Tempo.

merci de ton aide

J'ouvre mon fichier ORIGINE J'écris dans TEMPO sauf la ligne
Je ferme ORIGINE
Je ferme TEMPO
J'efface ORIGINE
Je renomme TEMPO en ORIGINE

Le savoir n'est que le filtre de l'experience

Ok cool...

2 Questions:

#1 Comment Effacer Origine ????
#2 Je ne sais pas qu'est ce que j'oublie mais je suis incapable de remplir mon tableau.
Qu'est ce qui ne vas pas ????

Dim i AsInteger
Dim ObjetFichier As StreamReader = New StreamReader(FichierSave)
Dim ObjetFichierW As StreamWriter = New StreamWriter(AppPathTempo & "\Tempo.txt", False)
Dim TableauTempo() AsString

Compteur = 0

Try
Do
FichierTexte = ObjetFichier.ReadLine()
LigneSplit = Tableau(i).Split(Separateur)
i = i + 1
If txtEfface.Text = LigneSplit(0) ThenGoTo Suivant
If Compteur = 0 Then
ReDim TableauTempo(Compteur)
Else
ReDimPreserve TableauTempo(Compteur)
EndIf
ObjetFichierW.WriteLine(TableauTempo(Compteur))
ObjetFichierW.Flush()
Suivant:
IfNot ObjetFichierW IsNothingThen ObjetFichierW.Close()
Compteur = Compteur + 1
LoopUntil FichierTexte IsNothing

IO.file.delete("NomDuFichierAvecCheminORIGINE")
IO.File.rename("NomDuFichierAvecCheminTEMPO" , "NomDuFichierAvecCheminORIGINE")

Le savoir n'est que le filtre de l'experience

Cool merci...

Et pour mon tableau vois-tu ce qui ne vas pas.. ??? ca fais une heure queje fais des teste...  je ne trouve pas et je suis certain que ca doit être un truc qui me saute aux yeux mais que je ne vois pas...

Merci pour tout

Au sujet de IO.File.rename("NomDuFichierAvecCheminTEMPO" , "NomDuFichierAvecCheminORIGINE")

le Rename n'est pas disponible...
J'ai de disponible...
AppendText
Copy
Create
CreateText
Delete
Exists
GetCreationTime
GetLastAccessTime
GetLastWriteTime
Move
Open
OpenRead
OpenText
OpenWrite