[VB6] Modifier fichier texte
Utilisateur anonyme
-
doolidodom1 Messages postés 52 Date d'inscription Statut Membre Dernière intervention -
doolidodom1 Messages postés 52 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous
Ma question est assez simple....
Je créé un fichier texte, que je remplis avec certaines valeurs.
Je voudrais savoir comment je peux faire pour ne pas écraser les données présentes à chaque fois que je viens écrire dedans.
Je termine mon premier jet de valeur par un délimiteur (####) et je souhaiterai venir écrire les nouvelles à la suite de ce délimiteur.
Merci par avance
Ma question est assez simple....
Je créé un fichier texte, que je remplis avec certaines valeurs.
Je voudrais savoir comment je peux faire pour ne pas écraser les données présentes à chaque fois que je viens écrire dedans.
Je termine mon premier jet de valeur par un délimiteur (####) et je souhaiterai venir écrire les nouvelles à la suite de ce délimiteur.
Merci par avance
A voir également:
- [VB6] Modifier fichier texte
- Fichier bin - Guide
- Modifier dns - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Modifier extension fichier - Guide
1 réponse
Bonjour , oreilledelest!
Voici un script..
Imports System.IO
Sub FichierTexte(ByVal NomFichier As String)
Dim sr As StreamReader
Dim sw As StreamWriter
Dim sLine As String
Try
If Not File.Exists(NomFichier) Then
'Le fichier n'existe pas. On le crée
sw = New StreamWriter(NomFichier)
sw.WriteLine("Bonjour. Il nous sommes le {0} et il est {1} ", _
DateTime.Now.ToLongDateString, _
DateTime.Now.ToLongTimeString)
sw.Close()
sw = Nothing
'Remarque : On peut utiliser sw = File.AppendText(NomFichier) pour ajouter
'du texte à un fichier existant
End If
'Ouverture du fichier et Ecriture du contenu du fichier sur la console
sr = New StreamReader(NomFichier)
Console.WriteLine("Debut du fichier")
sLine = sr.ReadLine()
While Not sLine Is Nothing
Console.WriteLine(sLine)
sLine = sr.ReadLine()
End While
Console.WriteLine("Fin du fichier")
Finally
'Fermeture streamreader
If Not IsNothing(sr) Then sr.Close()
'Fermeture streamwriter
If Not IsNothing(sw) Then sw.Close()
End Try
End Sub
J'espere que cela t'inspireras...
Voici un script..
Imports System.IO
Sub FichierTexte(ByVal NomFichier As String)
Dim sr As StreamReader
Dim sw As StreamWriter
Dim sLine As String
Try
If Not File.Exists(NomFichier) Then
'Le fichier n'existe pas. On le crée
sw = New StreamWriter(NomFichier)
sw.WriteLine("Bonjour. Il nous sommes le {0} et il est {1} ", _
DateTime.Now.ToLongDateString, _
DateTime.Now.ToLongTimeString)
sw.Close()
sw = Nothing
'Remarque : On peut utiliser sw = File.AppendText(NomFichier) pour ajouter
'du texte à un fichier existant
End If
'Ouverture du fichier et Ecriture du contenu du fichier sur la console
sr = New StreamReader(NomFichier)
Console.WriteLine("Debut du fichier")
sLine = sr.ReadLine()
While Not sLine Is Nothing
Console.WriteLine(sLine)
sLine = sr.ReadLine()
End While
Console.WriteLine("Fin du fichier")
Finally
'Fermeture streamreader
If Not IsNothing(sr) Then sr.Close()
'Fermeture streamwriter
If Not IsNothing(sw) Then sw.Close()
End Try
End Sub
J'espere que cela t'inspireras...
ça ressemble à du .NET, non?
Y'a pas moyen de faire ça sans script?
Je voudrais faire ça le plus simplement du monde.
Merci quand même
un .cmd ou .bat?
echo "ecriture a la fin du fichier ">> fichier_de_sortie.txt