je voudrai scanner un répertoire contenant plusieurs fichiers.txt
lesquels contiennent des informations identiques réparties sur chaque
lignes.
A la fin de la procédure, il faudrait afficher le contenu
de ce répertoire sous la forme suivante :
nombre total de fichiers = X fichiers
dont :
- x fichiers ayant telle caractéristique à la 1 ère ligne = (x)
- x fichiers ayant telle caractéristique à la 2 ème ligne = (x)
etc...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
GorFFe
Dim r As String Dim aVt As String Dim aCp As Integer Dim aCp1 As Integer Dim aCp2 As Integer
' ================== ' Ouvre le répertoire
r = Dir(NomRepertoieAvecFichiers)
' ======================= ' Trouve tous les fichiers
Do While Not r = ""
' =============== ' Ouvre le fichier
Open NomRepertoieAvecFichiers & r For Input As #1
' ============================================= ' Procédure pour trouver les X lignes à vérifier
Do While Not EOF(1) Line Input #1, aVt ' If Avt = "Je ne sais pas moi !" then aCp1 = acp1 + 1 ' If Avt = "Je ne sais pas moi 2!" then aCp2 = acp2 + 1 Loop
Close #1
' ==================================== ' Garde en mémoire le nombre de fichier
aCp = aCp + 1
' ======================= ' Prend le fichier suivant
GorFFe "V.R" a écrit dans le message de news:usnWwJ$
Bonjour à toutes et à tous,
je voudrai scanner un répertoire contenant plusieurs fichiers.txt lesquels contiennent des informations identiques réparties sur chaque lignes.
A la fin de la procédure, il faudrait afficher le contenu de ce répertoire sous la forme suivante :
nombre total de fichiers = X fichiers dont : - x fichiers ayant telle caractéristique à la 1 ère ligne = (x) - x fichiers ayant telle caractéristique à la 2 ème ligne = (x) etc...
Avez-vous une idée sur la façon de faire ?
Merci pour votre attention,
Victor
Dim r As String
Dim aVt As String
Dim aCp As Integer
Dim aCp1 As Integer
Dim aCp2 As Integer
' ================== ' Ouvre le répertoire
r = Dir(NomRepertoieAvecFichiers)
' ======================= ' Trouve tous les fichiers
Do While Not r = ""
' =============== ' Ouvre le fichier
Open NomRepertoieAvecFichiers & r For Input As #1
' ============================================= ' Procédure pour trouver les X lignes à vérifier
Do While Not EOF(1)
Line Input #1, aVt
' If Avt = "Je ne sais pas moi !" then aCp1 = acp1 + 1
' If Avt = "Je ne sais pas moi 2!" then aCp2 = acp2 + 1
Loop
Close #1
' ==================================== ' Garde en mémoire le nombre de fichier
aCp = aCp + 1
' ======================= ' Prend le fichier suivant
GorFFe
"V.R" <lvrimmo@free.fr> a écrit dans le message de
news:usnWwJ$eFHA.1400@TK2MSFTNGP15.phx.gbl...
Bonjour à toutes et à tous,
je voudrai scanner un répertoire contenant plusieurs fichiers.txt
lesquels contiennent des informations identiques réparties sur chaque
lignes.
A la fin de la procédure, il faudrait afficher le contenu
de ce répertoire sous la forme suivante :
nombre total de fichiers = X fichiers
dont :
- x fichiers ayant telle caractéristique à la 1 ère ligne = (x)
- x fichiers ayant telle caractéristique à la 2 ème ligne = (x)
etc...
Dim r As String Dim aVt As String Dim aCp As Integer Dim aCp1 As Integer Dim aCp2 As Integer
' ================== ' Ouvre le répertoire
r = Dir(NomRepertoieAvecFichiers)
' ======================= ' Trouve tous les fichiers
Do While Not r = ""
' =============== ' Ouvre le fichier
Open NomRepertoieAvecFichiers & r For Input As #1
' ============================================= ' Procédure pour trouver les X lignes à vérifier
Do While Not EOF(1) Line Input #1, aVt ' If Avt = "Je ne sais pas moi !" then aCp1 = acp1 + 1 ' If Avt = "Je ne sais pas moi 2!" then aCp2 = acp2 + 1 Loop
Close #1
' ==================================== ' Garde en mémoire le nombre de fichier
aCp = aCp + 1
' ======================= ' Prend le fichier suivant
GorFFe "V.R" a écrit dans le message de news:usnWwJ$
Bonjour à toutes et à tous,
je voudrai scanner un répertoire contenant plusieurs fichiers.txt lesquels contiennent des informations identiques réparties sur chaque lignes.
A la fin de la procédure, il faudrait afficher le contenu de ce répertoire sous la forme suivante :
nombre total de fichiers = X fichiers dont : - x fichiers ayant telle caractéristique à la 1 ère ligne = (x) - x fichiers ayant telle caractéristique à la 2 ème ligne = (x) etc...
Avez-vous une idée sur la façon de faire ?
Merci pour votre attention,
Victor
V.R
Merci !
"GorFFe" a écrit dans le message de news: %23KGQOX$
Dim r As String Dim aVt As String Dim aCp As Integer Dim aCp1 As Integer Dim aCp2 As Integer
' ================== > ' Ouvre le répertoire
r = Dir(NomRepertoieAvecFichiers)
' ======================= > ' Trouve tous les fichiers
Do While Not r = ""
' =============== > ' Ouvre le fichier
Open NomRepertoieAvecFichiers & r For Input As #1
' ============================================= > ' Procédure pour trouver les X lignes à vérifier
Do While Not EOF(1) Line Input #1, aVt ' If Avt = "Je ne sais pas moi !" then aCp1 = acp1 + 1 ' If Avt = "Je ne sais pas moi 2!" then aCp2 = acp2 + 1 Loop
Close #1
' ==================================== > ' Garde en mémoire le nombre de fichier
aCp = aCp + 1
' ======================= > ' Prend le fichier suivant
GorFFe "V.R" a écrit dans le message de news:usnWwJ$
Bonjour à toutes et à tous,
je voudrai scanner un répertoire contenant plusieurs fichiers.txt lesquels contiennent des informations identiques réparties sur chaque lignes.
A la fin de la procédure, il faudrait afficher le contenu de ce répertoire sous la forme suivante :
nombre total de fichiers = X fichiers dont : - x fichiers ayant telle caractéristique à la 1 ère ligne = (x) - x fichiers ayant telle caractéristique à la 2 ème ligne = (x) etc...
Avez-vous une idée sur la façon de faire ?
Merci pour votre attention,
Victor
Merci !
"GorFFe" <Dominic.Dansereau@MelcoPf.com> a écrit dans le message de news:
%23KGQOX$eFHA.2520@TK2MSFTNGP09.phx.gbl...
Dim r As String
Dim aVt As String
Dim aCp As Integer
Dim aCp1 As Integer
Dim aCp2 As Integer
' ================== > ' Ouvre le répertoire
r = Dir(NomRepertoieAvecFichiers)
' ======================= > ' Trouve tous les fichiers
Do While Not r = ""
' =============== > ' Ouvre le fichier
Open NomRepertoieAvecFichiers & r For Input As #1
' ============================================= > ' Procédure pour trouver les X lignes à vérifier
Do While Not EOF(1)
Line Input #1, aVt
' If Avt = "Je ne sais pas moi !" then aCp1 = acp1 + 1
' If Avt = "Je ne sais pas moi 2!" then aCp2 = acp2 + 1
Loop
Close #1
' ==================================== > ' Garde en mémoire le nombre de fichier
aCp = aCp + 1
' ======================= > ' Prend le fichier suivant
GorFFe
"V.R" <lvrimmo@free.fr> a écrit dans le message de
news:usnWwJ$eFHA.1400@TK2MSFTNGP15.phx.gbl...
Bonjour à toutes et à tous,
je voudrai scanner un répertoire contenant plusieurs fichiers.txt
lesquels contiennent des informations identiques réparties sur chaque
lignes.
A la fin de la procédure, il faudrait afficher le contenu
de ce répertoire sous la forme suivante :
nombre total de fichiers = X fichiers
dont :
- x fichiers ayant telle caractéristique à la 1 ère ligne = (x)
- x fichiers ayant telle caractéristique à la 2 ème ligne = (x)
etc...
"GorFFe" a écrit dans le message de news: %23KGQOX$
Dim r As String Dim aVt As String Dim aCp As Integer Dim aCp1 As Integer Dim aCp2 As Integer
' ================== > ' Ouvre le répertoire
r = Dir(NomRepertoieAvecFichiers)
' ======================= > ' Trouve tous les fichiers
Do While Not r = ""
' =============== > ' Ouvre le fichier
Open NomRepertoieAvecFichiers & r For Input As #1
' ============================================= > ' Procédure pour trouver les X lignes à vérifier
Do While Not EOF(1) Line Input #1, aVt ' If Avt = "Je ne sais pas moi !" then aCp1 = acp1 + 1 ' If Avt = "Je ne sais pas moi 2!" then aCp2 = acp2 + 1 Loop
Close #1
' ==================================== > ' Garde en mémoire le nombre de fichier
aCp = aCp + 1
' ======================= > ' Prend le fichier suivant
GorFFe "V.R" a écrit dans le message de news:usnWwJ$
Bonjour à toutes et à tous,
je voudrai scanner un répertoire contenant plusieurs fichiers.txt lesquels contiennent des informations identiques réparties sur chaque lignes.
A la fin de la procédure, il faudrait afficher le contenu de ce répertoire sous la forme suivante :
nombre total de fichiers = X fichiers dont : - x fichiers ayant telle caractéristique à la 1 ère ligne = (x) - x fichiers ayant telle caractéristique à la 2 ème ligne = (x) etc...
