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.
Merci d'avance pour toute proposition de solution.
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
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))
Papillon00
Partager