Hente text fra en side

Dim req As HttpWebRequest = CType(WebRequest.Create(url, HttpWebRequest)
            Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
            Dim sr As StreamReader = New StreamReader(resp.GetResponseStream)
            Dim html As String = sr.ReadToEnd

Okay.. Men forstår ikk så meget af den kode.. Hvordan virker den

Får også disse fejl

Error    2    Name 'req' is not declared.    C:\Documents and Settings\Guffe\Dokumenter\Visual Studio 2005\Projects\Test\Test\Form3.vb    11    45    Test
Error    1    Syntax error in cast operator; two arguments separated by comma are required.    C:\Documents and Settings\Guffe\Dokumenter\Visual Studio 2005\Projects\Test\Test\Form3.vb    10    80    Test

Error 2: Name 'req' is not declared.
Error 1: Syntax error in cast operator; two arguments separated by comma are required.

Lidt nemmere at læse

Også vidt jeg kan se kan din kode ikke sætte teksten over i eks et label eller noget andet

Arne glemter bare en slut-) i farten:

Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)

Nu siger den
Error 1:Name 'url' is not declared.

url skal indeholde adressen på den hjemmeside du ønsker at hente fra.

Dim url As String = 'http://side/news.asp'

FIk jeg lige selv rettet

        Dim req As HttpWebRequest = CType(WebRequest.Create("http://c4.guf4you.dk/program/clanstuf/clanstuf_2.0.asp"), HttpWebRequest)
        Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
        Dim sr As StreamReader = New StreamReader(resp.GetResponseStream)
        Dim html As String = sr.ReadToEnd

    End Sub

Men hvordan får jeg så texten ned i en label

Okay så ser det sådan ud

        Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
        Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
        Dim sr As StreamReader = New StreamReader(resp.GetResponseStream)
        Dim html As String = sr.ReadToEnd
        Dim url As String = 'http://side/news.asp'

    End Sub

Men så får jeg

Error    2    Expression expected.Name 'url' is not declared.
Error    1    Name 'url' is not declared.

Teksten er bagefter at finde i variablen html - den overføre du bare til din label.

Du skal altså initialisere din url-variabel før at du bruger dem.

        Dim url As String = "http://side/news.asp"
        Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
        Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
        Dim sr As StreamReader = New StreamReader(resp.GetResponseStream)
        Dim html As String = sr.ReadToEnd

Okay tak.. Men hvordan laver man det med label? Er ikk så god til VB.NET endnu..

Hvad er navnet på din label?

Bare label1.. Ka jeg altid ændre på selv

Så er det:

label1.Text = html

Virker fint fra en txt fil men vis det eks er en asp side eller noget så tager den hele html koden med også.. Kan man få den til at lade være med det? Eller skal jeg bruge en txt fil så

Koden henter *alt* det der er på siden - når det er en side fra Internettet så betyder det sædvanligvis at der er en masse HTML-kode på den. Det er dog ikke sikkert, man kan jo sagtens lægge en txt-fil på nettet.

Okay.. Synes bare jeg har læst et sted at det kan lade sig gøre bare at hente texten fra en side..

Måske ved Arne noget om det?

Det afhænger jo fuldstændig af hvad du præcist mener med at "hente teksten fra en side".

du kan strippe alle HTML tags med noget regex

Okay hvordan laver jeg det?

Dim txt = Regex.Replace(html, "<[^>]*>", "", RegexOptions.Singleline)

Okay vil kigge på det når jeg kommer hjem.. Er i Sverige lige nu nemlig

Er du kommet videre ned denne?

Ja undskyld glemte helt denne tråd. Har desvære ikke tid til at kikke på det lige for tiden men det ser meget rigtig ud så dig og arne kan lide ligge et svar

.

Der er nu ingen grund til at lukke før at du har afprøvet om det løser dit problem.

og et svar :^)

Kikkede lige hurtig på det men hvor skal jeg sætte den ind i min kode?

            Dim url As String = "Din_Adresse_Her"
            Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
            Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
            Dim sr As StreamReader = New StreamReader(resp.GetResponseStream)
            Dim html As String = sr.ReadToEnd
            Online_Offline.Text = html

Dim url As String = "Din_Adresse_Her"
            Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
            Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
            Dim sr As StreamReader = New StreamReader(resp.GetResponseStream)
            Dim html As String = sr.ReadToEnd
            Online_Offline.Text = Regex.Replace(html, "<[^>]*>", "", RegexOptions.Singleline)

Det var også det jeg  næsten kom frem til men får stadig denne fejl

Error    1    Name 'Regex' is not declared.    I:\C4\C4-Goa\C4-Goa\Test_Beta.vb    15    23    GoA
Error    2    Name 'RegexOptions' is not declared.    I:\C4\C4-Goa\C4-Goa\Test_Beta.vb    15    58    GoA

Du skal have en:

Imports System.Text.RegularExpressions

- i toppen af din side

Arr ja tak.. Det virker fint men er der ikke en måde så den også kan læse Å - Æ - Ø ?? Det kan den ikke finde ud af

Dim sr As StreamReader = New StreamReader(resp.GetResponseStream, Encoding.Default)

eller

Dim sr As StreamReader = New StreamReader(resp.GetResponseStream, Encoding.UTF8)

Skal jeg ikke ha en eller anden Imports System. et eller andet? Får denne fejl
Error    1    Name 'Encoding' is not declared.    I:\C4\C4-Goa\C4-Goa\Test_Beta.vb    14    75    GoA

System.Text

hvsi jeg husker rigtigt

Takker mange gange