Ciao a tutti, ho un piccolo problema...
Ho una textbox con al ptoprio interno questo codice html:
codice:
<TBODY>
<TR class=rs2>
<TH colSpan=3>Five-day forecast <SPAN>(Details)</SPAN></TH>
<TD colSpan=2>
<TR class=rs1>
<TD>
<H5>Tomorrow</H5>
<DIV class=icon>Jan 12PM Rain</DIV></TD>
<TD>
<H5>Wednesday</H5>
<DIV class=icon>Jan 13AM Rain</DIV></TD>
<TD>
<H5>Thursday</H5>
<DIV class=icon>Jan 14Cloudy</DIV></TD>
<TD>
<H5>Friday</H5>
<DIV class=icon>Jan 15Cloudy</DIV></TD>
<TD>
<H5>Saturday</H5>
<DIV class=icon>Jan 16Fair</DIV></TD></TR>
<TR class=rs1>
<TD>
Tramite questa funzione vado ad estrarre "Tommorrow", sfruttando il fatto che è compreso tra <H5></H5>...
codice:
html = Text1.Text
'The start string.
strStart = "<H5>"
strEnd = "</H5>"


lonPos = InStr(1, html, strStart, vbTextCompare)

If lonPos > 0 Then

    lonPos = lonPos + Len(strStart)
    
    lonEnd = InStr(lonPos, html, strEnd, vbTextCompare)
    
    If lonEnd > 0 Then
strEmail = Mid$(html, lonPos, lonEnd - lonPos)
        

        Text4.Text = strEmail
        
    End If
Il mio probema è: adesso vorrei potere estrarre dall'html "Wednesday", soltanto che è compreso sempre tra <H5></H5> e quindi mi esce sempre fuori "Tomorrow"...Come posso fare per ottenere "Wednesday"?...Grazie mille a tutti...