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

PureBasic Discussion :

Débutant cherche aide


Sujet :

PureBasic

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    employé
    Inscrit en
    mars 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 66
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : employé

    Informations forums :
    Inscription : mars 2017
    Messages : 2
    Points : 1
    Points
    1
    Par défaut Débutant cherche aide
    Débutant en Purebasic, je me trouve face à un problème. J'ai réussi à créer un fichier .txt avec mes données. Mais quand je veux ajouter de nouvelles données à ce fichier, il me
    les ajoute bien, mais supprime celles précédemment entrées.

    pouvez-vous me venir en aide ?

    Merci beaucoup.

    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
    ;------------------------------------------------------------------ Première Partie
     
    TbComb.S(1)="13,16,18,19,20"
    TbComb.S(2)="14,15,16,18,20"
    TbComb.S(3)="14,15,18,19,20"
    TbComb.S(4)="15,16,17,18,20"
     
     
     
        If OpenFile(0, "c:\Nouveau Dossier\Test4.txt")    
          FileSeek(0, Lof(0))                           
          For X=1 To fin
             WriteStringN(0, TbComb.S(X))
          Next
        CloseFile(0)
       EndIf
     
    ;--------------------------------------------------------- Deuxieme Partie, ajout de nouvelles données
     
    TbComb.S(5)="23,26,28,29,30"
    TbComb.S(6)="24,25,26,28,30"
    TbComb.S(7)="24,25,28,29,30"
    TbComb.S(8)="25,26,27,28,30"
     
     
     
        If OpenFile(0, "c:\Nouveau Dossier\Test4.txt")    
          FileSeek(0, Lof(0))                           
          For X=1 To fin
             WriteStringN(0, TbComb.S(X))
          Next
        CloseFile(0)
       EndIf

  2. #2
    Responsable Purebasic

    Avatar de comtois
    Inscrit en
    avril 2003
    Messages
    1 236
    Détails du profil
    Informations forums :
    Inscription : avril 2003
    Messages : 1 236
    Points : 8 116
    Points
    8 116
    Billets dans le blog
    8
    Par défaut
    j'ai remplacé la variable 'fin' qui n'est pas définie dans ton prog, et ça fonctionne très bien chez moi

    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
    ;------------------------------------------------------------------ Première Partie
     
    Dim TbComb.s(8)
    TbComb.S(1)="13,16,18,19,20"
    TbComb.S(2)="14,15,16,18,20"
    TbComb.S(3)="14,15,18,19,20"
    TbComb.S(4)="15,16,17,18,20"
     
     
     
        If OpenFile(0, "g:\Test4.txt")    
          FileSeek(0, Lof(0))                           
          For X=1 To 4
            WriteStringN(0, TbComb.S(X))
          Next
        CloseFile(0)
       EndIf
     
    ;--------------------------------------------------------- Deuxieme Partie, ajout de nouvelles données
     
    TbComb.S(5)="23,26,28,29,30"
    TbComb.S(6)="24,25,26,28,30"
    TbComb.S(7)="24,25,28,29,30"
    TbComb.S(8)="25,26,27,28,30"
     
     
     
        If OpenFile(0, "g:\Test4.txt")    
          FileSeek(0, Lof(0))                           
          For X=5 To 8
             WriteStringN(0, TbComb.S(X))
          Next
        CloseFile(0)
       EndIf
    Vous souhaitez participer à la rubrique PureBasic (tutoriels, FAQ, sources) ? Contactez-moi par MP.

  3. #3
    Nouveau Candidat au Club
    Homme Profil pro
    employé
    Inscrit en
    mars 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 66
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : employé

    Informations forums :
    Inscription : mars 2017
    Messages : 2
    Points : 1
    Points
    1
    Par défaut Erreur de débutant
    Merci beaucoup Comtois

Discussions similaires

  1. [Débutant] Débutant cherche aide pour traiter ses données
    Par glmeilleur dans le forum MATLAB
    Réponses: 24
    Dernier message: 17/03/2010, 12h51
  2. débutant cherche aide
    Par juzii dans le forum Débuter avec Java
    Réponses: 2
    Dernier message: 13/09/2008, 16h18
  3. débutant cherche aide : sql
    Par dz_robotix dans le forum Langage SQL
    Réponses: 3
    Dernier message: 28/09/2007, 14h32
  4. [SQL] Débutant cherche aide ou tutoriel
    Par bernardgiraud dans le forum PHP & Base de données
    Réponses: 5
    Dernier message: 23/07/2007, 12h05
  5. Débutant cherche aide
    Par rudhf dans le forum C++
    Réponses: 5
    Dernier message: 14/03/2007, 13h00

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