Changeset 23159 for lang/vb2005/Tween/Tween/Setting.vb

Timestamp:

11/11/08 00:30:50 (5 years ago)

Author:

syo68k

Message:

(テスト) 新しい XML 設定ファイルの機構を新設@takeshik

Files:

• lang/vb2005/Tween/Tween/Setting.vb (modified) (5 diffs)

lang/vb2005/Tween/Tween/Setting.vb

@@ +1 @@
+Imports System.Xml
+
 Public Class Setting
+    Private _xrootElement As XmlElement
+
     Private _MyuserID As String
     Private _Mypassword As String
@@ -84 +88 @@
     '    UnreadCountAllCount
     'End Enum
+
+    Public Function GetValue(ByVal path As String, ByVal defaultValue As String) As String
+        Dim xnode As XmlNode = Me._xrootElement.SelectSingleNode("/tween-configuration/" + path)
+        If xnode Is Nothing Then
+            Me.SetValue(path, defaultValue)
+            Return defaultValue
+        Else
+            Return xnode.Value
+        End If
+    End Function
+
+    Public Function GetValue(ByVal path As String, ByVal defaultValue As Integer) As Integer
+        Dim xnode As XmlNode = Me._xrootElement.SelectSingleNode("/tween-configuration/" + path)
+        If xnode Is Nothing Then
+            Me.SetValue(path, defaultValue)
+            Return defaultValue
+        Else
+            Return Integer.Parse(xnode.InnerXml)
+        End If
+    End Function
+
+    Public Function GetValue(ByVal path As String, ByVal defaultValue As Boolean) As Boolean
+        Dim xnode As XmlNode = Me._xrootElement.SelectSingleNode("/tween-configuration/" + path)
+        If xnode Is Nothing Then
+            Me.SetValue(path, defaultValue)
+            Return defaultValue
+        Else
+            Return Boolean.Parse(xnode.InnerXml)
+        End If
+    End Function
+
+    Public Function GetValue(ByVal path As String, ByVal defaultValue As Date) As Date
+        Dim xnode As XmlNode = Me._xrootElement.SelectSingleNode("/tween-configuration/" + path)
+        If xnode Is Nothing Then
+            Me.SetValue(path, defaultValue)
+            Return defaultValue
+        Else
+            Return Date.Parse(xnode.InnerXml)
+        End If
+    End Function
+
+    Public Function GetElement(ByVal path As String) As XmlElement
+        Dim xnode As XmlNode = Me._xrootElement.SelectSingleNode("/tween-configuration/" + path)
+        If xnode Is Nothing Then
+            Me.RetrievePath(path)
+            Return Nothing
+        Else
+            Return DirectCast(xnode, XmlElement)
+        End If
+    End Function
+
+    Public Sub SetValue(ByVal path As String, ByVal value As String)
+        Me.RetrievePath(path).SetValue(value)
+    End Sub
+
+    Public Sub SetValue(ByVal path As String, ByVal value As Integer)
+        Me.RetrievePath(path).SetValue(value.ToString())
+    End Sub
+
+    Public Sub SetValue(ByVal path As String, ByVal value As Boolean)
+        Me.RetrievePath(path).SetValue(value.ToString())
+    End Sub
+
+    Public Sub SetValue(ByVal path As String, ByVal value As DateTime)
+        Me.RetrievePath(path).SetValue(value.ToString())
+    End Sub
+
+    Public Sub SetElement(ByVal path As String, ByVal xelement As XmlElement)
+        Me.RetrievePath(path).ReplaceSelf(xelement.ToString())
+    End Sub
+
+    Public Sub LoadConfiguration(ByVal fileName As String)
+        Dim xdocument As XmlDocument = New XmlDocument()
+        If IO.File.Exists(fileName) Then
+            xdocument.Load(fileName)
+        Else
+            xdocument.AppendChild(xdocument.CreateXmlDeclaration("1.0", "utf-8", Nothing))
+            xdocument.AppendChild(xdocument.CreateComment("���̐ݒ��@�C����Tween �ɂ������������������B�蓮�ŕύX���Ȃ��ł��������B"))
+            xdocument.AppendChild(xdocument.CreateElement("tween-configuration"))
+            xdocument.Save(fileName)
+        End If
+        Me._xrootElement = xdocument.DocumentElement
+    End Sub
+
+    Public Sub SaveConfiguration(ByVal fileName As String)
+        Me._xrootElement.OwnerDocument.Save(fileName)
+        Me.LoadConfiguration(fileName)
+    End Sub
+
+    Private Function RetrievePath(ByVal path As String) As XPath.XPathNavigator
+        Dim xnav As XPath.XPathNavigator = Me._xrootElement.OwnerDocument.CreateNavigator()
+        xnav = xnav.SelectSingleNode("/tween-configuration")
+        For Each fragment As String In path.Split(New Char() {"/"c}, StringSplitOptions.RemoveEmptyEntries)
+            If (xnav.SelectSingleNode(fragment) Is Nothing) Then
+                xnav.AppendChildElement("", fragment, Nothing, Nothing)
+            End If
+            xnav = xnav.SelectSingleNode(fragment)
+        Next
+        Return xnav
+    End Function
 
     Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
@@ -617 +721 @@
         End Set
     End Property
+
     Public Property MaxPostNum() As Integer
         Get
@@ -922 +1027 @@
         End Set
     End Property
+
     Public Property DispLatestPost() As DispTitleEnum
         Get
@@ -1138 +1244 @@
     End Sub
 End Class
+