Discussion :

[Invité]

Bonjour,

Dernièrement j'ai utiliser un script js qui se met sous forme de favoris dans votre navigateur et en cliquant dessus il affiche dans une nouvelle page toutes les adresses mail de la page en questions.

Voici le script :

Code :

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

javascript:(function(){as=document.getElementsByTagName(%22a%22);str=%22<ul>%22;for(i=0;i<as.length;i++){if(as[i].href.substring(0,6)%20!=%20%22mailto%22)%20continue;str+=%22<li><a%20href=%22+as[i].href+%22>%22+as[i].href+%22</a></li>\n%22}str+=%22</ul>%22;with(window.open()){document.write(str);%20document.close();}})()

Ni connaissant rien en js, j'aimerais savoir s'il est possible de faire de même pour récupérer les adresses postal contenu dans une page web.

Chose intéressante c'est que les adresses sont dans une div ayant la class "detail_adresse" et que le nom de l’établissement se trouve dans la balise H2.

Merci de votre aide

[SpaceFrog]

si la page n'est pas sur ton domaine, non

[Invité]

Pourtant avec l'autre script la page n'est pas sur mon domaine et pourtant j'ai récupérer les e-mail.

[arnogues]

Pourtant avec l'autre script la page n'est pas sur mon domaine et pourtant j'ai récupérer les e-mail.

Comment arriverais-tu as détecter un texte qui est une adresse postale c'est tres difficile a faire

[hackoofr]

Je vous propose une solution en Vbscript, donc copier et coller le code suivant dans votre Notepad et enregistrez-le sous le nom : ExtractMail.vbs et exécutez-le
Bonne Chance
et n'oubliez surtout pas de me payer avec cette devise

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
Dim Titre,URL
Titre = "Extraire les adresse(s) e-mail(s) dans une page Web © Hackoo"
URL = InputBox("Entrez l'url de la page web pour trouver et extraire les adresses e-mails" &vbcr&vbcr&" © Hackoo © 2013" ,Titre,"http://www.tomsguide.fr/faq/id-2858177/retrouver-mails-gmail.html")
If URL = "" Then WScript.Quit
Call  ExtractMail(URL)
 
Sub ExtractMail(URL)
    Dim ie,objFSO,Data,OutPut,objRegex,Match,Matches
    Set ie = CreateObject("InternetExplorer.Application")
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    ie.Navigate (URL) 
    ie.Visible=false
    DO WHILE ie.busy
        wscript.sleep 100
    LOOP
    Data = ie.document.documentElement.innertext 
    str = URL
    Tab = Split(Str,"/")
    LogFile = Tab(2) & ".txt"
    Set OutPut = objfso.OpenTextFile(LogFile,2,True)
    ie.Quit 
    Set ie = Nothing
    Set objRegex = new RegExp
    objRegex.Pattern = "\b[a-zA-Z0-9._-]+@[a-z0-9._-]{2,}\.[a-z]{2,4}\b"
    objRegex.Global = True
    objRegex.IgnoreCase = True
    Set Matches = objRegex.Execute(Data)
    For Each Match in Matches   
        OutPut.WriteLine string(120,"-") & vbcr &"  Nous sommes le "& Now & vbcr & string(120,"-") & vbcr & "Adresse E-mail trouvé dans la page "&qq(URL)&" : "& qq(Match.Value) & vbcr & string(120,"*")
    Next
    Call OpenLog(LogFile)
End Sub
 
Sub OpenLog(File)
    Dim ws
    Set ws = CreateObject("wscript.shell")
    ws.run "Notepad " & File,1,True
    Set ws = Nothing
End Sub
 
Function qq(strIn)
    qq = Chr(34) & strIn & Chr(34)
End Function

donc il faut trouver quelqu'un ici pour le traduire en Javascript

[Invité]

Merci de votre participation, mais en effet le script vb ne permet pas de récupérer les adresses postal et comme je le disais j'ai une connaissance très limité en js alors en VB ...

Pour répondre à "arnogues", je me disais que comme chaque adresse était contenu dans une div "<div class="etab_resume">" pour le nom de l’établissement il est dans une balise h2 et ce deux infos sont groupés dans une div <div class="etab_resume">. Cela pouvais être un moyen de détection style regex.

[NoSmoking]

Bonjour,
j'aurais besoin qu'en même d'une précision...
à partir d'où veux tu récupérer les infos, d'une de TES pages ou en mettant le code dans la barre d'adresse?

[SpaceFrog]

il s'agirait d'un script dans les favoris ...

[Invité]

En effet s'il est possible d'en faire un favoris ce serait merveilleux.
Mais je suis ouvert a d'autres proposition du moment ou le résultat est là.

[SpaceFrog]

je pensais plutot à du greasemonkey ou du scriptish ...