Lecture de fichier [Résolu]

Messages postés
197
Date d'inscription
mardi 28 février 2006
Statut
Membre
Dernière intervention
17 novembre 2006
- - Dernière réponse : gon_ak
Messages postés
197
Date d'inscription
mardi 28 février 2006
Statut
Membre
Dernière intervention
17 novembre 2006
- 11 mai 2006 à 13:41
Bonjour à tous,

J'aimerais savoir si le code ci-dessous est valable pour lire un fichier csv?
Merci d'avance

'Pour lire un fichier
Public Sub sReadSettingIni() // Je peux remplacer sReadSettingIni par sReadSettingCsv
Dim fsoIni As New FileSystemObject
Dim fstIni As TextStream
Dim srtLine As String

Set fstIni=fsoIni.OpenTextFile(App.Path & [file://\\setting.ini \\setting.ini], ForReading, False)

While Not fstIni.AtEndOfStream
strLine=fstIni.ReadLine
If Len(srtLine)>0 Then
'Utilisation de strLine
End If
Wend
fstIni.Close

End Sub
Afficher la suite 

9 réponses

Meilleure réponse
Messages postés
14456
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
24 mai 2019
130
3
Merci
Bonjour

Remplace ta boucle :
While Not fstIni.AtEndOfStream
Wend
Par :
Do Until fstIni.AtEndOfStream
Loop
c'est plus propre.

Je suppose que tu code en VB6.
Ton code lit le fichier ligne par ligne, c'est valable pour tt fichier texte (Ini, CSV ou autre).


Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

Messages postés
197
Date d'inscription
mardi 28 février 2006
Statut
Membre
Dernière intervention
17 novembre 2006
0
Merci
Merci infiniment NHenry
Messages postés
197
Date d'inscription
mardi 28 février 2006
Statut
Membre
Dernière intervention
17 novembre 2006
0
Merci
Je me permets de poser une autre question. Si je remplace mon Sub par Function, Faudrait-il que je supprime la boucle du code?
Messages postés
14456
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
24 mai 2019
130
0
Merci
Bonjour

Et que devrait retourner ta fonction ?

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)
Messages postés
197
Date d'inscription
mardi 28 février 2006
Statut
Membre
Dernière intervention
17 novembre 2006
0
Merci
En fait, je voudrais qu'il me renvoi comme réponse s'il a pu ou non lire le fichier
Du genre:
Si lecture effectuée alors =1
Sinon =0
Messages postés
14456
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
24 mai 2019
130
0
Merci
Bonjour

Dans ce cas, il faut ajouter une gestion d'erreur, et mettre un booléen pour le retour.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)
Messages postés
197
Date d'inscription
mardi 28 février 2006
Statut
Membre
Dernière intervention
17 novembre 2006
0
Merci
Et je peux garder la boucle dans ma fonction?
Messages postés
14456
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
24 mai 2019
130
0
Merci
Bonjour

Tu dois.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)
Messages postés
197
Date d'inscription
mardi 28 février 2006
Statut
Membre
Dernière intervention
17 novembre 2006
0
Merci
Merci beaucoup!!!