Dim wb As New WebClient
Dim html As String = wb.DownloadString( _
  "http://www.orange-gaming.eu/index.php?Option=com_content&view=article&id=12" & _
  "Itemid=28")
html = Split(html, "Das zu splittende Zeichen")

Value of Type '1-dimensional array of String' cannot be converted To 'String'.

Dim wb As New WebClient
Dim html As String 
Dim htmlSplitted(-1) as String
 
html = wb.DownloadString( _
  "http://www.orange-gaming.eu/index.php?Option=com_content&view=article&id=12" _
  & _
  "Itemid=28")
htmlSplitted = Split(html, "Das zu splittende Zeichen")

For each sLine as String in htmlSplitted
    '... aktuelle Zeile ist sLine
Next

Dim htmlSplitted(-1) as String

Dim htmlSplitted() as String

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Zitat:

Hallo, was meinst du denn für zeilen? willst du den Text einfach in die einzelnen Zeilen zerlegen? Gruß Julian13

Dim wb As New WebClient
Dim html As String 
Dim htmlSplitted(-1) as String
 
html = wb.DownloadString( _
  "http://www.orange-gaming.eu/index.php?Option=com_content&view=article&id=12" _
  & _
  "Itemid=28")
htmlSplitted = Split(html, VbCrLf)
Dim ip As String = htmlSplitted(218)
MsgBox(ip)

Dim wb As New WebClient
        Dim html As String
        Dim htmlSplitted(-1) As String
        html = wb.DownloadString( _
          "http://www.orange-gaming.eu/index.php?option=com_content&view=artic" & _
          "e&id=12&Itemid=28")
        htmlSplitted = Split(html, vbCrLf)
        Dim ip As String = htmlSplitted(218)
        MsgBox(ip)

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008

Zitat:

Liegst vllt. an der URL http://www.orange-gaming.eu/index.php?option=com_content&view=artic" & _ "e&id=12&Itemid=28 http://www.orange-gaming.eu/index.php?option=com_content&view=article" & _ "&id=12&Itemid=28

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
        ListBox1.Dock = DockStyle.Fill
        ListBox1.HorizontalScrollbar = True
        Dim wb As New Net.WebClient
        Dim html As String = wb.DownloadString( _
          "http://www.orange-gaming.eu/index.php?Option=com_content&view=artic" & _
          "e&id=12" & "Itemid=28")
        ListBox1.Items.AddRange(Split(html, vbCrLf))
        For i As Int32 = 0 To ListBox1.Items.Count - 1
            ListBox1.Items.Item(i) = i.ToString.PadLeft(3, "0"c) & "  " & _
              ListBox1.Items.Item(i).ToString
        Next
    End Sub
End Class

        Dim myWebClient As New Net.WebClient
        Dim Quelltext As String = myWebClient.DownloadString( _
          "http://www.orange-gaming.eu/index.php?option=com_content&view=artic" & _
          "e&id=12&Itemid=28")
 
        Quelltext = Quelltext.Remove(0, Quelltext.LastIndexOf("IP-Adresse: ") + _
          12)
        Dim IP As String = Quelltext.Substring(0, Quelltext.IndexOf("</td>"))
        MsgBox(IP)