Numérotation de repères

Bonjour,

Voilà sous forme télégraphique le motif de mon Msg:

Suis en présence d'un fichier "XML" que je souhaiterais transcrire dans une tbl de ma BD.

Problème
Différents segments du fichier susmentionné se répètent tant et si bien que je souhaiterais pour des motifs évidents de maintenance de ma BD utiliser un code de manière répétitive. Toutefois je n'arrive pas à numéroter les points de repère nécessaires au dissèquement de mon fichier. Je joins à mon envoi un extrait de mon code. Concrètement je recherche donc un artifice pour pouvoir débuter la lecture par ex de chaque segment DTM à partir d'une position initiale i17 à laquelle pour chaque passage je me dois d'ajouter 5 unités (deuxième passage =i22) et ainsi de suite étant bien entendu que tous les calculs de repère présents dans mon bloc doivent également être MAJ par rapport au nouveau repère.

Code:

---

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

'DTM (M, 1) i17 = InStr(strFile, "<D_2005") i18 = InStr(i17, strFile, "><") t11 = Mid(strFile, i17 + 15, (i18 - 1) - (i17 + 15)) i19 = InStr(i18, strFile, "<D_2380") i20 = InStr(i19, strFile, ">") t12 = Mid(strFile, i19 + 14, (i20 - 1) - (i19 + 14)) i21 = InStr(i20, strFile, "</D_2380") t13 = Mid(strFile, i20 + 1, i21 - (i20 + 1))   'DTM (M, 1) i22 = InStr(i21, strFile, "<D_2005") i23 = InStr(i22, strFile, "><") t14 = Mid(strFile, i22 + 15, (i23 - 1) - (i22 + 15)) i24 = InStr(i23, strFile, "<D_2380") i25 = InStr(i24, strFile, ">") t15 = Mid(strFile, i24 + 14, (i25 - 1) - (i24 + 14)) i26 = InStr(i25, strFile, "</D_2380") t16 = Mid(strFile, i25 + 1, i26 - (i25 + 1))

---

Merci d'avance pour toute proposition de solution.

Papillon00

Hello,

as-tu regardé dans mon tutoriel Access & Internet ?
(lien dans ma signature)
dans cet article je crée un parsing de fichier XML grâce à une classe qui simule la gestion des Tokens, je pense que ça pourrait peut-être t'aider.

Hello caféine

Merci de ton message. Je suis toutefois dans l'obligation de t'informer que mes connaissances en programmation ne sont que modestes - tant et si bien que je n'ai pas trouvé solution à mon problème dans le tutoriel avancé. Sur le principe je suis parvenu à augmenter d'une unité un chiffre donné pour toute nouvelle boucle. Malheureusement dès que j'essaie d'intégrer ce chiffre dans une suite, la syntaxe s'emballe...

Code:

---

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

Sub TestLoop1()   Dim intI As Integer   intI = 1 Do While intI <= 5 MsgBox "I vaut actuellement " & intI intI = intI + 1   Loop   MsgBox "Boucle terminée, I vaut maintenant " & intI   End Sub

---

Il doit bien exister un artifice pour numéroter de la sorte une suite de position...:-(

A bon entendeur....

Papillon00