Discussion :

[twixi]

Bonjour à tous codeurs chevronnés!

Je réalise actuellement une application qui doit ouvrir automatiquement un fichier. Malheureusement ce fichier n'a pas de nom fixe.
Ce fichier se présente comme ceci: releve_xxx.txt où xxx représente des chiffres.

J'aimerais savoir comment l'on fait pour ouvrir ce type de fichier, en ayant stocké la valeur de xxx dans une variable.

Je déclare mon fichier comme un String ( Private fichier As Stream = ("\My Documents\releve_001.txt")
Comment dans cette déclaration dois-je procéder pour 001 soir pris à partir d'une variable?

Je vous remercie d'avoir pris du temps de me lire et vous remercie d'avance pour l'aide que vous allez m'apporter!

[dudule]

Bonjour,

Tu peux faire comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
dim mon_fichier as String = "c:\monfichier_{0}.txt"
dim monNombre as String = "001"
dim mon_fichier_formate as String = String.Format(nom_fichier, nomNombre)

Il va remplacer

{0}

par

001

J'espere avoir répondu a ta question.
Kenavo !

[Faladin]

Hum,

Pourquoi pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Var as string = "001"
Private chemin as string = "\My Documents\releve_" & Var & ".txt"
Private fichier As Stream = (chemin)

[twixi]

Bonjour,

Tout d'abord merci à dudule et Faladin pour vos méthodes!
Cependant ici, le nombre est entré en dur dans le code.
Dans mon répertoire ne figure qu'un seul fichier formater de la sorte: releve_001.txt.

j'aimerai lire le fichier commencant par releve_ et récupérer le 001 pour le stocker dans une variable.
Est-ce Possible?

Merci de votre aide

[banjo12]

Tu n'as qu' à parcourir les fichiers de ton repertoire et tester si le nom du fichier commence avec releve_.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        For Each nomFichier As String In System.IO.Directory.GetFiles("chemin_dossier")
            If nomFichier.StartsWith("releve_") Then
                Dim monChiffre As String = nomFichier.Substring(7, 3) ' = 001
            End If
        Next

Dis moi (et aux autres) si ça te vas !!

[tomlev]

il y a plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
        For Each nomFichier As String In System.IO.Directory.GetFiles("chemin_dossier", "releve_*.txt")
            Dim monChiffre As String = nomFichier.Substring(7, 3)
            ...
        Next