Page loading

Share your opinion
What do you think about gambaslinux.fr?
 
Interesting
It miss some informations
Excellent website
Results
WIDGETS GAMBAS
GAMBAS 3 SOFTWARES
TUTORIALS
Library
work with files - CSV file to gridview
sorry, french only

IMPORTER UN FICHIER CSV DANS GB

csvtogb.png
Aujourd'hui nous allons essayer d'importer un fichier CSV (Fichier texte expoté de open office qui a des champs séparés par un symbole  point virugle, virgule ou autre...) dans une columnview de GB.
CREATION du FICHIER CSV
ouvrez open office tableur ou gnumeric puis saisissez des valeurs dans les cellulles.
enregistrez votre fichier au format CSV séparé par des points virgules.
nommez le monfichier.csv.

CREATION DU PROGRAMME.
Maintenant ouvrez votre IDE GAMBAS préférée et créez un  projet :
nommez le csvtogb.
ajouter au formulaire Fmain un bouton puis une columnview.
Saisissez ce code :

PUBLIC key AS Integer
PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()
ME.Center
END
PUBLIC SUB Button1_Click()
'clic sur bouton des contacts
DIM hFile AS File
DIM sLine AS String
DIM numclient AS Integer
DIM Car AS String
DIM bal AS Integer
DIM Pos AS Integer
DIM a AS Integer
ColumnView1.Columns.Count = 10 'nombre de colonne de votre fichier CSV exemple a 10
ColumnView1.Columns[0].Width = 150
'ouvre le fichier CSV dont les champs sont separés par des points virgules
hFile = OPEN Application.Path & "/monfichier.csv" FOR INPUT
'Ajouter les donnees dans la columnview
bal = 1
Car = ";" 'caractere separateur
'open the file contact.txt
INC key
WHILE NOT Eof(hFile)
LINE INPUT #hFile, sLine
INC key
Pos = InStr(sLine, Car, bal)
'add first column
ColumnView1.Add(key, Left$­­(sLine, Pos - 1))
'a est le numero de colonne
a = 0
DO WHILE (Pos <> 0 AND sLine <> "")
a = a + 1
'permet d'enlever à chaque fois la partie que lon a ecrit
sLine = Mid(sLine, Pos + 1, Len(sLine))
Pos = InStr(sLine, Car, bal)
ColumnView1[Key][a] = Left$­­(sLine, Pos - 1)
LOOP
WEND 
END

L'astuce du code réside dans les phrases en rouge, qui permettent de détecter le symbole séparateur puis d'en extraire le texte.
Voila pour aujourd'hui.


TELECHARGER L'EXEMPLE

Creation date : 25/07/2009 @ 22:00
Last update : 02/10/2009 @ 21:35
Category : work with files
Page read 5924 times


Print the article Print the article


react.gifReactions to this article


Reaction #1 

by pinky 25/07/2009 @ 22:34

Extra ce tuto.

Merci beaucoup.

QUICK MENU
SEARCH




LANGUAGE
COMPONENTS
Other
LANGUAGE
Where, who?
VISITS

   visitors

   visitors online

ARCHIVES GAMBAS 1/2
^ Top ^