Compare Page Revisions
« Older Revision - Back to Page History - Newer Revision »
Parser
app.config
web.config
Key
_dict
Imports Microsoft.VisualBasic Imports System.Collections.Generic Public Class ConfigMgr Public Enum Key AppId LinesPerPage SingleSignOnMode End Enum Private Shared _dict As Dictionary(Of Key, String) Shared Sub New() _dict = New Dictionary(Of Key, String)() _dict.Add(Key.AppId, "ApplicationID") _dict.Add(Key.LinesPerPage, "LinesPerPage") _dict.Add(Key.SingleSignOnMode, "SSO") End Sub Public Shared Function GetKey(ByVal key As Key) As String Return _dict(key) End Function Public Shared Function GetValue(ByVal key As Key, Optional ByVal defaultValue As String = "") _ As String Dim s As String = ConfigurationManager.AppSettings(_dict(key)) If s Is Nothing Then s = "" End If If s.Length = 0 Then s = defaultValue End If Return s End Function Public Shared Function TryGetValue(Of T)(ByVal key As Key, ByRef value As T) As Boolean Return Parser(Of T).TryParse(GetValue(key), value) End Function End Class
TODO
ScrewTurn Wiki version 3.0.1.400. Some of the icons created by FamFamFam. Except where noted, all contents Copyright © 1999-2024, Patrick Jasinski.