Imports System

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        ' create a test file

        IO.File.WriteAllLines("test.txt", {"DataBaseType =1", "ServerName=LAPTOP-XXXX", "Database=mydatabase", "Connection Timeout=3000", "User ID=sa", "Password=sasa", "ServerIp=xxxx:8083", "ServiceType=http://", "Backup Driver=D:\", "Backup Folder=SWBACKUP", "Database Restore=D:\"})

​

        ' get the config

        Dim config = ReadConfigFile("test.txt")

        Console.WriteLine(config("ServerName"))

    End Sub

​

    Private Function ReadConfigFile(path As String) As Dictionary(Of String, String)

        If (String.IsNullOrWhiteSpace(path)) Then

            Throw New ArgumentNullException("path")

        End If

        If (Not IO.File.Exists(path)) Then

            Throw New ArgumentException("The file does not exist.")

        End If

        Dim config = New Dictionary(Of String, String)

        Dim lines = IO.File.ReadAllLines(path)

        For Each line In lines

            Dim separator = line.IndexOf("=")

            If (separator < 0 OrElse separator = line.Length - 1) Then

                Throw New Exception("The following line is not in a valid format: " & line)

            End If

            Dim key = line.Substring(0, separator)

            Dim value = line.Substring(separator + 1)

            config.Add(key, value)

        Next

        Return config

    End Function

End Module