Extraire les informations contenues dans le nom du fichier lors de son ouverture [Résolu]

Signaler
Messages postés
44
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
4 janvier 2006
-
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
-
Bonjour,

Quelqu'un serait m'expliquer comment extraire les informations contenues dans le nom du fichier lors de son ouverture dans deux RichTextBox?
Mes fichiers texte sont tous nommé de la manière suivante:

exemple1.txt

où "exemple" représente une activité professionnelle et le numéro qui le suit un département en 1 ou 2 chiffres.

Je voudrais pouvoir lors de l'ouverture du fichier en extraire l'activité dans une Richtexbox et le département dans une seconde RichTextBox.

Par avance merci
François

3 réponses

Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
1
Activite = ""
Departement = ""

Nom = "Exemple01.txt"

For i = 1 To Len(Nom)
If Mid(Nom, i, 1) >= "0" And Mid(Nom, i, 1) <= "9" Then
Departement = Departement + Mid(Nom, i, 1)
ElseIf Mid(Nom, i, 1) = "." Then
Exit For
Else
Activite = Activite + Mid(Nom, i, 1)
End If
Next i
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 134 internautes nous ont dit merci ce mois-ci

Messages postés
44
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
4 janvier 2006

Merci pour ce code, en remplaçant "Exemple01.txt" par RichTextBox1.text, ça fonctionne sans problème.

Merci de ton aide

François
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 134 internautes nous ont dit merci ce mois-ci

Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
1
Il faut quand meme que la structure de ton nom soit toujours la meme (alors peut importe la longueur du département)