Lecture de fichier [Résolu]

gon_ak 197 Messages postés mardi 28 février 2006Date d'inscription 17 novembre 2006 Dernière intervention - 11 mai 2006 à 11:04 - Dernière réponse : gon_ak 197 Messages postés mardi 28 février 2006Date d'inscription 17 novembre 2006 Dernière intervention
- 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
NHenry 14281 Messages postés vendredi 14 mars 2003Date d'inscription 23 octobre 2018 Dernière intervention - 11 mai 2006 à 12:23
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)

Merci NHenry 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

gon_ak 197 Messages postés mardi 28 février 2006Date d'inscription 17 novembre 2006 Dernière intervention - 11 mai 2006 à 12:38
0
Merci
Merci infiniment NHenry
gon_ak 197 Messages postés mardi 28 février 2006Date d'inscription 17 novembre 2006 Dernière intervention - 11 mai 2006 à 12:41
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?
NHenry 14281 Messages postés vendredi 14 mars 2003Date d'inscription 23 octobre 2018 Dernière intervention - 11 mai 2006 à 12:46
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)
gon_ak 197 Messages postés mardi 28 février 2006Date d'inscription 17 novembre 2006 Dernière intervention - 11 mai 2006 à 12:55
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
NHenry 14281 Messages postés vendredi 14 mars 2003Date d'inscription 23 octobre 2018 Dernière intervention - 11 mai 2006 à 13:03
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)
gon_ak 197 Messages postés mardi 28 février 2006Date d'inscription 17 novembre 2006 Dernière intervention - 11 mai 2006 à 13:05
0
Merci
Et je peux garder la boucle dans ma fonction?
NHenry 14281 Messages postés vendredi 14 mars 2003Date d'inscription 23 octobre 2018 Dernière intervention - 11 mai 2006 à 13:18
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)
gon_ak 197 Messages postés mardi 28 février 2006Date d'inscription 17 novembre 2006 Dernière intervention - 11 mai 2006 à 13:41
0
Merci
Merci beaucoup!!!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.