Discussion :

[jmde]

Bonjour,

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

Code :

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

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

[loufab]

Bonjour,

Je ne comprend pas bien ton problème !

Ici :

Code :

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

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,

[jmde]

Bonjour loufab,

Merci pour ta réponse.

J’ai rajouté ces deux conditions :

Code :

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

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 :

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

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

[loufab]

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.

[jmde]

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

[loufab]

Bonjour,

Donc pas de addnew pour ces 2 nouvelles infos.

Voici comment on peut faire :

Code :

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

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,

[jmde]

Bonjour loufab,

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

Code :

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

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 :

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

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

[loufab]

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.

[jmde]

Bonjour loufab,

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

Salutations