Extraire date dans nom de fichier txt

Résolu
DTRom1 Messages postés 1 Date d'inscription jeudi 28 avril 2005 Statut Membre Dernière intervention 2 juin 2005 - 2 juin 2005 à 16:19
cs_drahcir Messages postés 745 Date d'inscription mardi 30 novembre 2004 Statut Membre Dernière intervention 15 septembre 2009 - 2 juin 2005 à 19:24
Bonjour, j'ai un fichier style 05_05_16.txt dont le format est le suivant "yy_mm_dd.txt", je veux extraire la date et la mettre dans un variable date avec un format "dd/mm/yy".
Est-ce possible?
Merci !

~>Rom1

3 réponses

juju740 Messages postés 10 Date d'inscription mercredi 26 mars 2003 Statut Membre Dernière intervention 3 juin 2005
2 juin 2005 à 16:51
sub main()

dim nomFichier as string
dim maDate as string

'ici il faudra donc mettre le nom du ficheir dans nomFichier.
'La ligne suivante n'est qu'un exemple
nomFichier = "05_05_16.txt"

maDate = mid(nomFichier,7,2) & "/" & mid(nomFichier,4,2) & "/" & left(nomFichier,2)

end sub
3
cs_drahcir Messages postés 745 Date d'inscription mardi 30 novembre 2004 Statut Membre Dernière intervention 15 septembre 2009 4
2 juin 2005 à 16:51
Salut,

tu extraits la partie "date" de ta chaîne :

dim s as string
dim d as DateTime

s = "05_05_16.txt"
s = s.remove(s.indexOf(".", s.length())

d = DateTime.Parse(s)

@+
0
cs_drahcir Messages postés 745 Date d'inscription mardi 30 novembre 2004 Statut Membre Dernière intervention 15 septembre 2009 4
2 juin 2005 à 19:24
Désolé, j'avais pas vu que tu cherchais une réponse en vb...
@+
0