Gambas France BETA


Pas de compte ? Incription

Comment créer un fichier en texte simple ?

1
AuteurMessages
PapyBasic#1 Posté le 30/9/2013 à 19:22:28
"Parfois l'obstination est une voie !"Bonjour à toutes et à tous, prenez un gars qui ne comprends pas tout dans le pingouin langage et demandez lui de faire un fichier simple !
pour réaliser un sismographe amateur, j'utilise comme interface l'entrée jeu de la carte son.
Les variations doivent être récupérées et inscrites dans un fichier.
Je souhaite un format du genre : :shock:
année mois jour heure minutes secondes millième datas-voie1 datas-voie2 datas-voie3 datas-voie4
aaaammjjhhmmssmmm,xxxx,yyyy,zzzz,wwww
aaaammjjhhmmssmmm,xxxx,yyyy,zzzz,wwww
aaaammjjhhmmssmmm,xxxx,yyyy,zzzz,wwww
aaaammjjhhmmssmmm,xxxx,yyyy,zzzz,wwww
le nombre de ligne n'a pas d'importance, le fichier sera ouvert à 00h00mn00s :affraid:
et sera clos à 23h59mn59,9999 :sleep:

Donc comment nommer un fichier, ou le déposer (home?)
Comment l'ouvrir, comment écrire, comment le fermer , ou bien un lien d'un exemple ...
Merci de votre patience, cordialement Papy :santa:

Reivillo#2 Posté le 1/10/2013 à 18:16:53
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonsoir PapyBasic.

Nomme ton fichier comme tu veux,
et enregistre-le dans ton Projet.
Exemple avec un TextAréa:
Pour enregistrer;
File.save(Application.Path & "/monfichier", TextAréa1.text)
Pour lire;
TextArea1.text = File.Load(Application.Path & "/monfichier")

Reivillo.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
Foromus#3 Posté le 2/10/2013 à 09:25:08
Bonjour tout le monde,

Confronté à ce genre de problème, j'utilise les commandes de fichiers, à savoir :

Pour créer ou sauvegarder un fichier :

1
2
3
4
5
6
7
8
PUBLIC SUB EcritureFichier ()
DIM Monfichier AS File
DIM Maligne AS STRING
Monfichier = OPEN "/home/toto.txt" FOR CREATE
PRINT #Monfichier, "a"
PRINT #Monfichier, "b"
......
CLOSE #Monfichier


Les variables "a" et "b" correspondent respectivement à une ligne soit :
aaaammjjhhmmssmmm,xxxx,yyyy,zzzz,wwww

Ensuite, pour les récupérer :

1
2
3
4
5
6
7
8
PUBLIC SUB LectureFichier ()
DIM Monfichier AS File
DIM Maligne AS STRING
Monfichier = OPEN "/home/toto.txt" FOR READ
LineInput #Monfichier, "a"
LineInput #Monfichier, "b"
......
CLOSE #Monfichier


Si on ne connaît pas le nombre de lignes, on utilise une boucle (après l'ouverture) :

1
2
3
4
WHILE NOT Eof(Monfichier)
LineInput #Monfichier, Maligne
......
WEND


Normalement et avec ça, ça doit marcher !
PapyBasic#4 Posté le 18/10/2013 à 23:05:55
"Parfois l'obstination est une voie !"" Houaaaaaaaaaaaaaa !
Vous êtes géniaux les poteaux !
Merci, merci, merci, merci ...................................
Merci! "
Pour les lecteurs étrangers peux habituer au langage d'un ours cavernicole du clavier, il faut lire :
" Houaaaaaaaaaaaaaa ! par Bravo !
Vous êtes géniaux, par vous êtes géniaux.
Les poteaux, par: les amis, ou les collègues, ou les compagnons de Tucs ........
Merci et les autres, par Merci mille fois !
Cordialement Papy
1