[VB]parser HTML

Version imprimable

31/01/2006, 21h25
wehtam

[VB]parser HTML

Bonjour,
je suis un vrai débutant en VB, et je cherche à faire une petite application qui permet de générer des fichier CSV ou XML qui contiendraient des informations récupérées sur allociné.
J'arrive à récupèrer le contenu HTML, mais après je n'ai aucune idée sur le moyen de parser le HTML pour pouvoir générer mon fichier CSV ou XML.
Voici un style de page que j'aimerai parser :
http://www.allocine.fr/series/episod...cserie=55.html

En fait j'aimerai récupèrer les informations des diffèrents épisodes.

Est ce que quelqu'un pourrait m'aider ou me donner des indications ?

Merci d'avance :?:
31/01/2006, 21h31
méphistopheles

excuse-moi, je suis quelque peu ignorant des termes technique: que signifie "Parser"?

merci.

salut :wink:
31/01/2006, 21h33
ThierryAIM

Citation:

Envoyé par méphistopheles

que signifie "Parser"?

Explorer, Analyser
31/01/2006, 21h48
wehtam

exactement :P
31/01/2006, 21h48
méphistopheles

ce qui ne m'éclaire pas vraiment sur ce qu'il veut faire.... rechercher des balises? le traduire?...

salut :wink:

ben en fait tu vois j'aimerai faire un fichier CSV en récupèrant les informations de la page HTML, un fichier du type :
Code:

1 2 3 4 5 nom épisode 1;Titre original;réalisateur;écrit par;résumé;acteurs nom épisode 2;Titre original;réalisateur;écrit par;résumé;acteurs nom épisode 3;Titre original;réalisateur;écrit par;résumé;acteurs ....

31/01/2006, 23h05
méphistopheles

connais-tu la sintaxe générique utilisée par allociné? c'est à dire, est-ce que c'est le même type de présentation pour chaqu page: les nom sont dits dans le même ordre entre des prase codes habituels ext...
Si oui, il te suffit de faire des instr ou bien un replace. (suivi d'un left)

salut :wink:

bonsoir

cette macro est du VBA Excel , mais tu pourras facilement l'adapter en VB
la procedure necessite d'activer la reference Microsoft Internet Controls

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Option Explicit
 
Sub extractionDonneesPageHtml()
'necessite d'activer la reference Microsoft Internet Controls
Dim IE As InternetExplorer
Dim nFile As Integer
Dim infosLigne As String
Dim i As Byte
Dim Lig As Boolean
 
Set IE = CreateObject("InternetExplorer.Application")
 
With IE
    .Visible = False
    .Silent = True
    .Navigate "http://www.allocine.fr/series/episodes_gen_csaison=118&cserie=55.html"
    Do Until .ReadyState = READYSTATE_COMPLETE
    DoEvents
    Loop 'attend la fin du chargement
 
    nFile = FreeFile
    Open "C:\test.txt" For Output Shared As #nFile
    Print #nFile, .Document.DocumentElement.InnerText
    Close #nFile
    .Quit
End With
 
Set IE = Nothing
 
Lig = False
 
Open "C:\test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, infosLigne
    If Left(infosLigne, 7) = "Episode" Then
    i = i + 1
    Cells(i, 1) = Mid(infosLigne, InStr(1, infosLigne, "-") + 2, _
    Len(infosLigne) - InStr(1, infosLigne, "-"))
    End If
 
    If Lig = True Then
    Cells(i, 6) = infosLigne
    Lig = False
    End If
 
    If Left(infosLigne, 14) = "Titre original" Then
    Cells(i, 2) = Mid(infosLigne, InStr(1, infosLigne, ":") + 2, _
    Len(infosLigne) - InStr(1, infosLigne, ":"))
    Lig = True
    End If
 
    If Left(infosLigne, 11) = "Réalisé par" Then _
    Cells(i, 3) = Mid(infosLigne, InStr(1, infosLigne, ":") + 2, _
    Len(infosLigne) - InStr(1, infosLigne, "-"))
 
    If Left(infosLigne, 9) = "Ecrit par" Then _
    Cells(i, 4) = Mid(infosLigne, InStr(1, infosLigne, ":") + 2, _
    Len(infosLigne) - InStr(1, infosLigne, ":"))
 
    If Left(infosLigne, 19) = "Acteurs secondaires" Then _
    Cells(i, 5) = Mid(infosLigne, InStr(1, infosLigne, ":") + 2, _
    Len(infosLigne) - InStr(1, infosLigne, ":"))
 
Loop
Close #1
 
Kill "C:\test.txt"
End Sub

bonne soiree
michel

01/02/2006, 00h26
wehtam

merci je vais tester ça demain , merci encore :lol: