Modifier un fichier .txt
Ronnie95
Messages postés
32
Date d'inscription
lundi 6 décembre 2004
Statut
Membre
Dernière intervention
9 novembre 2006
-
19 janv. 2006 à 23:27
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 20 janv. 2006 à 00:13
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 20 janv. 2006 à 00:13
A voir également:
- Modifier un fichier .txt
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Traitement dédoublonnage fichier ✓ - Forum C++ & C++ .NET
- Vectoriser un fichier photoshop ✓ - Forum Graphisme/design
1 réponse
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
20 janv. 2006 à 00:13
20 janv. 2006 à 00:13
tu peux faire des tas de choses
Dim Buffer As String * 21
Dim Table() As String
Dim i As Integer
Open tonfichier.txt For Random As #1 Len = 21
'Lecture de la deuxième Ligne
Get #1, 2, Buffer
'découpage par éléments
Table = Split(Buffer, ",")
For i = 0 To UBound(Table)
MsgBox Table(i)
Next
'modif d'un élément
Table(3) = """U4"""
Buffer = Join(Table, ",")
MsgBox Buffer
'réécriture
Put #1, 2, Buffer
'ou modif en bloc
Buffer = Replace(Buffer, "U", "Z")
Put #1, 2, Buffer
Close #1
Daniel
Dim Buffer As String * 21
Dim Table() As String
Dim i As Integer
Open tonfichier.txt For Random As #1 Len = 21
'Lecture de la deuxième Ligne
Get #1, 2, Buffer
'découpage par éléments
Table = Split(Buffer, ",")
For i = 0 To UBound(Table)
MsgBox Table(i)
Next
'modif d'un élément
Table(3) = """U4"""
Buffer = Join(Table, ",")
MsgBox Buffer
'réécriture
Put #1, 2, Buffer
'ou modif en bloc
Buffer = Replace(Buffer, "U", "Z")
Put #1, 2, Buffer
Close #1
Daniel
