IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Sans emploi
    Inscrit en
    novembre 2017
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Sans emploi
    Secteur : Conseil

    Informations forums :
    Inscription : novembre 2017
    Messages : 46
    Points : 26
    Points
    26
    Par défaut comment modifier un enregistrement dans un fichier a accès séquentiel
    Bonjour à tous,

    Je sais quele Qbasic est dépassé mais je reste dessus car ceci me rappelle de bons souvenirs. En fait je désirerais savoir comment modifier un enregistrement dans un fichier à accès séquentiel. Voici le code permettant d'ajouter des enregistrements
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Input "Nom ";Nom$
    Input "Prénom ";Prenom$
    open "fichier" for append as #1
    print #1,Nom$,Prenom$
    je voudrais pouvoir modifier le prénom d'un enregistrement mais ne vois pas comment faire. Quelqu'un pourrait-il me renseigner ?
    Merci d'avance à tous.

  2. #2
    Membre à l'essai
    Homme Profil pro
    pc
    Inscrit en
    novembre 2015
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : pc

    Informations forums :
    Inscription : novembre 2015
    Messages : 15
    Points : 18
    Points
    18
    Par défaut modifier un enregistrement
    bonjour orca29

    fait un nouveau dossier : le nom set: ZYX987
    dans dossier mettre le programme fichier.bas
    pour OPNE possibilite enregistrement
    pour disk dur ou cle usb
    exemple:
    ( C:\ZYX987\toto.txt ) ou ( C:\ZYX987\toto.dad )
    ( D:\ZYX987\toto.txt ) ou ( D:\ZYX987\toto.dad )
    ( E:\ZYX987\toto.txt ) ou ( E:\ZYX987\toto.dad )
    ( F:\ZYX987\toto.txt ) ou ( F:\ZYX987\toto.dad )
    ( G:\ZYX987\toto.txt ) ou ( G:\ZYX987\toto.dad )

    programm fichiers.bas

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    1 CLS
    2 INPUT "Nom "; Nom$
    3 INPUT "Prenom "; Prenom$
    4 ab$ = ""
    5 PRINT
    6 INPUT "Non du fichier "; ab$
    7 OPEN "C:\ZYX987\" + ab$ + ".txt" FOR APPEND AS #1
    8 PRINT #1, Nom$, Prenom$
    9 CLOSE #1
    si vous avez une qusetion ?

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Sans emploi
    Inscrit en
    novembre 2017
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Sans emploi
    Secteur : Conseil

    Informations forums :
    Inscription : novembre 2017
    Messages : 46
    Points : 26
    Points
    26
    Par défaut
    Bonjour Antec12 et merci de m'avoir répondu

    En fait je me suis trompé dans ma question. Je préfère m'intéresser aux fichiers à accès direct. J'ai créé un fichier nommé "Test.txt" et en voici le code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    CLS
    LNR=128
    OPEN "R", #1, "Test.text", LNR
    NENR = LOF(1) / LNR
    PRINT "Il y a ";NENR;" enregistrements"
    REM CREATION
    LINE INPUT "Nom ? ";Nom$
    NENR = LOF (1) / LNR
    RANG = NENR
    LSET N$ = Nom$
    LINE INPUT "Prénom ? ";PN$
     
    PUT #1, RANG
    CLOSE #1
    Je cherche à classer alphabétiquement mes enregistrements mais n'ai aucune idée sur la façon de procéder. Je sais qu'il existe plusieurs méthodes de tri. Est-ce quelqu'un saurait m'indiquer un bon exemple facile à comprendre et bien documenté pour procéder au tri ?

    Il me semble qu'il faut passer par un tableau mais n'en suis pas sûr.

    Je remercie vivement celui qui pourra m'aider car je n'ai absolument aucune documentation facile et pratique sur les tris des fichiers à accès direct (RANDOM).

    Bonne journée !

  4. #4
    Membre à l'essai
    Homme Profil pro
    pc
    Inscrit en
    novembre 2015
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : pc

    Informations forums :
    Inscription : novembre 2015
    Messages : 15
    Points : 18
    Points
    18
    Par défaut info
    classer alphabétiquement mes enregistrements

    si vous-avec windows
    fait un nouveau dossier
    dans le dossier mettre vos enregistrements par nom de famille

    pour vous amis

    pernon :
    nom de famille:
    vos enregistre avec nom de famille

    exemple:
    donne: qsdfghj

    si une seule famille

    pernon :
    nom de famille: + un espaces + les presone de ma famille

    exemple:
    pernom: toto
    nom de famille: azerty
    vos enregistre avec nom de famille

    donne : azerty papa
    donne : azerty mama
    donne : azerty moi

    dans les deux cas de figure: dans le dossier
    cil sur affchage pui sur reorganiser les icons par pui sur nom

    pour voter progamme ( OPEN "R", #1, "Test.DAT", LNR

    si vous-avec pas windows telechrager gnumeric pour adiword , mac ,ubumtu
    j'ai pas info sur ( RANDON )

  5. #5
    Membre à l'essai
    Homme Profil pro
    pc
    Inscrit en
    novembre 2015
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : pc

    Informations forums :
    Inscription : novembre 2015
    Messages : 15
    Points : 18
    Points
    18
    Par défaut info sur ( RANDOM )
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    CLS
    TYPE TestRecord
       NameField  AS STRING * 20
       ScoreField AS SINGLE
    END TYPE
     
    DIM Rec AS TestRecord
    DIM I AS LONG
     
    OPEN "d:\ZYX987\TESTDAT2.DAT" FOR RANDOM AS #1 LEN = LEN(Rec)
    CLS
    RESTORE
    READ NameField$, ScoreField
    I = 0
    DO WHILE NameField$ <> "END"
        I = I + 1
        Rec.NameField = NameField$
        Rec.ScoreField = ScoreField
        PUT #1, I, Rec
        READ NameField$, ScoreField
    LOOP
    CLOSE #1
     
    DATA "John Simmons", 100
    DATA "Allie Simpson", 95
    DATA "Tom Tucker", 72
    DATA "Walt Wagner", 90
    DATA "Mel Zucker", 92
    DATA "END", 0
     
    DIM FileBuffer AS TestRecord
    DIM Max AS LONG
    OPEN "d:\ZYX987\TESTDAT2.DAT" FOR RANDOM AS #1 LEN = LEN(FileBuffer)
     
    Max = LOF(1) \ LEN(FileBuffer)
     
     
    FOR I = 1 TO Max
        GET #1, I, FileBuffer
        PRINT FileBuffer.NameField, FileBuffer.ScoreField
    NEXT I
    CLOSE #1

  6. #6
    Nouveau membre du Club
    Homme Profil pro
    Sans emploi
    Inscrit en
    novembre 2017
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Sans emploi
    Secteur : Conseil

    Informations forums :
    Inscription : novembre 2017
    Messages : 46
    Points : 26
    Points
    26
    Par défaut
    Merci Antec12

    Merci pour votre exemple mais le tri n'est toujours pas effectué. Je ne sais pas comment faire pour classer alphabétiquement les enregistrements d'un fichier à accèd direct. Si quelqu'un a un exemple à me donner merci beaucoup !

  7. #7
    Membre à l'essai
    Homme Profil pro
    pc
    Inscrit en
    novembre 2015
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : pc

    Informations forums :
    Inscription : novembre 2015
    Messages : 15
    Points : 18
    Points
    18
    Par défaut classer alphabétiquement
    bonjour orca29

    si vous avez fait des enregistrements dans un fichier à accès séquentie
    ( OPEN "test.txt" FOR APPEND AS #1 )
    pour classer alphabétiquement des enregistrements
    j'ai mi dim(100) pour 100 enregistrement
    le programme basic a une possibilite limite

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    1 CLS : COLOR 15
    2 DIM a$(100)
    3 zz = 0: NB.Enr% = 0: zz = 1
     
    4 OPEN "test.txt" FOR INPUT AS #1
    5 DO UNTIL EOF(1) = -1
    6 LINE INPUT #1, ligne$
    7 a$(zz) = ligne$
    8 zz = zz + 1
    9 LOOP
    10 CLOSE #1
    11 NB.Enr% = zz - 1
     
    12 FOR a = 1 TO NB.Enr%
    13 PRINT a$(a)
    14 PRINT
    15 NEXT a
     
    16 PRINT
    17 FOR i = 1 TO NB.Enr% - 1
    18 FOR j = i + 1 TO NB.Enr%
    19 IF a$(j) < a$(i) THEN SWAP a$(j), a$(i)
    20 NEXT j
    21 NEXT i
    22 i = 0: j = 0
     
    23 FOR a = 1 TO NB.Enr%
    24 PRINT a$(a)
    25 PRINT
    26 NEXT a
     
    27 OPEN "test1.txt" FOR APPEND AS #2
    28 FOR xx = 1 TO NB.Enr%
    29 PRINT #2, a$(xx)
    30 NEXT xx
    31 xx = 0
    32 CLOSE #2
    33 END

  8. #8
    Nouveau membre du Club
    Homme Profil pro
    Sans emploi
    Inscrit en
    novembre 2017
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Sans emploi
    Secteur : Conseil

    Informations forums :
    Inscription : novembre 2017
    Messages : 46
    Points : 26
    Points
    26
    Par défaut
    Bonjour et merci beaucoup Antec12

    Merci pour votre exemple de programme de tri. Je m'aperçois que vous devez être vraiment fort en programmation et vous en félicite. Si vous le désirez, vous pouvez me laisser un ou plusieurs messages privés auxquels je répondrai. Mon prénom est Eric et habite le finistère (Bretagne). je ne suis pas tout jeune mais connais l'informatique depuis l'âge de mes 20 ans. Après m'être intéressé à Delphi 7 j'ai préféré faire un retour sur le QuickBasic qui me rappelle le bon vieux temps. En effet je reste nostalgique des tout premiers micro-ordinateurs de l'époque.

    Je vous souhaite une agréable journée !

  9. #9
    Membre à l'essai
    Homme Profil pro
    pc
    Inscrit en
    novembre 2015
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : pc

    Informations forums :
    Inscription : novembre 2015
    Messages : 15
    Points : 18
    Points
    18
    Par défaut messages privés
    j'ai fait un messages votre adresse mail a tu resu le mail

  10. #10
    Nouveau membre du Club
    Homme Profil pro
    Sans emploi
    Inscrit en
    novembre 2017
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Sans emploi
    Secteur : Conseil

    Informations forums :
    Inscription : novembre 2017
    Messages : 46
    Points : 26
    Points
    26
    Par défaut
    Bonjour Antec12

    Cela fait deux fois que je n'ai pas réussi à avoir tes messages privés; Je me demande si le forum ne bloque pas les messages. Je ne suis pas satisfait de ce site et je pense que je vais arrêter avec ce site. En tout cas, merci beaucoup !

  11. #11
    Membre à l'essai
    Homme Profil pro
    pc
    Inscrit en
    novembre 2015
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : pc

    Informations forums :
    Inscription : novembre 2015
    Messages : 15
    Points : 18
    Points
    18
    Par défaut info
    boujour

    dans le site vous avec fait:

    Comment effectuer un tri dans un fichier à accès direct (random)

    il y a une réponse Hier, 23h19

Discussions similaires

  1. Réponses: 6
    Dernier message: 15/02/2008, 11h10
  2. Modifier un enregistrement dans un fichier
    Par zykiel dans le forum VB 6 et antérieur
    Réponses: 7
    Dernier message: 07/02/2007, 22h23
  3. Réponses: 18
    Dernier message: 06/07/2006, 18h40
  4. Réponses: 1
    Dernier message: 28/01/2006, 12h36
  5. comment ne pas enregistrer dans le fichier log?
    Par trotters213 dans le forum MS SQL Server
    Réponses: 14
    Dernier message: 21/03/2005, 14h56

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo