fichier csv

Bonjour,

Je suis debutant en VB et j'utilise eMbedded Visual Basic 3.0

Avant en VB j'utilisait :
Open "c:\data.csv" For Input As #1
Do While Not EOF(1)
Input #1, Nom, Prenom, Couleur, score
Loop
Close #1

Mais avec eMbedded Visual Basic 3.0 cela ne fonctionne pas

Si quelqu'un connait l'equivalent du code ci-dessus qui pourrait fonctionner sous eMbedded Visual Basic 3.0, je suis preneur

Merci

Une fonction split te permettra de séparer tes différentes valeurs

Juste faites-le

C'est un peu court jeune homme... on pourrait dire bien des choses en somme....

Je suis peut-être un peu exigeant, mais en admettant que j'utilise la fonction split, quelle fonction dois-je utiliser pour extraire les données

Pourrais-tu être plus précis sur ta réponse

Si tu as quelques lignes avec un exemple concret

Merci d'avance

désolé le split sera pour .net
pour evb

Dim Fic As FILECTL.File

Dim Ligne As Variant

Dim Nom, Prenom as string

Dim Score as integer

Set Fic = CreateObject("FILECTL.File")

Call Fic.Open(MonFichier, fsModeInput, fsAccessRead, fsLockReadWrite)

Do While Not Fic.EOF

 Ligne = Fic.InputFields(3)

 Nom = CStr(Ligne(0))

 Prenom = Cstr(Ligne(1))

 Score = CInt(Ligne(2))

'Tu traites l'info ici ligne par ligne

Loop

Call Fic.Close

Cela doit fonctionner

désolé le split sera pour .net
pour evb

Dim Fic As FILECTL.File

Dim Ligne As Variant

Dim Nom, Prenom as string

Dim Score as integer

Set Fic = CreateObject("FILECTL.File")

Call Fic.Open(MonFichier, fsModeInput, fsAccessRead, fsLockReadWrite)

Do While Not Fic.EOF

 Ligne = Fic.InputFields(3)

 Nom = CStr(Ligne(0))

 Prenom = Cstr(Ligne(1))

 Score = CInt(Ligne(2))

'Tu traites l'info ici ligne par ligne

Loop

Call Fic.Close

Cela doit fonctionner

tu radotes ^^

Tout d'abord merci Stephane33, pour ton aide.

Neanmoins, je rencontre un problème.

En regardant le code :

Ligne = Fic.InputFields(3)

On imagine une separation en trois champs

Puis

Nom = CStr(Ligne(0)) 
Prenom = Cstr(Ligne(1)) 
Score = CInt(Ligne(2)

L'extraction des champs de cette ligne se fait dans 3 variables.

mais en faite dans chaque variable, il ne met pas la separation des champs
de la ligne mais la ligne entière

autrement dit:
Nom=Martin;Paul;280
Prenom=Tchang;Lou;100
Score=Bernard;Luc;70

Cdlt

Re-bonjour,

J'ai trouvé la solution :

Je fais un

Ligne = Fic.InputFields(1)
data = CStr(Ligne(0))

puis je split la ligne comme tu me le conseillais tout au début

datasplit = Split(data, ";")

merci bien pour ton aide

A+

De mémoire il faut prendre en compte le séparateur de liste dans les Paramètre régionnaux/ (Paramètre/Système) du PDA, par défaut c'est la virgule, il faut y mettre le point virgule.
Sinon tu splites tout simplement tes lignes, alors une lecture simple suffit sinon change les paramètres régionnaux de ton PDA ou met une virgule comme séparateur dans ton fichier CSV

Juste faites-le

Par contre j'ai decouvert la rapidité de traitement des PDA. . . . .

La Base de données que j'utilise comporte environ 3000 lignes.

Alors quand ma recherche est dans les 1er ligne c'est rapide mais dans les dernières l'attente est longue.