cs_tortuedu74
Messages postés99Date d'inscriptionvendredi 23 mars 2007StatutMembreDernière intervention27 mai 2009
-
23 avril 2009 à 14:56
thepoe
Messages postés30Date d'inscriptionvendredi 23 avril 2004StatutMembreDernière intervention 1 juin 2011
-
23 avril 2009 à 16:49
S'il vous plais,
en vb.net, est-ce-que quelqu'un pourrait m'aider a trouver une fonction qui supprimerai la dernière ligne d'un fichier txt?
J'ai déjà le code pour lire le nombre de lignes de mon fichier, il n'existe pas de fonction vb.net pour supprimer une ligne en lui passant le numéro de ligne?
thepoe
Messages postés30Date d'inscriptionvendredi 23 avril 2004StatutMembreDernière intervention 1 juin 2011 23 avril 2009 à 15:14
Salut
Je pense que tu peur utiliser la recherche de cvCrLf comme suit:
'soit TextBox1 un textbox multiligne
'le string complet peut aussi provenir du fichier dans ton cas
Dim str As String = TextBox1.Text
Dim crPos As Integer
Do
crPos = InStr(str, vbCrLf)
Loop Until crPos <> 0
dim resultat as string=Strings.Left(str, Strings.Len(str) - (crPos + 1))
MsgBox(resultat)
cs_tortuedu74
Messages postés99Date d'inscriptionvendredi 23 mars 2007StatutMembreDernière intervention27 mai 2009 23 avril 2009 à 15:32
OK, mais mes instruction sont clair (car c'est mon maitre de stage qui m'imposent des contraintes):
coder en aspx et vb.net.
Or la méthode SetLength de FileStream , je n'arrive pas a les utiliser ni dans l'un, ni dans l'autre.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 23 avril 2009 à 16:33
With New System.IO.StreamWriter("C:\a.txt", False)
.WriteLine("Mercure")
.WriteLine("Venus")
.WriteLine("Terre")
.WriteLine("Mars")
.WriteLine("Jupiter")
.WriteLine("Saturne")
.WriteLine("Uranus")
.WriteLine("Neptune")
.Write("Pluton")
.Close()
End With
With New System.IO.FileStream("c:\a.txt", IO.FileMode.Open, IO.FileAccess.ReadWrite)
.Seek(0, IO.SeekOrigin.End)
Do Until .ReadByte() 13 Or .Position 1
.Seek(-2, IO.SeekOrigin.Current)
Loop
.SetLength(.Position - 1)
.Close()
End With