je comprends pas ce que fait la commandeRésolu

Question

la commande est dans une fonction NbrLigne 
Const Fichier = "c:	ree.tmp"
on a copi&#233; au pr&#233;alable dans le fichier tree.tmp tous les chemins de tous les fichiers de tous les dossiers et sous dossiers via la commande :
Fenetre = Shell("cmd.exe /c " + Chr(34) + "dir c:\*.* /s /b > " + Fichier + Chr(34), vbHide)

Function NbrLigne(Fichier As Variant)
    On Error Resume Next
    NbrLigne = -1
    Open Fichier For Input As #14   
        If Err = 0 Then
            While Not EOF(14) 
                Line Input #14, a 
                NbrLigne = NbrLigne + 1
            Wend
        End If
    Close #14
End Function

Si quelqu' un pourait m expliquer ce que fait ce qui est en rouge ...&#231;a m aiderait beaucoup ...

mrdep1978 · Accepted Answer

Ah la la, les codes sans commentaires 

'Ouvre le fichier c:	ree.tmp en lecture (For Input) en lui donnant le num&#233;ro de canal 14 (num&#233;ro qui permet de r&#233;f&#233;rencer le fichier que tu as ouvert)

    Open Fichier For Input As #14   
'Teste si il a r&#233;ussi &#224; ouvrir le fichier
        If Err = 0 Then
'Parcourt le fichier jusque &#224; sa fin (EOF = End Of File)
            While Not EOF(14) 
'Lit la ligne en cours du fichier et la stocke dans la variable a
                Line Input #14, a 
'Incr&#233;mente le nb de lignes lues
                NbrLigne = NbrLigne + 1
            Wend
        End If
'Ferme le fichier
    Close #14

madbob · Answer

ouverture d'un fichier en ecriture du fichier sous la r&#233;f&#233;rence #14

si tout va bien

    tant que je suis pas au bout du fichier

        j'&#233;cri a (sur la ligne en cours)

        je compte le nbre de ligne
    fintant que

fin erreur

je ferme le fichier
madbob

madbob · Answer

a Z... il lit la ligne 

madbob

madbob · Answer

Double Z le fichier est ouvert en lecture....
Enfin l'aide en ligne, c'est partique pour ce genre de chose non ?
madbob

Gobillot · Answer

La fonction lit le fichier et compte le nombre de Lignes ce qui devrait correspondre au nombre total de fichiers, elle renvoie -1 en cas d'erreur.
pour l'appeler:
    Dim totalfichier As Long
    totalfichier = NbrLigne(Fichier)

il est pr&#233;f&#233;rable de sp&#233;cifier le type renvoy&#233; par la Fonction
    Private Function NbrLigne(Fichier As Variant) As Long

    - - - - - - - - - -
    End Function

Daniel

ndsaerith · Answer

Cela compte le nombre de lignes qu'il y a dans ton fichier (qui doit etre au format t exte).
Traduction :

    
Open Fichier For Input As #14   
ouvrir le fichier "fichier" en lecture en tant que 14
14 c juste une sorte d'alias tu aurait pu mettre n'importe quoi &#224; la place
for input c en lecture, il y a la possibilit&#233; de mettre en &#233;criture (for append) ou en ajout (for output)
        If Err = 0 Then
         Ca je sais pas par contre, c surement pour dire s'il il n'y a pas                       d'erreurau    niveau       du    fichier       (chemin, extention...)
                     While Not EOF(14) 
                     Tant que ce n'est pas la fin du fichier (eof = end of file)
                                  Line Input #14, a 
                                 mettre dans la variable a la ligne en cours
                                  NbrLigne = NbrLigne + 1
                                 incr&#233;menter le compteur de lignes de 1 (il a dc &#233;t&#233; initialis&#233; &#224; 0 avant la fonction)
                     Wend
                     refaire
        End If
         finsi
         Close #14

fermer les fichier

Voila j'esp&#232;re t'avoir aid&#233;.

BIz

mrdep1978 · Answer

La commande Line Input #14, a fait &#233;galement en sorte que tu avances &#224; la ligne suivante dans le fichier

Je comprends pas ce que fait la commande

7 réponses

Discussions similaires