Comment faire pour ouvrir tous les fichiers txt d'un repertoire, rechercher et r

Question

Bonjour,
J'ai besoin d'aide; J'ai X fichiers txt dans plusieurs répertoires et je dois les ouvrir et rempacer des chaines. J'ai trouvé sur le site comment remplacer des chaines pour un fichier mais il faudrait quelque chose d'automatique et qui fasse cela pour tous les fichiers d'un répertoire... Je n'y arrive pas!!!

Je sais que ca ne doit pas etre si simple mais si quelqu'un a assez de temps et de générosité pour m'aider ce serait vraiment trés sympa! :)

Grimmbow · Answer

tu dois parcourir tes dossiers en utilisant un FileSystemObject
(référence : Microsoft Scripting Runtime)

'Déclaration des variables
Dim Fs       As FileSystemObject
Dim Rep    As Folder
Dim Fichier As File

'Système de fichier
Set Fs = CreateObject("scripting.FileSystemObject")

'Tu récupère le répertoire qui t'intéresse
Set Rep=Fs.getFolder("chemin du répertoire")

'Tu parcours ensuite ton répertoire
For each Fichier in Rep.Files
     
        'Tu utilise ta fonction de remplacement

next

Grimmbow · Answer

tu dois parcourir tes dossiers en utilisant un FileSystemObject
(référence : Microsoft Scripting Runtime)

'Déclaration des variables
Dim Fs       As FileSystemObject
Dim Rep    As Folder
Dim Fichier As File

'Système de fichier
Set Fs = CreateObject("scripting.FileSystemObject")

'Tu récupère le répertoire qui t'intéresse
Set Rep=Fs.getFolder("chemin du répertoire")

'Tu parcours ensuite ton répertoire
For each Fichier in Rep.Files
     
        'Tu utilise ta fonction de remplacement

next

cs_DARKSIDIOUS · Answer

Il te suffit de lister tout tes fichiers dans un contrôle FileListBox, ensuite, tu les ouvre un par un (grâce à une boucle) dans un contrôle RichTextBox (comme ca, tu n'a pas les problèmes des LineInput du textbox), tu recherche le texte souhaité, tu récupère les coordonnées de la sélection, tu remplace la sélection par ton texte, puis tu charge le fichier suivant...
Si tu veux une précision sur une de ces fonctions, réponds à ce message.

DARK SIDIOUS

Cervomix · Answer

WOW! quelle rapidité dans les réponse; merci beaucoup!
hem disons que ces explications sont encore un peu trop poussées pour mon niveau :-/

Je comprends mieux ce que me dit Grimmbow,  je crois que je vais essayer sa solution! 

En tout cas merci beacoup!

Cervomix · Answer

Super! Merci beaucoup!!! Je vais essayer de faire comme tu m'as dit! Est ce que ca ne t'ennuie pas si jamais je te recontacte en PM pour de plus amples informations?

Grimmbow · Answer

Pas de problème.

metalimad · Answer

pour relancer ce sujet, j'ai besoin de faire la même chose sous VB6 sauf que le compilo me dit que le FileSystemObject n'est pas un type reconnu ..
faut-il inclure une libraire spéciale?

merci de votre aide

Grimmbow · Answer

Ouais, tu vas dans "référence" et tu coches  "Microsoft Scripting Runtime"

evilmajestik · Answer

Et comment fait-on pour filtrer si on ne veut que les fichiers .txt ?

Merci !

cs_DARKSIDIOUS · Answer

Et bien soit tu utilise un filtre avec un FileListBox par exemple, soit tu fait le tri toi-même avec la fonction InStr sur le nom des fichiers.
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

evilmajestik · Answer

j'ai pas compris dark...
j'utilise le code écrit ci-dessus et je vois pas où mettre le inStr dont tu parles...

Comment faire pour ouvrir tous les fichiers txt d'un repertoire, rechercher et r

11 réponses

Discussions similaires