Page en cours de chargement

Donnez votre avis..
Que pensez-vous de gambaslinux.fr?
 
Interessant
Il manque des rubriques
excellent site
Résultats
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
Utiliser les fichiers - CSV dans gridview
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

Date de création : 25/07/2009 @ 22:00
Dernière modification : 02/10/2009 @ 21:35
Catégorie : Utiliser les fichiers
Page lue 5579 fois


Imprimer l'article Imprimer l'article


react.gifRéactions à cet article


Réaction n°1 

par pinky le 25/07/2009 @ 22:34

Extra ce tuto.

Merci beaucoup.

ACCES RAPIDE
RECHERCHE




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^