find string in web page

sal21 · Dec 7, 2007

Now have a little other qst:

I have this web page attached, i want to find the word "Trovati:" and get
the value near tath in this case is: 827 , after store 827 in a cell of sheet.
tath is all.
Note:already have a VBA code to naviate in web page.
i use this part of code:
.....
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
ShowWindow .hwnd, SW_MAXIMIZE
..Visible = True
..navigate "http://xxxx"
....
Tks.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD><TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY vLink=#ffffff link=#00ffff bgColor=#344ab1>
Trovati
827 Aggiornamento al : 06/12/2007 
<DIV align=center>
<CENTER>
<TABLE height=1 cellSpacing=0 cellPadding=0 width=731
background=trovadipendenze_file/sfondocell3.jpg border=0>
<TBODY>
<TR>
<TD vAlign=center align=left width=232 height=4>
Dipendenze
</TD></CENTER>
<TD vAlign=center align=left width=81 height=4> </TD>
<CENTER>
<TD vAlign=center align=left width=70 height=4>
Telefono</TD>
<TD vAlign=center align=left width=75 height=4> </TD>
<TD vAlign=center align=left width=43 height=4> </TD>
<TD vAlign=center align=left width=120 height=4> </TD>
<TD vAlign=center align=left width=71 height=4>Cod.Sede
</TD></TR></TBODY></TABLE></CENTER></DIV>

<DIV align=center>
<CENTER>
<TABLE height=24 cellSpacing=0 cellPadding=0 width=731
background=trovadipendenze_file/sfondocell2.gif border=0>
<TBODY>
<TR>
<TD vAlign=center align=left width=31 height=6>
 </TD>
<TD vAlign=center align=left width=216 height=1>ABBIATEGRASSO
</TD>
<TD vAlign=center align=left width=98 height=6>
 </TD>
<TD vAlign=center align=middle width=281 height=6>
02 94963900 -
94963915 fax </TD>
<TD vAlign=center align=left width=105 height=6>
4375</TD></TR>
<TR>
<TD vAlign=center align=left width=310 colSpan=3 height=18>
<A
title="Risultato: Tutte le sedi"

href="http://telefoni/TrovaDipendenze.asp?START=1&NPAG=1&VPARTENZA=1&VCERCA=REGIONE-NORD OVEST&TIPRIC=5">REGIONE-NORD
OVEST </A></TD>
<TD vAlign=center align=left width=346 colSpan=2 height=18>20081 ABBIATEGRASSO - PIAZZA
CASTELLO, 19 </TD></TR></TBODY></TABLE></CENTER></DIV>

<DIV align=center>
<CENTER>
<TABLE height=24 cellSpacing=0 cellPadding=0 width=731
background=trovadipendenze_file/sfondocell2.gif border=0>
<TBODY>
<TR>
<TD vAlign=center align=left width=31 height=6>
 </TD>
<TD vAlign=center align=left width=216 height=1>ACIREALE
</TD>
<TD vAlign=center align=left width=98 height=6>
 </TD>
<TD vAlign=center align=middle width=281 height=6>
095 891890 -
891734
fax </TD>
<TD vAlign=center align=left width=105 height=6>
1752</TD></TR>
<TR>
<TD vAlign=center align=left width=310 colSpan=3 height=18>
<A
title="Risultato: Tutte le sedi"

href="http://telefoni/TrovaDipendenze.asp?START=1&NPAG=1&VPARTENZA=1&VCERCA=REGIONE SUD&TIPRIC=5">REGIONE
SUD </A></TD>
<TD vAlign=center align=left width=346 colSpan=2 height=18>95024 ACIREALE - CORSO ITALIA, 2
</TD></TR></TBODY></TABLE></CENTER></DIV>

<DIV align=center>
<CENTER>
<TABLE height=24 cellSpacing=0 cellPadding=0 width=731
background=trovadipendenze_file/sfondocell2.gif border=0>
<TBODY>
<TR>
<TD vAlign=center align=left width=31 height=6>
 </TD>
<TD vAlign=center align=left width=216 height=1>ACQUI TERME
</TD>
<TD vAlign=center align=left width=98 height=6>
 </TD>
<TD vAlign=center align=middle width=281 height=6>
0144 356090 -
356088 fax </TD>
<TD vAlign=center align=left width=105 height=6>
0346</TD></TR>
<TR>
<TD vAlign=center align=left width=310 colSpan=3 height=18>
<A
title="Risultato: Tutte le sedi"

href="http://telefoni/TrovaDipendenze.asp?START=1&NPAG=1&VPARTENZA=1&VCERCA=REGIONE. NORD-OVEST&TIPRIC=5">REGIONE.
NORD-OVEST </A></TD>
<TD vAlign=center align=left width=346 colSpan=2 height=18>15011 ACQUI TERME - PIAZZA LEVI,
11
</TD></TR></TBODY></TABLE></CENTER></DIV>

<DIV align=center>
<CENTER>
<TABLE height=24 cellSpacing=0 cellPadding=0 width=731
background=trovadipendenze_file/sfondocell2.gif border=0>
<TBODY>
<TR>
<TD vAlign=center align=left width=31 height=6>
 </TD>
