Imports System.Net
Imports System.IO
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
 
    Dim sBuffer As String
 
    Public Function inetReadFile(ByVal sURL As String) As String
 
 
        ' WebRequest
        Dim oRequest As WebRequest = WebRequest.Create(sURL)
 
        ' GET-Methode (wir wollen etwas abholen :-)
        oRequest.Method = "GET"
 
        ' Antwort auf unsere Anfrage abholen
        Dim oResponse As WebResponse = oRequest.GetResponse()
 
        ' Datenstrom auslesen
        Dim oStream As New StreamReader(oResponse.GetResponseStream())
        sBuffer = oStream.ReadToEnd()
        oStream.Close()
 
        ' Beenden
        oResponse.Close()
 
        ' Inhalt zurückgeben
        Return sBuffer
 
    End Function
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
        Handles Button2.Click
 
        MsgBox("Bitte warte bis die Liste geladen hat, dies kann einige Minute" & _
          "in Anspruch nehmen")
        ' HTML-Seite auslesen
        TextBox1.Text = inetReadFile _
        ("http://...../datei_1.txt")
 
        ' HTML-Seite auslesen
        TextBox2.Text = inetReadFile _
        ("http://...../datei_2.txt")
 
        Label16.Text = TextBox2.Lines.Length
        Label15.Text = TextBox1.Lines.Length
 
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        Dim Liste_Fertig As String = TextBox1.Text 'ACI
        Dim liste_1 As String = TextBox2.Text 'AASA
 
        Dim lines() As String = Split(liste_1, vbCrLf)
        For x As Integer = 0 To lines.Length - 1
            If Liste_Fertig.Contains(lines(x)) = False Then
                Liste_Fertig &= vbCrLf & lines(x)
            End If
        Next x
 
        TextBox6.Text = Liste_Fertig
        Label19.Text = TextBox6.Lines.Length
        Label16.Text = TextBox2.Lines.Length
        Label15.Text = TextBox1.Lines.Length
        MsgBox("Aktuelle Einträge insgesamt: " + Label19.Text)
 
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button5.Click
 
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class