Discussion :

[malival]

Bonjour à toutes et à tous.
VB 6 et fichier txt
J'ai un fichier txt dans lequel, j'ai une liste de dates et à la droite de la date, j'ai le Saint correspondant. J'essaye de créer une procédure qui cherche la date du jour et me renvoie le saint correspondant à celle-ci.
Je n'ai rien trouver d'adaptable dans la FAQ.
Je vous remercie.
Malival

[ProgElecT]

Salut, bienvenue sur DVP

Pour ouvrir un fichier texte ---> OpenTextFile: Comment lire le contenu d'un fichier texte ?.
Pour éclater une chaine de caractères --> Split: Comment "éclater" une chaîne dans un tableau ?.

Pour ton besoin d'indexer une information, une variable de type Collection semblerait être le mieux adapté.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Dim MeCollection As New Collection
 
Private Sub Form_Load()
MeCollection.Add "Saint Francis", "13/04/56"
MeCollection.Add "Sainte Micheline", "05/10/55"
MeCollection.Add "Saint Yann", "02/07/83"
MeCollection.Add "Sainte Carine", "29/06/81"
 
MsgBox MeCollection("02/07/83")
MsgBox MeCollection("13/04/56")
MsgBox MeCollection("29/06/81")
MsgBox MeCollection("05/10/55")
End Sub

[malival]

Bonjour,
Merci beaucoup pour votre célérité, mais j'ai dû mal m'exprimer.
En fait, il s'agit d'un fichier texte, il y a les dates en colonne à gauche et les saints en colonne à droite, je saisi par exemple dans un textbox, une date, et dans un msgbox par exemple, cela renvoie le saint.

En fait c'est une recherche, qui trouve l'index à droite.

Merci
Malival

[SfJ5Rpw8]

bonjour,

et que sais-tu faire en VB6 ?

commence déjà par écrire le code permettant la lecture de ton fichier texte ... ProgElecT t'as donné un lien dans son message ...!

[malival]

Ok,
Merci beaucoup tout de même...
Très bonne soirée.
Malival