Supprimer un ligne dans un fichier et décrémenter les autres
cs_AzOnIc
Messages postés
3
Date d'inscription
lundi 14 avril 2003
Statut
Membre
Dernière intervention
13 mai 2005
-
13 mai 2005 à 22:56
capoueidiablo Messages postés 316 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 1 février 2010 - 22 mai 2005 à 12:24
capoueidiablo Messages postés 316 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 1 février 2010 - 22 mai 2005 à 12:24
A voir également:
- Supprimer un ligne dans un fichier et décrémenter les autres
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Chronomètre en ligne - Forum Java
- Supprimer les doublons sql ✓ - Forum SQL
- Fichier json - Conseils pratiques -Javascript
- Vba supprimer une feuille ✓ - Forum VBA Office (Excel, Word ...)
1 réponse
capoueidiablo
Messages postés
316
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
1 février 2010
1
22 mai 2005 à 12:24
22 mai 2005 à 12:24
Private Sub Form_Load()
Dim i As Integer
Dim Tableau() As String ' le tableau qui contiendra le fichier de sorti
Dim test As String ' le text a supprimer
Dim Ligne As String
Dim j As Integer
test = "1=ligne1"
j = 0
i = FreeFile ' un numero de fichier
Open "c:\test2.dck" For Input As #i
While Not EOF(i)
Input #i, Ligne
If Ligne <> test Then
ReDim Preserve Tableau(j)
Tableau(j) = Ligne
j = j + 1
End If
Wend
Close #i
'on ré-écris
Open "c:\test1.dck" For Output As #i
For j = 0 To UBound(Tableau)
Write #i, j & "=" & Tableau(j)
Next j
Close #i
End Sub
voili voilou, ... enfin je crois, j'ai repris le code que j'ai
posté y'a pas longtemps pour une autre personne :p cela je pense que ca
fonctionne
si tu souhaite juste "ligne1" et pas "1=ligne1" :
[...]
test = "ligne1"
[...]
If Mid$(s, InStr(1, ligne, "=", vbTextCompare) <> test Then
[...]
voila voila, y'a peut etre des erreurs vue que j'ai fais ca sans tester :p--Capoueidiablo--
Dim i As Integer
Dim Tableau() As String ' le tableau qui contiendra le fichier de sorti
Dim test As String ' le text a supprimer
Dim Ligne As String
Dim j As Integer
test = "1=ligne1"
j = 0
i = FreeFile ' un numero de fichier
Open "c:\test2.dck" For Input As #i
While Not EOF(i)
Input #i, Ligne
If Ligne <> test Then
ReDim Preserve Tableau(j)
Tableau(j) = Ligne
j = j + 1
End If
Wend
Close #i
'on ré-écris
Open "c:\test1.dck" For Output As #i
For j = 0 To UBound(Tableau)
Write #i, j & "=" & Tableau(j)
Next j
Close #i
End Sub
voili voilou, ... enfin je crois, j'ai repris le code que j'ai
posté y'a pas longtemps pour une autre personne :p cela je pense que ca
fonctionne
si tu souhaite juste "ligne1" et pas "1=ligne1" :
[...]
test = "ligne1"
[...]
If Mid$(s, InStr(1, ligne, "=", vbTextCompare) <> test Then
[...]
voila voila, y'a peut etre des erreurs vue que j'ai fais ca sans tester :p--Capoueidiablo--