Imports System.Xml
Imports System.IO
Imports System.Reflection

Public Class Parameters
    Dim sconnectionstringEDOKA As String
    Property ConnectionStringEDOKA() As String
        Get
            Return sconnectionstringEDOKA
        End Get
        Set(ByVal value As String)
            sconnectionstringEDOKA = value
        End Set
    End Property
    Dim sconnectionstringEDOKA_HOST As String
    Property ConnectionStringEDOKA_HOST() As String
        Get
            Return sconnectionstringEDOKA_HOST
        End Get
        Set(ByVal value As String)
            sconnectionstringEDOKA_HOST = value
        End Set
    End Property
    Dim sconnectionstringEDOKA_ZV As String
    Property ConnectionStringEDOKA_ZV() As String
        Get
            Return sconnectionstringEDOKA_ZV
        End Get
        Set(ByVal value As String)
            sconnectionstringEDOKA_ZV = value
        End Set
    End Property
    Dim sconnectionstringColdabgleich As String
    Property ConnectionStringColdabgleich() As String
        Get
            Return sconnectionstringColdabgleich
        End Get
        Set(ByVal value As String)
            sconnectionstringColdabgleich = value
        End Set
    End Property

    Dim sscriptpath As String
    Property ScriptPath() As String
        Get
            Return sscriptpath
        End Get
        Set(ByVal value As String)
            sscriptpath = value
        End Set
    End Property


    Dim xmldoc As New XmlDocument

    Public Sub New()
        xmldoc.Load(Me.ApplicationPath + "Parameters.xml")
        Me.ConnectionStringEDOKA = xmldoc.SelectSingleNode("/Configuration/SQLConnEDOKA").InnerText
        Me.ConnectionStringEDOKA_HOST = xmldoc.SelectSingleNode("/Configuration/SQLConnHOST").InnerText
        Me.ConnectionStringEDOKA_ZV = xmldoc.SelectSingleNode("/Configuration/SQLConnZV").InnerText
        Me.ConnectionStringcoldabgleich = xmldoc.SelectSingleNode("/Configuration/SQLConnColdabgleich").InnerText
        Me.ScriptPath = xmldoc.SelectSingleNode("/Configuration/Scriptpath").InnerText
    End Sub

    Public Function ApplicationPath() As String
        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
    End Function

End Class