Discussion :

[p4nzer]

Bonjour,

au lancement de mon application, je souhaite remplir une de mes tables avec les données d'un fichier csv.
Pour ce faire, j'ai fait le code suivant :

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
20
21
22
23
24
25
26
27
 
SI fFichierExiste(fRepEnCours()+"/MatriceQuestionAttest.csv") ALORS
 
TitreSuivant("Récupération des données.....");
Sablier(Vrai);
 
HSupprimeTout(MatriceQuestionAttest);
 
sContenuFichier est une chaîne = fChargeTexte(fRepEnCours()+"/MatriceQuestionAttest.csv");
 
sCombu, sChapitre, sQuestion, sTypeChampForm, sReponseTxt, sUnite sont des chaînes;
POUR TOUTE CHAINE sLaChaîneLue DE sContenuFichier SEPAREE PAR Caract(13)
 
MatriceQuestionAttest.Combu = ExtraitChaîne(sLaChaîneLue,3,";");
MatriceQuestionAttest.Chapitre = ExtraitChaîne(sLaChaîneLue,4,";");
MatriceQuestionAttest.Ordre = ExtraitChaîne(sLaChaîneLue,5,";");
MatriceQuestionAttest.Question = ExtraitChaîne(sLaChaîneLue,6,";");
MatriceQuestionAttest.typeChampForm = ExtraitChaîne(sLaChaîneLue,7,";");
MatriceQuestionAttest.ReponseTxt = ExtraitChaîne(sLaChaîneLue,8,";");
MatriceQuestionAttest.unite = ExtraitChaîne(sLaChaîneLue,9,";");
 
HAjoute(MatriceQuestionAttest)
 
FIN
fSupprime(fRepEnCours()+"/MatriceQuestionAttest.csv");
Sablier(Faux);
FIN

Le problème est que, quand je lis les données de ma base après ce traitement, j'ai bien le bon nombre de lignes par rapport à mon CSV, mais elles sont toutes vides (sauf pour MatriceQuestionAttest.Ordre, qui une donnée de type entier, contrairement aux autres qui sont de type chaine).

D'où cela peut-il venir ?

Merci

[p4nzer]

Pour ceux qui rencontrent le même problème, c'était un simple défaut d'encodage.
Encodez votre fichier en UTF-8 et tout devrait fonctionner