Visual Basic Forum

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Visual Basic: [code] Private Function GetFakt() As String
Dim strSource As String = GetSourcecode("http://www.nutzlose-fakten.de/fakten.php")
Dim strFakt As String = strSource.Split(" ")(1)
strFakt = strFakt.Split("<")(0)
Return strFakt
End Function

Function GetSourcecode(ByVal URL As String) As String
Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
Dim res As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
Dim str As New StreamReader(res.GetResponseStream)
Return str.ReadToEnd()
End Function[/code]

Warum gibt mir die Funktion "head>" zurrück? oO

Marduk · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 374

Keine Ahnung, ohne Quelltext sieht man es so nicht.
Wenn du am Anfang die Split-Funktion ohne Parameter benutzt, kommst du auf den besseren Effekt, dass nach jedem vbnewline und nicht nach jedem
Tag gesplittet wird, hat den Vorteil, dass man den Text dann so hat, wie man ihn auch im Quelltext im Browser sieht.

Aber eigentlich darfst du gar kein head Tag zurückbekommen, da mit strSource.Split(" ")(1) ja schon der Head ausgeschlossen wird. Debugge mal dein Code durch

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Keine Ahnung, ohne Quelltext sieht man es so nicht.

	Aufrufe	Letzter Beitrag

Wichtig: [Ebook] jetzt lerne ich Visual Basic 6	5067	02.06.2010, 13:55
Miceosoft Visual Basic 6.0 Einsteiger Kurs?	1189	17.02.2007, 21:01
SUCHE MICROSOFT VISUAL BASIC!	944	12.02.2007, 21:54
Microsoft Visual Basic	1275	28.01.2007, 00:59
Visual Basic.. Version??	1230	22.01.2007, 18:23

Verfasst am: 27.06.2008, 10:02

Visual Basic: [code] Dim x As String = GetSourcecode("http://www.nutzlose-fakten.de/fakten.php") Dim y() As String = Split(x, "") Dim z() As String = Split(y(1), "") MsgBox(z(0))[/code] Ist zwar ein bisschen aufwendiger mit den Splits, aber es funktioniert dafür Du musst dann nur noch die Tags durch eigene Zeilenumbrüche ersetzen.

Verfasst am: 27.06.2008, 10:41

LOL stimmt, danke. Ich vergess immer, dass String.Split() nur nen Char splitten kann. ^^ edit: Hab jetz nen weiteres Problem. Im Label werden die ö ä ü ß mit nem Viereck dargestellt, aber wenn ich die Chars im Code an den String anhänge werden diese korrekt dargestellt. Wenn ich die Chars aus dem Sourcecode der Seite kopiere, stimmt die Asc-Nummer mit den Chars von meiner Tastatur überein. Private Function GetFakt() As String Dim strSource As String = GetSourcecode("http://www.nutzlose-fakten.de/fakten.php") Dim strFakt As String = System.Text.RegularExpressions.Regex.Split(strSource, " ")(1) strFakt = strFakt.Split("<")(0) strFakt = strFakt.Replace(" ", " ") strFakt = strFakt.Replace("quot;", Chr(34)) End Function

Verfasst am: 30.06.2008, 10:35

push Hab jetz rausgefunden, dass die GetSourcecode FunktionVisual Basic: [code] Function GetSourcecode(ByVal URL As String) As String Dim req As HttpWebRequest = CType(WebRequest.Create(URL), HttpWebRequest) Dim res As HttpWebResponse = CType(req.GetResponse, HttpWebResponse) Dim str As New StreamReader(res.GetResponseStream) Return str.ReadToEnd() End Function[/code]die Umlaute durch Fragezeichen ersetzt. Das is aber die einzige Seite, bei der sie das tut, denn wenn ich den Source einer Wikipedia Seite auslesen lasse, werden die Umlaute korrekt dargestellt. (wasn Satz xD)

	Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten
Tags: visual basic, split, function, string