<TD vAlign=center align=left width=216 height=1>AGRIGENTO
</TD>
<TD vAlign=center align=left width=98 height=6>
 </TD>
<TD vAlign=center align=middle width=281 height=6>
0922 402506 -
402335 fax </TD>
<TD vAlign=center align=left width=105 height=6>
4755</TD></TR>
<TR>
<TD vAlign=center align=left width=310 colSpan=3 height=18>
<A
title="Risultato: Tutte le sedi"

href="http://telefoni/TrovaDipendenze.asp?START=1&NPAG=1&VPARTENZA=1&VCERCA=REGIONE SUD&TIPRIC=5">REGIONE
SUD </A></TD>
<TD vAlign=center align=left width=346 colSpan=2 height=18>92100 AGRIGENTO - VIA IMERA, 203
</TD></TR></TBODY></TABLE></CENTER></DIV>

<DIV align=center>
<CENTER>
<TABLE height=24 cellSpacing=0 cellPadding=0 width=731
background=trovadipendenze_file/sfondocell2.gif border=0>
<TBODY>
<TR>
<TD vAlign=center align=left width=31 height=6>
 </TD>
<TD vAlign=center align=left width=216 height=1>ALBA </TD>
<TD vAlign=center align=left width=98 height=6>
 </TD>
<TD vAlign=center align=middle width=281 height=6>
0173 362551 -
35461
fax</TD>
<TD vAlign=center align=left width=105 height=6>
2443</TD></TR>
<TR>
<TD vAlign=center align=left width=310 colSpan=3 height=18>
<A
title="Risultato: Tutte le sedi"

href="http://telefoni/TrovaDipendenze.asp?START=1&NPAG=1&VPARTENZA=1&VCERCA=REGIONE NORD-OVEST&TIPRIC=5">REGIONE
NORD-OVEST</A> </TD>
<TD vAlign=center align=left width=346 colSpan=2 height=18>12051 ALBA - CORSO
LANGHE </TD></TR></TBODY></TABLE></CENTER></DIV>

<DIV align=center>
<CENTER>
<TABLE height=24 cellSpacing=0 cellPadding=0 width=731
background=trovadipendenze_file/sfondocell2.gif border=0>
<TBODY>
<TR>
<TD vAlign=center align=left width=31 height=6>
 </TD>
<TD vAlign=center align=left width=216 height=1>ALBANO LAZIALE
</TD>
<TD vAlign=center align=left width=98 height=6>
 </TD>
<TD vAlign=center align=middle width=281 height=6>
06 9324483/4 -
9324485 fax </TD>
<TD vAlign=center align=left width=105 height=6>
6337</TD></TR>
<TR>
<TD vAlign=center align=left width=310 colSpan=3 height=18>
<A
title="Risultato: Tutte le sedi"

href="http://telefoni/TrovaDipendenze.asp?START=1&NPAG=1&VPARTENZA=1&VCERCA=REGIONE LAZIO E SARDEGNA&TIPRIC=5">REGIONE
LAZIO E SARDEGNA </A></TD>
<TD vAlign=center align=left width=346 colSpan=2 height=18>00041 ALBANO LAZIALE - VIA
TORRIONE,
1 </TD></TR></TBODY></TABLE></CENTER></DIV>

<DIV align=center>
<CENTER>
<TABLE height=24 cellSpacing=0 cellPadding=0 width=731
background=trovadipendenze_file/sfondocell2.gif border=0>
<TBODY>
<TR>
<TD vAlign=center align=left width=31 height=6>
 </TD>
<TD vAlign=center align=left width=216 height=1>ALBENGA
</TD>
<TD vAlign=center align=left width=98 height=6>
 </TD>
<TD vAlign=center align=middle width=281 height=6>
0182 555318 -
555318 fax </TD>
<TD vAlign=center align=left width=105 height=6>
6746</TD></TR>
<TR>
<TD vAlign=center align=left width=310 colSpan=3 height=18>
<A
title="Risultato: Tutte le sedi"

