Appsettings i din kode (C# / VB .NET)

Det er et evigt område der skal arbejdes i, og derfor kan man lige så godt lave noget fornuftig wrapper til den slags. Det gør det nemt at arbejde i og have centraliseret.

Public Class ConfigurationSettings
        Public Shared Function AppSettings(ByVal Key As String) As String
            Return GetAppSettings.Get(Key)
        End Function

        Public Shared Function [Get](ByVal Key As String) As String
            Return GetAppSettings.Get(Key)
        End Function

        Public Shared Function [AllKeys]() As String()
            Return GetAppSettings.AllKeys
        End Function

        Public Shared ReadOnly Property GetAppSettings() As System.Collections.Specialized.NameValueCollection
            Get
                Dim reader As New System.Configuration.AppSettingsReader()
                Dim appStgs As System.Collections.Specialized.NameValueCollection = _
                System.Configuration.ConfigurationManager.AppSettings
                Return appStgs
            End Get
        End Property

        Public Shared Sub ShowAllAppSettingsConsole()
            Dim reader As New System.Configuration.AppSettingsReader()
            Dim appStgs As System.Collections.Specialized.NameValueCollection = _
                System.Configuration.ConfigurationManager.AppSettings
            Dim names As String() = _
                System.Configuration.ConfigurationManager.AppSettings.AllKeys
            Dim value As String = String.Empty
            Dim i As Integer
            For i = 0 To appStgs.Count - 1
                Dim key As String = names(i)
                value = CStr(reader.GetValue(key, value.GetType()))
                Console.WriteLine("#{0} Name: {1} Value: {2}", i, key, value)
            Next i
        End Sub 'ShowAppSettings
End Class