Imports System
Imports System.IO
Public Class Form1
    Dim dict As New Dictionary(Of String, String)
    Dim entry As KeyValuePair(Of String, String)
    Public Pfad As String = Application.StartupPath & "\Dict.dat"
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
        If Not File.Exists(Pfad) Then
            MsgBox("Keine Datenbank vorhanden. Erstelle leere Datenbank.")
            Using sw As StreamWriter = File.CreateText(Pfad)
                sw.WriteLine("lol=Laughing Out Loud")
sw.WriteLine("rofl=Rolling On (The) Floor Laughing (My) Ass Off")
 
            End Using
        End If
        'Einlesen der Datei
        Dim sr As IO.StreamReader = New IO.StreamReader(Pfad)
 
 
        Dim xA As Object
los:
        If sr.EndOfStream = False Then
            xA = Split(sr.ReadLine, "=", -1, 0)
            dict.Add(xA(0).ToString.ToLower, xA(1).ToString)
            GoTo los
        End If
        sr.Close()
 
 
        'suchen
        For Each entry In dict
            'MsgBox(entry.Key & entry.Value)
        Next
 
 
 
        Button2.Enabled = False
 
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If dict.ContainsKey(TextBox1.Text.ToLower) = True Then
            TextBox2.Text = dict(TextBox1.Text.ToLower)
            Button2.Enabled = False
        Else
            TextBox2.Text = ""
            Button2.Enabled = True
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button2.Click
 
        'speichere alles in die Datei
        Using sw As StreamWriter = File.CreateText(FILE_NAME)
            For Each entry In dict
                sw.WriteLine(entry.Key & "=" & entry.Value)
            Next
            'Neueintrag in Datei hinzufügen
            sw.WriteLine(TextBox1.Text & "=" & TextBox2.Text)
        End Using
 
        'Neueintrag in dict hinzufügen
        dict.Add(TextBox1.Text.ToLower, TextBox2.Text)
        MsgBox("Eintrag erfolgreich")
    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