href="http://telefoni/TrovaDipendenze.asp?START=1&NPAG=1&VPARTENZA=1&VCERCA=REGIONE. NORD-OVEST&TIPRIC=5">REGIONE.
NORD-OVEST </A></TD>
<TD vAlign=center align=left width=346 colSpan=2 height=18>17031 ALBENGA - VIA TRIESTE, 49
</TD></TR></TBODY></TABLE></CENTER></DIV>
Pagine :
(1) <A
href="http://telefoni/trovadipendenze.asp?start=7&npag=2&VPARTENZA=1&VCERCA=&TIPRIC="
target=_self>2</A> <A
href="http://telefoni/trovadipendenze.asp?start=14&npag=3&VPARTENZA=1&VCERCA=&TIPRIC="
target=_self>3</A> <A
href="http://telefoni/trovadipendenze.asp?start=21&npag=4&VPARTENZA=1&VCERCA=&TIPRIC="
target=_self>4</A> <A
href="http://telefoni/trovadipendenze.asp?start=28&npag=5&VPARTENZA=1&VCERCA=&TIPRIC="
target=_self>5</A> <A
href="http://telefoni/trovadipendenze.asp?start=35&npag=6&VPARTENZA=1&VCERCA=&TIPRIC="
target=_self>6</A> <A
href="http://telefoni/trovadipendenze.asp?start=42&npag=7&VPARTENZA=1&VCERCA=&TIPRIC="
target=_self>7</A> <A
href="http://telefoni/trovadipendenze.asp?start=49&npag=8&VPARTENZA=1&VCERCA=&TIPRIC="
target=_self>8</A> <A
href="http://telefoni/trovadipendenze.asp?start=56&npag=9&VPARTENZA=1&VCERCA=&TIPRIC="
target=_self>9</A> <A
href="http://telefoni/trovadipendenze.asp?start=63&npag=10&VPARTENZA=1&VCERCA=&TIPRIC="
target=_self>10</A> <A
href="http://telefoni/trovadipendenze.asp?start=70&npag=11&VPARTENZA=11&VCERCA=&TIPRIC="
target=_self>Successive</A> </BODY></HTML>

Ron Rosenfeld · Dec 8, 2007

Now have a little other qst:

I have this web page attached, i want to find the word "Trovati:" and get
the value near tath in this case is: 827 , after store 827 in a cell of sheet.
tath is all.
Note:already have a VBA code to naviate in web page.

I note that the string "Trovati:" is NOT in the web page you posted, although
the string "Trovati" is present.

In any event, the following function should look in Src for a phrase (str) and
return the first word in the first phrase that is not enclosed in <...>.

In your example, if Src is your web page, and str is "Trovati", the function
will return "827".

I'm not sure if it will take into account all of the possible variations in
context, so be sure to test it thoroughly.

========================================
Option Explicit
Function GetDataAfter(Src As String, str As String) As String
'Src is the page being searched
'str is the string to be found within that page
'returns the first word in a string following str that is not within a tag

Dim re As Object
Dim mc As Object
Dim sPat As String

sPat = str & "[\s\S]*?(<[\s\S]*?>)*(\S+)"

Set re = CreateObject("vbscript.regexp")
With re
.Pattern = sPat
.Global = True
.ignorecase = True
End With

If re.test(Src) = True Then
Set mc = re.Execute(Src)
GetDataAfter = mc(0).submatches(1)
End If
End Function
==============================
--ron

sal21 · Dec 8, 2007

Hi Ron tks for reply....
But i am a newbie how can use the function? wath is the correct sintyax if i
want use in my original code?How to store the "827" in a Var?
Tks from Napoli.

Note: Yes the word is "Trovati" and not "Trovati:", sorry me.

Ron Rosenfeld said:
Now have a little other qst:

I have this web page attached, i want to find the word "Trovati:" and get
the value near tath in this case is: 827 , after store 827 in a cell of sheet.
tath is all.
Note:already have a VBA code to naviate in web page.

Click to expand...

I note that the string "Trovati:" is NOT in the web page you posted, although
the string "Trovati" is present.

In any event, the following function should look in Src for a phrase (str) and
return the first word in the first phrase that is not enclosed in <...>.

In your example, if Src is your web page, and str is "Trovati", the function
will return "827".

I'm not sure if it will take into account all of the possible variations in
context, so be sure to test it thoroughly.

========================================
Option Explicit
Function GetDataAfter(Src As String, str As String) As String
'Src is the page being searched
'str is the string to be found within that page
'returns the first word in a string following str that is not within a tag

Dim re As Object
Dim mc As Object
Dim sPat As String

sPat = str & "[\s\S]*?(<[\s\S]*?>)*(\S+)"

Set re = CreateObject("vbscript.regexp")
With re
.Pattern = sPat
.Global = True
.ignorecase = True
End With

If re.test(Src) = True Then
Set mc = re.Execute(Src)
GetDataAfter = mc(0).submatches(1)
End If
End Function
==============================
--ron

Ron Rosenfeld · Dec 8, 2007

Hi Ron tks for reply....
But i am a newbie how can use the function? wath is the correct sintyax if i
want use in my original code?How to store the "827" in a Var?
Tks from Napoli.

Note: Yes the word is "Trovati" and not "Trovati:", sorry me.

You can store the function in the same module as the one you are using to
manipulate the web page.
Then you can just use the function from your routine that is storing the web
page.

So in your code you might have something like this:

=======================
Dim sVar as string
sVar = GetDataAfter(Src, "Trovati")

'where Src is your web page

============================
--ron

pages don't work in Firefox?	2	Jan 12, 2010
Receiving code instead of graphics	0	Dec 26, 2009
Fails then continues without error	6	Sep 20, 2008
Problem seeing some characters when sending email to Outlook client	60	Oct 15, 2010
VBA and Internet Explorer	9	Sep 8, 2009
Report Grouping	2	Feb 4, 2009
two tables in the same row	6	Apr 8, 2009
Error message "An error has occured in the script on this page"	1	Jul 18, 2008

find string in web page

sal21

Ron Rosenfeld

sal21

Ron Rosenfeld

Ask a Question

Similar Threads