Bonjour,
Qui peux m'aider en VB6 a extraire des donnée d'un fichier sources html
Donnée a extraire : Société, adresse CP VILLE, téléphone, Fax, Email, Activité
Merci de votre aide
Fichier sources HTML:
<SCRIPT language= javascript src="files/look2002/FR/commun/script_open.js" type=text/javascript></SCRIPT>
<SCRIPT language=javascript src="files/look2002/FR/commun/alerte.js" type=text/javascript></SCRIPT>
</HEAD>
<TABLE cellSpacing=0 cellPadding=0 width=630 bgColor=#ffcc00 border=0>
----, </TD>
,
,
> Recherchez un professionnel avec pagesjaunes.fr,
Samedi 10 décembre,
,
----
</TD></TR></TBODY></TABLE>
,
----
<TABLE cellSpacing=0 cellPadding=0 width=480 border=0>
----,
<TABLE cellSpacing=0 cellPadding=0 width=460 border=0>
----
Votre requête : ,
INFORMATIQUE
AIN, </TD></TD>
----
,
----
<!--
-->
<TABLE class=fdseppro cellSpacing=0 cellPadding=2 width=458 align=center border=0>
----, dans le département ...</TD>
</TD></TR></TBODY></TABLE>
276 réponse(s),
(liste 11-10),
----
,
----
<TABLE class=fdinscr cellSpacing=0 cellPadding=2 width=458 align=left border=0>
----, Silicium Tech (SARL) </TD>
<SCRIPT language =JavaScript type= text/javascript>
var myurl;
if(!hasRightVersion)
{
myurl = "rp.cgi?&action=reponsesDirectXY&esplus=PJ¶m=HuNezWihwYyoGqOdM87nS5Kj91PPqwh6eVxNaOT4WvwChhlDRIeeuZtSydNiJVorxZQANe2bn4htI2sYKfqSWWBtpcpdOmKuJBhhj0AfZlzAF0AQNt64bbNPdmdIkPu+zcJwwWKT7e88oY4RhgDlD3LVWLV/DMIBYgkPnMj/7FE="+"&test_flash=1";
}
else
{
myurl = "rp.cgi?&action=reponsesDirectXY&esplus=PJ¶m=HuNezWihwYyoGqOdM87nS5Kj91PPqwh6eVxNaOT4WvwChhlDRIeeuZtSydNiJVorxZQANe2bn4htI2sYKfqSWWBtpcpdOmKuJBhhj0AfZlzAF0AQNt64bbNPdmdIkPu+zcJwwWKT7e88oY4RhgDlD3LVWLV/DMIBYgkPnMj/7FE=";
}
document.write("
www.siliciumtech.fr</TD></TR></TBODY></TABLE></TD >
<TD width=80>
http://pub.pagesjaunes.fr/nsapi/pmicro/AAA2BEVJGUXO/10001/x.gif " width=80 border=0></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE class=fdinscr cellSpacing=0 cellPadding=2 width=458 align=left border=0>
----, Silicium Tech (SARL) </TD>
<SCRIPT language =JavaScript type= text/javascript>
var myurl;
if(!hasRightVersion)
{
myurl = "rp.cgi?&action=reponsesDirectXY&esplus=PJ¶m=HuNezWihwYyoGqOdM87nS5Kj91PPqwh6eVxNaOT4WvwChhlDRIeeuZtSydNiJVorxZQANe2bn4htI2sYKfqSWWBtpcpdOmKuJBhhj0AfZlzAF0AQNt64bbNPdmdIkPu+zcJwwWKT7e88oY4RhgDlD3LVWLV/DMIBYgkPnMj/7FE="+"&test_flash=1";
}
else
{
myurl = "rp.cgi?&action=reponsesDirectXY&esplus=PJ¶m=HuNezWihwYyoGqOdM87nS5Kj91PPqwh6eVxNaOT4WvwChhlDRIeeuZtSydNiJVorxZQANe2bn4htI2sYKfqSWWBtpcpdOmKuJBhhj0AfZlzAF0AQNt64bbNPdmdIkPu+zcJwwWKT7e88oY4RhgDlD3LVWLV/DMIBYgkPnMj/7FE=";
}
document.write("
www.siliciumtech.fr</TD></TR></TBODY></TABLE></TD >
<TD width=80>
http://pub.pagesjaunes.fr/nsapi/pmicro/AAA2BEVJGUXO/10001/x.gif " width=80 border=0></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE class=fdinscr cellSpacing=0 cellPadding=2 width=458 align=left border=0>
----, S.T.I (Service Technique Informatique) </TD>
<SCRIPT language =JavaScript type= text/javascript>
var myurl;
if(!hasRightVersion)
{
myurl = "rp.cgi?&action=reponsesDirectXY&esplus=PJ¶m=HuNezWihwYy2lMJdxYFt22B77FoIONaZCigXPi2O/Husck6iLZu+yFUKyQUSiKZw8hej9P64DHGO/2Ss3RUkbhasQYyFVp17MulvPT9Hswn6vjZIbuB9+BohuBc1o04cz6Bpcy9+Mhmqcaze3tghzVveNzaZHSLp"+"&test_flash=1";
}
else
{
myurl = "rp.cgi?&action=reponsesDirectXY&esplus=PJ¶m=HuNezWihwYy2lMJdxYFt22B77FoIONaZCigXPi2O/Husck6iLZu+yFUKyQUSiKZw8hej9P64DHGO/2Ss3RUkbhasQYyFVp17MulvPT9Hswn6vjZIbuB9+BohuBc1o04cz6Bpcy9+Mhmqcaze3tghzVveNzaZHSLp";
}
document.write("[
http://pub.pagesjaunes.fr/nsapi/pmicro/AAAYADEEZ2EK/10002/x.gif " width=80 border=0></TD></TR></TBODY></TABLE>[ Site </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE class =fdinscr cellSpacing= 0 cellPadding=2 width=458 align=left border=0>
----, Velic </TD>
<SCRIPT language =JavaScript type= text/javascript>
var myurl;
if(!hasRightVersion)
{
myurl = "rp.cgi?&action=reponsesDirectXY&esplus=PJ¶m=HuNezWihwYw0uTEvnDojRtv7wHf2pTqq//l0G6FTSLHJ6iDKZgYrRttMM5Yw3f5uTNQcxMYBNajB9AT0zlIZA1wPfGEBuLl3DpZ9gwTveDOINWnqdcnUaukHNtZvIysSdF2a46+GnyhTfqU8PvRC1r6tNQ06xISxeRpBfiW2UkM="+"&test_flash=1";
}
else
{
myurl = "rp.cgi?&action=reponsesDirectXY&esplus=PJ¶m=HuNezWihwYw0uTEvnDojRtv7wHf2pTqq//l0G6FTSLHJ6iDKZgYrRttMM5Yw3f5uTNQcxMYBNajB9AT0zlIZA1wPfGEBuLl3DpZ9gwTveDOINWnqdcnUaukHNtZvIysSdF2a46+GnyhTfqU8PvRC1r6tNQ06xISxeRpBfiW2UkM=";
}
document.write("[
http://pub.pagesjaunes.fr/nsapi/pmicro/AAAYADDJPC0L/10001/x.gif " width=80 border=0></TD></TR></TBODY></TABLE>[ Site </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE class =fdinscr cellSpacing= 0 cellPadding=2 width=458 align=left border=0>
----, Velic </TD>
<SCRIPT language =JavaScript type= text/javascript>
var myurl;
if(!hasRightVersion)
{
myurl = "rp.cgi?&action=reponsesDirectXY&esplus=PJ¶m=HuNezWihwYw0uTEvnDojRtv7wHf2pTqq//l0G6FTSLHJ6iDKZgYrRttMM5Yw3f5uTNQcxMYBNajB9AT0zlIZA1wPfGEBuLl3DpZ9gwTveDOINWnqdcnUaukHNtZvIysSdF2a46+GnyhTfqU8PvRC1r6tNQ06xISxeRpBfiW2UkM="+"&test_flash=1";
}
else
{
myurl = "rp.cgi?&action=reponsesDirectXY&esplus=PJ¶m=HuNezWihwYw0uTEvnDojRtv7wHf2pTqq//l0G6FTSLHJ6iDKZgYrRttMM5Yw3f5uTNQcxMYBNajB9AT0zlIZA1wPfGEBuLl3DpZ9gwTveDOINWnqdcnUaukHNtZvIysSdF2a46+GnyhTfqU8PvRC1r6tNQ06xISxeRpBfiW2UkM=";
}
document.write("[
http://pub.pagesjaunes.fr/nsapi/pmicro/AAAYADEEZ2EK/10002/x.gif " width=80 border=0></TD></TR></TBODY></TABLE>[ Site </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE class =fdinscr cellSpacing= 0 cellPadding=2 width=458 align=left border=0>
----, Xerox B.V.S. Informatique Concessionnaire </TD>
<SCRIPT language =JavaScript type= text/javascript>
var myurl;
if(!hasRightVersion)
{
myurl = "rp.cgi?&action=reponsesDirectXY&esplus=PJ¶m=1U91BMoxQ3Z7xLZfQqW4TfYINZUYreevm6/q6Y1KO5U42IH7vI0YVmfwLTseBC1nHM5ofcpswRKhkP1CsjwXAk20qUurCeD+WvfI+rmewSbXpAbLfRvE3N2PSGrb+rLJWFGIwxA8uQXlZTljk9IeuI43FcLvGJVq"+"&test_flash=1";
}
else
{
myurl = "rp.cgi?&action=reponsesDirectXY&esplus=PJ¶m=1U91BMoxQ3Z7xLZfQqW4TfYINZUYreevm6/q6Y1KO5U42IH7vI0YVmfwLTseBC1nHM5ofcpswRKhkP1CsjwXAk20qUurCeD+WvfI+rmewSbXpAbLfRvE3N2PSGrb+rLJWFGIwxA8uQXlZTljk9IeuI43FcLvGJVq";
}
document.write("[javascript:PJAutour('R26151500/téléphonie mobile, radiomessagerie, radiocommunications','theme informatique'); Téléphonie mobile]
<FORM name=form_autour action=pj.cgi method=post target=_self> </FORM>
Info Conseil,
----
[javascript:OpenDemo('/EDITO/FR/demo_rail/index.html') En savoir +] .
</TD></TR>
<TR>
<TD></TD></TR></TBODY></TABLE>
</CENTER></TD></TR>
<TR>
<TD vAlign=center align=middle width=498>
http://sbx.pagesjaunes.fr/RealMedia/ads/Creatives/OasDefault/20050700167515BTN0001/20050700167515BTN0001_C.gif " width=468 border=0></TD>
<TD vAlign=center align=left width=132></TD></TR>
<TR>
<TD class=txtsignature align=middle width=480>
pagesjaunes.fr est un service [# PagesJaunes Groupe
][# Protection des données] | [© 2005 PagesJaunes
</TD>
<TD noWrap align =middle> </TD></TR></TBODY></TABLE>
<SCRIPT type=text/javscript>
<!--
var gvar="";
//--></SCRIPT>
<SCRIPT src="
http://audience.pagesjaunes.fr/tag.js " type=text/javscript></SCRIPT>
<SCRIPT language=JavaScript type=text/javscript>
<!--
try {gotag();}catch(e) {};gvar="O";
//--></SCRIPT>
<SCRIPT language=JavaScript1.4 type=text/javscript>
<!--if (gvar!="O") {try {gotag();}catch(e) {};gvar="O";}
//--></SCRIPT>
<SCRIPT language=JavaScript type=text/javscript>
<!--if (gvar!="O") {gotag();gvar="O"}//-->
</SCRIPT>
<SCRIPT language=javascript type=text/javascript><!--
var _PJS=0;
//-->
Afficher la suite