Manipulation et extraction de donnée dans un texte

Bonjour,

Je récupère le code source d'une page HTML avec

Code:

---

ie.document.body.innerHTML

---

Je souhaiterai lire la donnée et récupérer une série de chiffres dans la source qui apparait après une suite de caractères donnés, ici "idposs="
Une fois ceci fait, éliminer les doublons et stocker ces nombres dans une variable tableau.

Quelqu'un saurait-il me venir en aide, s'il vous plait ?

Je vais commencer à me répondre :P

J'envoie le contenu du innerHTML dans un fichier text

Code:

---

1 2 3

Open "HTMLcode.txt" For Output As #1 Print #1, ie.document.body.innerHTML Close #1

---

Puis je vais tenter de le traiter pour chercher ma valeur idposs

Code:

---

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

Dim n As Byte Dim tableau() As Long n = 0 Open "HTMLsac.txt" For Input As #1 While Not EOF(1) Line Input #1, Ligne If InStr(1, Ligne, ";idposs=") <> 0 Then MsgBox (Mid(Mid(Ligne, InStr(1, Ligne, ";idposs="), 17), 9)) tableau(n) = Mid(Mid(Ligne, InStr(1, Ligne, ";idposs="), 17), 9) n = n + 1 End If Wend

---

Je n'ai plus besoin de rechercher les doublons finalement car un caractère diffère dans la chaine rechercher ; au lieu de ?
J'arrive donc à extraire les nombres que je contrôle avec un message box.
Le problème c'est que si je remplace le msgbox par l'écriture dans une variable tableau j'ai une erreur 9 l'indice n'appartient pas à la sélection :calim2:

Bonjour,

Avant la ligne de code :

Code:

---

1 2	tableau(n) = Mid(Mid(Ligne, InStr(1, Ligne, ";idposs="), 17), 9)

---

il te faut dimensionner le tableau :

Code:

---

1 2	ReDim Preserve tableau(0 To n)

---

soit :

Code:

---

1 2 3 4

ReDim Preserve tableau(0 To n) tableau(n) = Mid(Mid(Ligne, InStr(1, Ligne, ";idposs="), 17), 9) n = n + 1

---

Hervé.

Merci beaucoup Hervé,

Cela fonctionne parfaitement maintenant :ccool: