Discussion :

[wehtam]

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 :

[méphistopheles]

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

merci.


salut

[ThierryAIM]

que signifie "Parser"?

Explorer, Analyser

[wehtam]

exactement

[méphistopheles]

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

salut

[wehtam]

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 :

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

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

[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

[SilkyRoad]

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 :

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

[wehtam]

merci je vais tester ça demain , merci encore