[ Ogi_Boy @ 02.08.2006. 23:46 ] @
| 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? |