Discussion :

[ynnvlz]

Bonjour,

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

Code :

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

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 ?

[ynnvlz]

Je vais commencer à me répondre

J'envoie le contenu du innerHTML dans un fichier text

Code :

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

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 :

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

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

[Theze]

Bonjour,

Avant la ligne de code :

Code :

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

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

il te faut dimensionner le tableau :

Code :

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

1
2
 
ReDim Preserve tableau(0 To n)

soit :

Code :

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

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é.

[ynnvlz]

Merci beaucoup Hervé,

Cela fonctionne parfaitement maintenant