Supprimer des lignes dans un fichier ???
mattflyer
Messages postés
63
Date d'inscription
samedi 22 mars 2003
Statut
Membre
Dernière intervention
29 novembre 2005
-
22 avril 2003 à 13:34
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 22 avril 2003 à 16:41
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 22 avril 2003 à 16:41
A voir également:
- Supprimer des lignes dans un fichier ???
- 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
- Vba supprimer une feuille ✓ - Forum VB.NET
- Vba commenter plusieurs lignes ✓ - Forum ASP / ASP.NET
3 réponses
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
22 avril 2003 à 14:03
22 avril 2003 à 14:03
Il faut ouvrir ton fichier (dans un contrôle TextBox par exemple) ou tu ne charge pas les 100 première lignes, puis tu enregistre le texte en écrasant l'ancien fichier.
DARK SIDIOUS
[Responsable de la rubrique API du site www.ProgOtoP.net]
DARK SIDIOUS
[Responsable de la rubrique API du site www.ProgOtoP.net]
mattflyer
Messages postés
63
Date d'inscription
samedi 22 mars 2003
Statut
Membre
Dernière intervention
29 novembre 2005
22 avril 2003 à 16:31
22 avril 2003 à 16:31
et comment on fait
open" lalal" for input as #1
-----> ???
Merci de ton aide
@+
Bon ben on va s'y mettre non ? :big)
Mattflyer
open" lalal" for input as #1
-----> ???
Merci de ton aide
@+
Bon ben on va s'y mettre non ? :big)
Mattflyer
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
22 avril 2003 à 16:41
22 avril 2003 à 16:41
Dim STR_Ligne As String
Dim INT_Nombre_Ligne As Integer
INT_Nombre = 0
Open "c:\Fichier.txt" For Input As #1
Do While Not EOF(1) 'Boucle sur toutes les lignes
INT_Nombre = INT_Nombre + 1
Line Input #1, STR_Ligne 'Lecture de la ligne
If INT_Nombre > 100 Then
'on rajoutte la ligne au texte
Text1.Text = Text1.Text & VbCrlf & STR_Ligne
EndIf
Loop
Close #1
Voilà, normalement ca devrait marcher ;-)
DARK SIDIOUS
[Responsable de la rubrique API du site www.ProgOtoP.net]
Dim INT_Nombre_Ligne As Integer
INT_Nombre = 0
Open "c:\Fichier.txt" For Input As #1
Do While Not EOF(1) 'Boucle sur toutes les lignes
INT_Nombre = INT_Nombre + 1
Line Input #1, STR_Ligne 'Lecture de la ligne
If INT_Nombre > 100 Then
'on rajoutte la ligne au texte
Text1.Text = Text1.Text & VbCrlf & STR_Ligne
EndIf
Loop
Close #1
Voilà, normalement ca devrait marcher ;-)
DARK SIDIOUS
[Responsable de la rubrique API du site www.ProgOtoP.net]
