Discussion :

[stef93130]

Bonjour

j'arrive tous juste dans le monde de Purebasic.

Je souhaite lire un fichier CSV puis ranger dans un tableau les données contenues afin de réutiliser ultérieurement.

avec ce code l'ensemble des données sont affichées.
comment puis je prendre en compte le ; pour séparer les données ?

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
If ReadFile(0, "test.txt")
 
  ; structure du fichier  
  ; Test1 ; Test2 ; Test3 ;
  ; Test4 ; Test5 ; Test6 ;
 
    While Eof(0) = 0          ; Boucle tant que la fin du fichier n'est pas atteinte. (Eof = 'End Of File') 
 
      a$=ReadString(0)        ;stockage chaine dans a$ 
 
           Debug a$           ; affichage de a$
 
    Wend
 
  CloseFile(0)
Else
  MessageRequester("PureBasic", "fichier non lu", 0)
EndIf
End

Par avance merci

stef

[comtois]

Salut, Bienvenue.

Pense à utiliser la balise [CODE] pour afficher ton code correctement.

Tu sélectionnes les lignes de ton code, puis tu cliques sur Ajouter balise [CODE] --> Deuxième ligne complètement à droite (#)

Ceci dit, voici un exemple pour extraire un champ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
; structure du fichier
Ligne1$ =  "Test1 ; Test2 ; Test3 ;"
 
nb = CountString(Ligne1$,";") ; Compte le nombre de champs dans la chaine
For i=1 To nb
  Debug Trim(StringField(Ligne1$,i,";")) ; affiche champ par champ c'est ici que tu peux coller le champ extrait dans ton tableau
Next i