Changeset 443 for trunk/Include/Classes/System/Xml/XmlNode.ab

Timestamp:

Feb 28, 2008, 11:36:03 PM (17 years ago)

Author:

dai

Message:

タグ属性に対応。

File:

• trunk/Include/Classes/System/Xml/XmlNode.ab (modified) (8 diffs)

trunk/Include/Classes/System/Xml/XmlNode.ab

@@ -28 +28 @@
 Class XmlNode
 
-    'attributes As XmlAttributeCollection
+    attributes As XmlAttributeCollection
     childNodes As XmlNodeList
     prefix As String
@@ -49 +49 @@
         This.value = Nothing
 
+        attributes = New XmlAttributeCollection
         childNodes = New XmlNodeList()
     End Sub
@@ -62 +63 @@
         This.value = data
 
+        attributes = New XmlAttributeCollection
         childNodes = Nothing
     End Sub
@@ -73 +75 @@
     @brief  名前またはインデックスによってアクセスできる属性のコレクションを表します。
     */
-    'Virtual Function Attributes() As XmlAttributeCollection
-    '   Return attributes
-    'End Function
+    Virtual Function Attributes() As XmlAttributeCollection
+        Return attributes
+    End Function
 
     /*!
@@ -157 +159 @@
     End Function
 
-    
+    /*!
+    @brief  このノードの値を取得します。
+    @return このノードの値。
+    */
+    Virtual Function Value() As String
+        return value
+    End Function
+
+    /*!
+    @brief  このノードの値を設定します。
+    @param  value 値文字列。
+    */
+    Virtual Sub Value( value As String )
+        This.value = value
+    End Sub
 
 
@@ -250 +266 @@
 
 Protected
+
+    Function GetAttributesStr() As String
+        If attributes.Count = 0 Then
+            ' 属性が1つもない場合
+            Return ""
+        End If
+
+        Dim result = ""
+        Foreach attribute In attributes
+            result += " " + attribute.OuterXml
+        Next
+        Return result
+    End Function
+
     Virtual Function InnerXmlSupportedIndent( isIndent = False As Boolean, indent = 0 As Long ) As String
         Dim result = ""
@@ -275 +305 @@
 
         If childNodes.Count = 0 Then
-            Return indentStr + "<" + localName + " />" + crlfStr
+            Return indentStr + "<" + localName + This.GetAttributesStr() + " />" + crlfStr
         End If
 
@@ -281 +311 @@
 
         ' 開始タグ
-        result += indentStr + "<" + localName + ">" + crlfStr
+        result += indentStr + "<" + localName + This.GetAttributesStr() + ">" + crlfStr
 
         ' 子ノードリスト