Lecture de fichierRésolu

Question

Bonjour &#224; 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

NHenry · Accepted Answer

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&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

gon_ak · Answer

Merci infiniment NHenry

gon_ak · Answer

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 · Answer

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&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

gon_ak · Answer

En fait, je voudrais qu'il me renvoi comme r&#233;ponse s'il a pu ou non lire le fichier
Du genre:
Si lecture effectu&#233;e alors =1 
Sinon =0

NHenry · Answer

Bonjour

Dans ce cas, il faut ajouter une gestion d'erreur, et mettre un bool&#233;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&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

gon_ak · Answer

Et je peux garder la boucle dans ma fonction?

NHenry · Answer

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&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

gon_ak · Answer

Merci beaucoup!!!

Lecture de fichier

9 réponses

Discussions similaires