Passer de VB6 à VB.NET - Fichiers séquentiels

Bonjour,

Je n'arrive pas à trouver comment exploiter les données d'un fichier *.TXT dont les champs sont séparés par une virgule alors que j'y arrivais bien en VB6.
Voici comment se présentent les lignes dans le fichier :

8,1,"Lucien"
9,1,"Alix"
10,1,"Guillaume"
11,1,"Hortense et Pauline"

Voici un extrait de mon code en VB6 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim i%, j%, m% If laDate = "" Or Not IsDate(laDate) Then laDate = Date titreMsg$ = "À souhaiter le " & Format(laDate, "dddd d mmmm") Open leChemin$ & "\" & nomFich1$ For Input As #1 Do While Not EOF(1) Input #1, j%, m%, fete$ If j% = Day(laDate) And m% = Month(laDate) Then Exit Do End If Loop Close #1

---

--------

Pouvez-vous m'aider ?

D'avance, un grand merci !

Bonjour,

Les fichiers séquentiels en VB.Net, exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub BLire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BLire.Click   Dim FichierEntree As String = "X:\Tmp\MonFichierData.dat" Dim FEntree As BinaryReader FEntree = New BinaryReader(File.Open(FichierEntree, FileMode.Open, FileAccess.Read)) ' *** Dans ton exemple, chaque enregistrement a 3 champs : 2 entiers et une chaine While FEntree.PeekChar() <> -1 ' Si = -1, alors c'est l'EOF PremierEntier = FEntree.ReadInt32() SecondEntier = FEntree.ReadInt32() LaChaine = FEntree.ReadString() ' *** utiliser les données de cet enregistrement End While ' Tant qu'il y a des enregistremnt, on boucle ...   FEntree.Close   End Sub

---

J'espère que ceci t'aidera ....

Merci infiniment pour cette réponse rapide et efficace.
Grâce à toi, je vais m'en sortir.
Bonne semaine.

Attention, ton exemple semble être un fichier de lignes plutôt qu'un vrai séquentiel.
N'hésite pas à demander si problème ...
...

Désolé si j'ai mal qualifié mon fichier texte, c'est probablement ce qui fait que ça ne fonctionne pas parfaitement.
Voilà comment j'ai intégré ton code dans mon programme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub BtnAfficheFete_Click(sender As Object, e As EventArgs) Handles BtnAfficheFete.Click Dim FichierEntree As String = "fetes.txt" Dim FEntree As BinaryReader FEntree = New BinaryReader(File.Open(FichierEntree, FileMode.Open, FileAccess.Read)) ' *** Dans ton exemple, chaque enregistrement a 3 champs : 2 entiers et une chaine While FEntree.PeekChar() <> -1 ' Si = -1, alors c'est l'EOF jour = FEntree.ReadInt32() mois = FEntree.ReadInt32() fete = FEntree.ReadString() MsgBox(jour & ", " & mois & ", " & fete)' *************** Placé provisoirement ici pour contrôler au fur et à mesure la sortie **************** ' *** utiliser les données de cet enregistrement End While ' Tant qu'il y a des enregistremnt, on boucle ...   If jour = Date.Today.Day And mois = Date.Today.Month Then MsgBox("Aujourd'hui, on fête les " & fete) End If   FEntree.Close() End Sub

---

Je joins une copie d'écran des 3 premiers affichages du MsgBox (testFichier01.jpg).
Ces affichages se poursuivent jusqu'au mois de Mai puis le programme plante (testFichier02.jpg) avec une erreur d'exception.

Pièce jointe 459016Pièce jointe 459017

Mon fichier "fetes.txt" comporte 366 lignes correspondant à chacun des jours d'une année, y compris le 29 février.
Chaque ligne affiche le jour, le mois et le Saint du jour.
Elle se termine par un "retour chariot".
Chaque donnée étant séparée de la suivante par une virgule.

Est-ce suffisamment clair pour toi ? Merci encore pour ton aide.
Cordialement,

Je m'y attendais ... mais t’inquiète, voila le code adapté à ton fichier :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim FichierEntree As String = "D:\Tmp\FauxSequentiel.txt" Dim FEntree As StreamReader Dim UneLigne As String Dim Resultat() As String FEntree = New StreamReader(FichierEntree) ' *** Dans ton exemple, chaque enregistrement a 3 champs : 2 entiers et une chaine While FEntree.Peek() <> -1 ' Si = -1, alors c'est l'EOF UneLigne = FEntree.ReadLine() Resultat = UneLigne.Split(",") ' on obtient les résultats sous la forme de 3 chaines dans une table MessageBox.Show(Resultat(0) & " " & Resultat(1) & " " & Resultat(2).Replace("""", "")) ' Pour tests ' *** utiliser les données de cet enregistrement End While ' Tant qu'il y a des enregistrement, on boucle ... FEntree.Close()

---

N'hésite pas si besoin ...

Bon travail,

Trop fort !
Je vais tester et revenir te donner le résultat.
Merci, merci, merci !

Que dire d'autre que "Merci infiniment" ?

J'ai constaté que les guillemets dans mon fichier texte ne sont plus nécessaires.
En revanche, contrairement à VB6, les lettres accentuées sont remplacées par un petit losange noir contenant un point d'interrogation (voir copie d'écran).

Y a-t-il quelque chose à faire pour que ces lettres s'affichent correctement ?

Pièce jointe 459059

quand tu ouvres ton streamreader tu dois pouvoir préciser le type d'encodage du fichier (utf8 ou autre)
sans le préciser ca utilise celui par défaut dans windows (iso-88xx-? ou un truc dans le genre)
et si c'est pas le bon certains caractères ne sont pas compris

Voici la ligne d'ouverture adaptée (peut-être ... : j'ai utilisé Default, mais, il y a aussi UTF8, ASCII, ... et d'autres, si Default ne convient pas, tu dois faire des essais ... ) :

Code:

---

FEntree = New StreamReader(FichierEntree, System.Text.Encoding.Default)

---

C'est exactement l'instruction qui change tout.

Code:

---

System.Text.Encoding.Default

---

convient parfaitement.

Un très grand merci pour ton aide et ta disponibilité.

oublie pas de mettre la discussion résolue