Lire tous les fichiers txt d'un dossier [Résolu]

McDEV04 42 Messages postés vendredi 24 août 2007Date d'inscription 1 octobre 2007 Dernière intervention - 21 sept. 2007 à 07:31 - Dernière réponse : McDEV04 42 Messages postés vendredi 24 août 2007Date d'inscription 1 octobre 2007 Dernière intervention
- 27 sept. 2007 à 02:38
Bozu !!!! (bonjour on langue indigene si si )

Une nouvelle idée qui me trotine la tête  :

Est ce qu'il serait possible de lire tous les fichiers txt d'un répartoire  un par un ? (si vous avez un lien)

Voilà je ne savais pas comment vous l'expliquer alors j'ai utilisé la bonne vieille méthode de l'algoritme
Peut être que mon algo est faux ou manque d'informations n'hésiter pas faite moi signe

Début
 
    Tant qu'on n'a pa parcouru tous les fichiers txt du dossier c:\machin\bidule faire
       'On ne connait pas le nom du fichier
    ouvrir le fichier
    nomfichier = le nom du fichier qui va être analyser
       'Pour compter le nombre de fichier analyser
    Compteur = Compteur + 1
    erreur = 0
    Tant que non fin de fichier faire
               lire ligne
               si <chaine de caractère> existe dans la ligne  alors
                            erreur = erreur + 1
               finsi
    fin tant que
    si erreur > 0 alors
          ecrire dans un fichier pas d'erreur dans le fichier " &nomfichier
          Sinon
                ecrire dans un fichier "il y a " &erreur& "dans le fichier" & nomFichier
     fin si
Fin tant que
 

Aligatogosaïmas ahahahah

Bon je go réfléchir sur ce nouveaux cas

 PS : Si seulement on nous avait apris le WSH et VBS au lieu du PASCAL (revolue).....lol
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
cs_JMO 1855 Messages postés jeudi 23 mai 2002Date d'inscription 24 juin 2018 Dernière intervention - 21 sept. 2007 à 13:12
3
Merci
 Bonjour à tous,

Bonjour McDev04,

un exemple:
Option Explicit Const ForReading 1, ForWriting 2, ForAppending = 8
Dim objFso, objFile, strPath, strExt
Dim File, Result
strPath = "D:\SCRIPTS\Fichiers\Sauve"
strExt = "txt"

Set objFso = CreateObject("Scripting.FileSystemObject")

Call ShowFileTxtFolder(strExt)

Set objFso = Nothing

Function ShowFileTxtFolder (strExt)
For Each objFile In objFso.GetFolder(strPath).Files
    If UCase(objFso.GetExtensionName(objFile.Path)) = UCase(strExt) Then
       Set File = objFso.OpenTextFile(objfile.Path, ForReading)
       MsgBox   File.ReadAll,,objFile.Path
       File.Close
       Set File = nothing
    End if  
Next
End Function

Salut Julien,
trop de questions floues !

jean-marc

Merci cs_JMO 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

Commenter la réponse de cs_JMO
McDEV04 42 Messages postés vendredi 24 août 2007Date d'inscription 1 octobre 2007 Dernière intervention - 21 sept. 2007 à 07:39
0
Merci
Heu je travaille en vbScript sous XPPRO sp2
Au cas ou 
Commenter la réponse de McDEV04
McDEV04 42 Messages postés vendredi 24 août 2007Date d'inscription 1 octobre 2007 Dernière intervention - 21 sept. 2007 à 07:41
Commenter la réponse de McDEV04
McDEV04 42 Messages postés vendredi 24 août 2007Date d'inscription 1 octobre 2007 Dernière intervention - 21 sept. 2007 à 07:43
0
Merci
Qu je suis mauvais il le fait en batch,    trop pressé
Commenter la réponse de McDEV04
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 21 sept. 2007 à 08:00
0
Merci
Salut,
Bon alors résolu ou pas????

@+: Ju£i?n
Pensez: Réponse acceptée
Commenter la réponse de jrivet
McDEV04 42 Messages postés vendredi 24 août 2007Date d'inscription 1 octobre 2007 Dernière intervention - 27 sept. 2007 à 02:38
0
Merci
Bonjour JM bonjour Julien : Navré pour avoir mis si longtemps à vous répondre

En tout cas
Merci merci c'est tous ce qu'il me fallait .
Je l'ai adapté à mon script (sa à pris un peu de temps mais... sa fonctionne) et tout est impec

Merci JM
Commenter la réponse de McDEV04

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.