Lecture de plusieur données dans une fichier texte

MetalOS · Message par **MetalOS** » mer. 15/avr./2009 19:24

Salut tous le monde,

Alors pour commencer voici le contenue de mon fichier texte à lire.

Date; Time; Counter absolute values
15.04.2009; 16:12:31;1
15.04.2009; 16:12:46;1
15.04.2009; 16:13:02;2
15.04.2009; 16:13:17;2
15.04.2009; 16:13:33;2
15.04.2009; 16:13:48;2
15.04.2009; 16:14:04;2
15.04.2009; 16:14:19;2
15.04.2009; 16:14:35;2
15.04.2009; 16:14:50;2
15.04.2009; 16:15:06;2
15.04.2009; 16:15:21;2
15.04.2009; 16:15:37;2
15.04.2009; 16:15:52;2
15.04.2009; 16:16:08;2
15.04.2009; 16:16:23;2
15.04.2009; 16:16:39;2
15.04.2009; 16:16:54;2
15.04.2009; 16:17:10;2
15.04.2009; 16:17:25;2
15.04.2009; 16:17:41;2
15.04.2009; 16:17:56;2
15.04.2009; 16:18:12;2
15.04.2009; 16:18:27;2
15.04.2009; 16:18:43;2
15.04.2009; 16:18:58;2
15.04.2009; 16:19:14;2
15.04.2009; 16:19:29;2
15.04.2009; 16:19:45;2
15.04.2009; 16:20:00;2
15.04.2009; 16:20:16;2
15.04.2009; 16:20:31;2
15.04.2009; 16:20:47;2
15.04.2009; 16:21:02;2
15.04.2009; 16:21:18;2
15.04.2009; 16:21:33;2
15.04.2009; 16:21:49;2
15.04.2009; 16:22:04;2
15.04.2009; 16:22:20;2
15.04.2009; 16:22:35;2
15.04.2009; 16:22:51;2
15.04.2009; 16:23:06;2
15.04.2009; 16:23:22;2
15.04.2009; 16:23:37;2
15.04.2009; 16:23:53;2
15.04.2009; 16:24:08;2
15.04.2009; 16:24:24;2
15.04.2009; 16:24:39;2
15.04.2009; 16:24:55;2
15.04.2009; 16:25:10;2
15.04.2009; 16:25:26;2
15.04.2009; 16:25:41;2
15.04.2009; 16:25:57;2
15.04.2009; 16:26:12;2
15.04.2009; 16:26:28;2
15.04.2009; 16:26:43;2
15.04.2009; 16:26:59;2
15.04.2009; 16:27:14;2
15.04.2009; 16:27:30;2
15.04.2009; 16:27:45;2
15.04.2009; 16:28:01;2
15.04.2009; 16:28:16;2
15.04.2009; 16:28:32;2
15.04.2009; 16:28:47;2
15.04.2009; 16:29:03;2
15.04.2009; 16:29:18;2
15.04.2009; 16:29:34;2
15.04.2009; 16:29:49;2
15.04.2009; 16:30:05;2
15.04.2009; 16:30:20;2
15.04.2009; 16:30:36;2
15.04.2009; 16:30:51;2
15.04.2009; 16:31:07;2
15.04.2009; 16:31:22;2
15.04.2009; 16:31:38;2

Bon je n'est pas tous mis car le fichier reçois une nouvelle ligne toutes les 15 secondes.

Donc je cherche dans un premier temps à lire la deuxième ligne du fichier en récupèrent la date dans une variable String et l'heure dans une autre variable String. Puis ensuite de lire la dernière ligne du fichier pour récupérer dans une variable String la date, dans une autre variable String l'heure et dans une dernière variable String le chiffre qui ce trouve après le ";" juste derrière l'heure.

A savoir que la récupérations de ces données doit être faite toute les 15 secondes.

Si quelqu'un pouvait m'aider car je ne c pas du tous par ou commencer. Merci d'avance.

case · Message par **case** » mer. 15/avr./2009 20:04

Code : Tout sélectionner

rd=ReadFile("fichier.txt") ; metre ici le nom du fichier
rd_li$=ReadString(rd) ; lis la premiere ligne sans la traiter 
If rd
  rd_li$=ReadString(rd) ; lis la seconde ligne 
  
  date$ =StringField(rd_li$,1,";") ; recupere la date
  heure$=StringField(rd_li$,2,";") ; recupere l'heure
  count$=StringField(rd_li$,3,";") ; recupere le compteur ?
  
  Repeat                       
    rd_li$=ReadString(rd)       ; lis la ligne actuelle
  Until Eof(rd)                ; jusqu'a la fin du fichier
  CloseFile(rd)
  ; la derniere ligne du fichier a ete lue on recupere ses informations
  
  date2$ =StringField(rd_li$,1,";") ; recupere la date
  heure2$=StringField(rd_li$,2,";") ; recupere l'heure
  count2$=StringField(rd_li$,3,";") ; recupere le compteur ?
EndIf
; 
Debug "seconde ligne du fichier"
Debug "date      : "+date$ 
Debug "heure     : "+heure$
Debug "compteur  :"+count$
Debug "derniere ligne du fichier"
Debug "date      : "+date2$ 
Debug "heure     : "+heure2$
Debug "compteur  :"+count2$

enfin tu devrais quand même lire un peu la doc de Pure basic

je te laisse deviner comment le lire toute les 15 secondes

MetalOS · Message par **MetalOS** » mer. 15/avr./2009 20:18

Merci pour ton aide case, j'ai lu la doc seulement je ne savais pas comment mettre en ordre les commande pour obtenir ce que je voulais.

brossden · Message par **brossden** » jeu. 16/avr./2009 13:53

Bonjour plus simple et qui fonctionne :

Code : Tout sélectionner

OpenFile(1,"c:\fichier.txt")
Ligne.s = ReadString(1)
Mot1.s = StringField(Ligne,1,";")+" : "
Mot2.s = "  ----   "+StringField(Ligne,2,";")+" : "
Mot3.s = "  ----   "+StringField(Ligne,3,";")+" : "
Ligne.s = ReadString(1)
While Not Eof(1)
  Debug Mot1+StringField(Ligne,1,";")+Mot2+StringField(Ligne,2,";")+Mot3+StringField(Ligne,3,";")
  Ligne.s = ReadString(1)
Wend
CloseFile(1)