1'**************************************************************************
 2'Author:      zhaozhanqiang
 3'CreateTime:  2005-11-19
 4'ModuleName:  SettingsManager
 5'Discription: Read certain setting from config file
 6'**************************************************************************
 7
 8Imports System.Xml
 9Imports System.IO
10Namespace zzqNamespace zzq.DotNet.SettingsManager
11
12    Public Class SettingsManagerClass SettingsManager
13        ''' <summary>
14        ''' Read setting from config file
15        ''' </summary>
16        ''' <param name="strKey">Just a key in config file,retrieve a setting string according to it .</param>
17        ''' <returns>Setting string that can be used</returns>
18        ''' <remarks></remarks>
19        Public Shared Function GetSetting()Function GetSetting(ByVal strKey As String) As String
20
21            Dim strRootpath As String = String.Empty
22            strRootpath = Directory.GetCurrentDirectory
23            Dim strSeparater As String = Path.DirectorySeparatorChar
24            Dim doc As New XmlDocument
25            doc.Load(strRootpath + ".." + strSeparater + ".." + strSeparater + ".." + strSeparater + "Settings" + strSeparater + "Settings.config")
26
27            Return doc.GetElementsByTagName(strKey)(0).InnerText
28
29        End Function
30       
31    End Class
32
33End Namespace
34