Lecture d'un fichier texte et ajout dans une table

Bonjour,

Je vous joins le code qui me permettait de lire et écrire un fichier texte,

Code:

---

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

'--- Ouverture de la tbl Set rs1 = db.OpenRecordset("tbl Adhérents MDP") '--- Effectue la boucle jusqu'à la fin du fichier. While Not EOF(iInt_Fichier) Line Input #iInt_Fichier, Ligne If Left(Ligne, 11) = "Identifiant" Then iStr_Identifiant = Right(Ligne, 10) ElseIf Left(Ligne, 12) = "Mot de passe" Then iStr_MotDePass = Right(Ligne, 8) With rs1 'Ajoute les enregistrements .AddNew ![Identifiant] = Trim(iStr_Identifiant) ![MotDePass] = Trim(iStr_MotDePass) .Update End With End If Wend

---

mais aujourd’hui dans ce fichier et que pour certains enregistrements deux lignes ont été rajoutées :

ANIMATEUR

SPORTIF

Ces deux lignes se trouvent après « mot de passe : 123456 »

Ce lien montre une photo du fichier en question.
http://www.developpez.net/forums/d15...fichier-texte/

Mon problème est que je n’arrive pas à trouver une condition sur ANIMATEUR ET SPORTIF
pour les ajouter dans ma table.

Merci pour votre aide.

Salutations

Bonjour,

Je ne comprend pas bien ton problème !

Ici :

Code:

---

If Left(Ligne, 11) = "Identifiant" Then

---

Tu arrives bien à tester ce que renvoi la ligne courante ! Pourquoi tu ne peux pas le faire avec les 2 nouvelles string ?

En utilisant Instr() par exemple.

Cordialement,

Bonjour loufab,

Merci pour ta réponse.

J’ai rajouté ces deux conditions :

Code:

---

1 2 3 4 5

ElseIf Left(Ligne, 9) = "ANIMATEUR" Then iStr_Titre1 = Left(Ligne, 9) ElseIf Left(Ligne, 7) = "SPORTIF" Then iStr_Titre2 = Left(Ligne, 7)

---

et dans .AddNew ces deux champs :

Code:

---

1 2 3

![titre1] = Trim(iStr_Titre1) ![Titre2] = Trim(iStr_Titre2)

---

Mais je n’obtiens dans la table que les enregistrements avec « ANIMATEUR » ET « SPORTIF »,
et pas les autres.

Où se trouve mon erreur ?

Salutations

Tu souhaites les ajouter dans un nouvel enregistrement ou bien dans le même ?

La structure de la table qui reçoit avec un petit schéma serait le bienvenue pour bien comprendre ce que tu attends exactement de ton code.

Bonsoir loufab,

Je joins sous format jpg une image du fichier texte, et de la table qui reçoit les
informations.

Ces informations son enregistré manuellement dans la table à titre d'exemple.


Salutations

Bonjour,

Donc pas de addnew pour ces 2 nouvelles infos.

Voici comment on peut faire :

Code:

---

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

While Not EOF(iInt_Fichier) Line Input #iInt_Fichier, Ligne If Left(Ligne, 11) = "Identifiant" Then 'on démarre forcément un nouvel enregistrement rs1.addnew rs1.fields("[Identifiant]").value = Trim(Right(Ligne, 10)) rs1.update ElseIf Left(Ligne, 12) = "Mot de passe" Then rs1.edit rs1.fields("[MotDePass]").value = Trim(Right(Ligne, 8)) rs1.update ElseIf instr(1,Ligne, "SPORTIF")>0 Then rs1.edit rs1.fields("[champ1]").value = Right(Ligne, len("SPORTIF")) rs1.update ElseIf instr(1,Ligne, "ANIMATEUR")>0 Then rs1.edit rs1.fields("[champ2]").value = Right(Ligne, len("ANIMATEUR")) rs1.update Endif Wend

---

évidemment chacun trouvera une méthode personnelle.

Cordialement,

Bonjour loufab,

J’ai essayé le code mais j’ai une « Erreur 3021 Aucun enregistrement en cours »
sur la ligne rs1.Edit:

Code:

---

1 2 3 4

ElseIf Left(Ligne, 12) = "Mot de passe" Then rs1.Edit rs1.Fields("[MotDePass]").Value = Trim(Right(Ligne, 8)) rs1.Update

---

Pourtant la table n’est pas vide puisque l’identifiant s’est bien créé dans la table grâce à cette ligne :

Code:

---

1 2 3 4

If Left(Ligne, 11) = "Identifiant" Then rs1.AddNew rs1.Fields("[Identifiant]").Value = Trim(Right(Ligne, 10)) rs1.Update

---

Pour quelles raisons la mise à jour ne peut se faire ?

Salutations

Il faut repositionner le curseur avec un rs1.movelast. A vérifier !

Sinon utiliser un FindFirst. Regarde dans le tuto DAO pour l'utilisation.

Dans tous les cas tu es proche du but.

Bonjour loufab,

Merci, c'est bien un rs1.movelast qui manquait.

Salutations