Page 1 sur 1
Débutant
Publié : mer. 10/mai/2017 14:33
par Lutin
Bonjour,
Tout nouveau en programmation, j'ai téléchargé la version de démonstration limitée à 800 lignes. A la suite du test suivant, le fichier "test.txt" ne se créé pas et pourtant je n'ai fais que reprendre l'exemple trouvé dans l'aide en effectuant un copié/collé.
If OpenFile(0, "Test.txt") ; Ouvre un fichier existant ou en crée un nouveau s'il n'existait pas
FileSeek(0, Lof(0)) ; Place le pointeur à la fin du fichier en utilisant le résultat de Lof()
WriteStringN(0, "... une autre ligne à la fin du fichier.")
CloseFile(0)
EndIf
Quelqu'un peut-il m'aider ?
Merci d'avance.
Re: Débutant
Publié : mer. 10/mai/2017 14:41
par Zorro
le fichier "Test.txt" doit normalement se creer là ou tu as sauvé le prg code source "*.pb"
par exemple si tu sauves le listing avant de le compiler dans un dossier "c:\mon_prg"
lorsque tu lancera le code, le fichier sera crée dans ce meme dossier !!
si tu as lancé ce code sans avoir préalablement sauvé le listing
il y a de forte chance que le prg a généré le fichier "Test.txt" dans le chemin du compilateur (Purebasic )
en l'occurence , tu peux aussi indiquer a quel endroit tu veux que le prg sauve le fameux fichier comme ceci
Code : Tout sélectionner
Path.s ="c:\mon_prg\" ; ici je precise dans quel endroit le fichier doit etre sauvé,il faut avoir préalablement créé le dossier bien sur
nom.s="Test.txt"
If OpenFile(0, path.s+nom.s) ; Ouvre un fichier existant ou en crée un nouveau s'il n'existait pas
FileSeek(0, Lof(0)) ; Place le pointeur à la fin du fichier en utilisant le résultat de Lof()
WriteStringN(0, "... une autre ligne à la fin du fichier.")
CloseFile(0)
EndIf
si tu veux que ça creer un repertoire avant la sauvegarde , tu fais :
Code : Tout sélectionner
Path.s ="c:\mon_prg\" ; ici je precise dans quel endroit le fichier doit etre sauvé,
nom.s="Test.txt"
If FileSize(Path.s ) <>-2 ; le repertoire n'existe pas
CreateDirectory(Path.s ) ; on le creer
Endif
If OpenFile(0, path.s+nom.s) ; Ouvre un fichier existant ou en crée un nouveau s'il n'existait pas
FileSeek(0, Lof(0)) ; Place le pointeur à la fin du fichier en utilisant le résultat de Lof()
WriteStringN(0, "... une autre ligne à la fin du fichier.")
CloseFile(0)
EndIf
Re: Débutant
Publié : mer. 10/mai/2017 15:22
par Lutin
C'est super, je vais pouvoir continuer à apprendre.
Merci beaucoup
Re: Débutant
Publié : mer. 10/mai/2017 15:43
par Ar-S
Bienvenu à toi.
Un moyen simple de savoir ou tu travail est d'utiliser GetCurrentDirectory()
Tu peux faire un
Parenthèse concernant l'exe que tu génères.
Il est aussi parfois utile (je m'en sert tout le temps) dans les paramètres
Fichier / Préférences / dans la branche
Compilateur puis
Valeur par défaut de cocher
Créer l’exécutable temporaire dans le répertoire des sources.