Déplacement dans le enregistrements

[Résolu]
Signaler
Messages postés
55
Date d'inscription
dimanche 15 août 2004
Statut
Membre
Dernière intervention
20 juin 2005
-
Messages postés
270
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
11 juillet 2007
-
Bonjour, Après avoir essayer moultes methodes pour lire et ecrire dans un fichier texte, j'ai essayer celle ci qui est plutot pas mal mais je ne saist toujours pas comment me deplacer a l'enregistrement suivant ou précédent pourriez vous m'aider ?????

voila le code

Structure.
 Public Structure contacts
        <VBFixedString(50)> Dim cat As String
        <VBFixedString(50)> Dim nom As String
        <VBFixedString(50)> Dim prenom As String
        <VBFixedString(50)> Dim adr As String
        <VBFixedString(50)> Dim vil As String
        <VBFixedString(50)> Dim cp As String
        <VBFixedString(50)> Dim digi As String
        <VBFixedString(50)> Dim tel As String
        <VBFixedString(50)> Dim mob As String
        <VBFixedString(50)> Dim fax As String
        <VBFixedString(50)> Dim mail As String
        <VBFixedString(50)> Dim adr2 As String
        <VBFixedString(50)> Dim vil2 As String
        <VBFixedString(50)> Dim cp2 As String
        <VBFixedString(50)> Dim digi2 As String
        <VBFixedString(50)> Dim tel2 As String
        <VBFixedString(50)> Dim fax2 As String
        <VBFixedString(50)> Dim comm As String
    End Structure
    Public nbr As Byte


Ecriture dans le fichier texte

ublic Sub ecrire()
       
        Dim reclength As Long
        Dim uncontact As contacts
        reclength = Len(uncontact)

        FileOpen(1, "c:\perso.txt", OpenMode.Random, , , reclength)

        uncontact.cat = Cbxcat.Text
        uncontact.nom = Textnom.Text
        uncontact.prenom = Textprénom.Text
        uncontact.adr = Textadr.Text
        uncontact.vil = TextVil.Text
        uncontact.cp = textcp.Text
        uncontact.digi = Textdig.Text
        uncontact.tel = TextPhone.Text
        uncontact.fax = TextFax.Text
        uncontact.mail = Textmail.Text
        uncontact.adr2 = Textadr2.Text
        uncontact.vil2 = Textvil2.Text
        uncontact.cp2 = TextCp2.Text
        uncontact.digi2 = Textdigi2.Text
        uncontact.tel2 = Textphone2.Text
        uncontact.fax2 = Textfax2.Text
        uncontact.comm = Textcomments.Text

        FilePut(1, uncontact, nbr)

        FileClose(1)
        Cbxcat.Text = ""
        Textnom.Text = ""
        Textprénom.Text = ""
        Textadr.Text = ""
        TextVil.Text = ""
        textcp.Text = ""
        Textdig.Text = ""
        TextPhone.Text = ""
        TextMob.Text = ""
        TextFax.Text = ""
        Textmail.Text = ""
        Textadr2.Text = ""
        TextCp2.Text = ""
        Textvil2.Text = ""
        Textdigi2.Text = ""
        Textphone2.Text = ""
        Textfax2.Text = ""
        Textcomments.Text = ""
    End Sub

   


Lecture

Public Sub lire()
        Dim reclength As Long
        Dim uncontact As contacts
        reclength = Len(uncontact)

        FileOpen(1, "c:\perso.txt", OpenMode.Random, , , reclength)

        FileGet(1, uncontact, )

        Cbxcat.Text = uncontact.cat
        Textnom.Text = uncontact.nom
        Textprénom.Text = uncontact.prenom
        Textadr.Text = uncontact.adr
        TextVil.Text = uncontact.vil
        textcp.Text = uncontact.cp
        Textdig.Text = uncontact.digi
        TextPhone.Text = uncontact.tel
        TextMob.Text = uncontact.mob
        TextFax.Text = uncontact.fax
        Textmail.Text = uncontact.mail
        Textadr2.Text = uncontact.adr2
        TextCp2.Text = uncontact.cp2
        Textvil2.Text = uncontact.vil2
        Textdigi2.Text = uncontact.digi2
        Textphone2.Text = uncontact.tel2
        Textfax2.Text = uncontact.fax2
        Textcomments.Text = uncontact.comm

        FileClose(1)

    End Sub


voila c'est tout mais quel est le code a partir de ca pour aller a l'enregistrement suivant

Merci de votre aide

3 réponses

Messages postés
55
Date d'inscription
dimanche 15 août 2004
Statut
Membre
Dernière intervention
20 juin 2005

laissez tomber j'ai trouver tout seul !!!!!
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
270
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
11 juillet 2007

Pardon, c'est quoi la réponse ?!
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
270
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
11 juillet 2007

Ben quoi la réponse ?!