Izdvajanje odredjenog HTML-a
Htio bih da na svojoj stranici koristim dijelove tudjih stranica. npr htio bih da prikazem podatke iz tabele "5 akcija sa najvecim rastom" sa stranice www.blberza.com (http://81.93.74.18/berzanova/) evo kako sam to uradio:
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Write(Akcija_sa_najvecim_rastom("http://81.93.74.18/berzanova/")) 'ovdje sam pozivao funkciju koja ce da mi izdvoji trazeni HTML
End Sub
Function Akcija_sa_najvecim_rastom(ByVal tekst As String) As String
'ova funkcija izdvaja HTML koji sadrzi 5 akcija sa najvecim rastom
Dim a As String
ReQ = WebRequest.Create(tekst)
Dim Stream As New StreamReader(ReQ.GetResponse.GetResponseStream)
Do
Sajt = Stream.ReadLine()
If Sajt.Contains("5 akcija sa najvećim padom") Then Pisi = False 'Ovdje utvrdjujem zavrsetak date tabele
If Sajt.Contains("5 akcija sa najvećim rastom") Then Pisi = True 'ovdje utvrdjujem pocetak trazenog dijela HTML-a a on pocinje sa datim rijecima
If Pisi = True Then a = a & Sajt
Loop Until Stream.EndOfStream = True
Return a
End Function
e ovo radi sasvim dobro, samo imam malih poteskoca da izdvojim zeljeni tekst bez podataka o formatiranju, tj boji i ostalim zezancijama. Zelio bih da iscupam samo Nazive akcija i njihove vrijednosti. Jel ima neko bolju ideju kako to da uradim?
 |  |
 |
