Sujet Précédent Sujet Suivant

Modfier fichier texte

Résolu
cs_ludwig89 Messages postés 47 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 18 septembre 2009 - 21 sept. 2004 à 15:55
yomm Messages postés 515 Date d'inscription dimanche 17 février 2002 Statut Membre Dernière intervention 10 mars 2008 - 21 sept. 2004 à 16:14
bonjour

comment modifier simplement la premiere ligne d'un fichier
texte???? en vb6

merci de votre aide

2 réponses

Réponse 1 / 2
yomm Messages postés 515 Date d'inscription dimanche 17 février 2002 Statut Membre Dernière intervention 10 mars 2008 3
21 sept. 2004 à 16:14
tu peut faire ça.... 
    Dim Ligne As String
    Dim Reste As String
    
    Open "TonFichier" For Input As #13
        Line Input #13, Ligne
    Close #13

    Reste = Space(FileLen("TonFichier") - Len(Ligne))
    Open "TonFichier" For Binary Access Read As #1
        Get #1, Len(Ligne), Reste
    Close #1

    Ligne = "toto"

    Open "TonFichier" For Binary Access Write As #1
        Put #1, , Ligne
        Put #1, , Reste
    Close #1


ligne="toto" correspond a la modif ke tu as à faire

Yomm >:)

[mailto:yommvb@ifrance.com yommvb@ifrance.com]

Et que la source soit avec toi!!!!!
3
Réponse 2 / 2
cs_frop01 Messages postés 1352 Date d'inscription lundi 27 octobre 2003 Statut Membre Dernière intervention 19 novembre 2008 2
21 sept. 2004 à 16:13
exemple :

Ecrire dans un fichier Text 

Put, instruction, exemple
Cet exemple utilise l'instruction Put pour écrire des données dans un fichier. Cinq enregistrements de type Record défini par l'utilisateur sont écrits dans le fichier.

Type Record   ' Désigne un type défini par l'utilisateur.
   ID As Integer
   Name As String * 20
End Type

Dim MyRecord As Record, RecordNumber   ' Déclare les variables.
' Ouvre le fichier en accès aléatoire.
Open "FICHTEST" For Random As #1 Len = Len(MyRecord)
For RecordNumber = 1 To 5   ' Effectue la boucle 5 fois.
   MyRecord.ID = RecordNumber   ' Définit l'identificateur.
   MyRecord.Name = "Mon nom" & RecordNumber   ' Crée une chaîne.
   ' Écrit l'enregistrement dans le fichier.
   Put #1, RecordNumber, MyRecord
Next RecordNumber
Close #1   ' Ferme le fichier.


Lire le fichier Text 

Type Record   ' Désigne un type défini par l'utilisateur.
   ID As Integer
   Name As String * 20
End Type

Dim MyRecord As Record, Position   ' Déclare les variables.
' Ouvre l'exemple de fichier en accès aléatoire.
Open "FICHTEST" For Random As #1 Len = Len(MyRecord)
' Lit l'exemple de fichier à l'aide de l'instruction Get.
Position = 3   ' Définit le numéro d'enregistrement.
Get #1, Position, MyRecord   ' Lit le troisième enregistrement.
Close #1   ' Ferme le fichier.


:-p [mailto:cyberscorp2004@msn.com MSN] :big) [mailto:frop01@yahoo.fr YAHOO] >:)

Membre du club CodeS-SourceS
0
Rejoignez-nous