Changeset 443 for trunk

Timestamp:

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

Author:

dai

Message:

タグ属性に対応。

Location:

trunk/Include/Classes/System/Xml

Files:

• XmlAttribute.ab (modified) (1 diff)
• XmlDocument.ab (modified) (2 diffs)
• XmlNode.ab (modified) (8 diffs)

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

@@ -12 +12 @@
         XmlNode( XmlNodeType.Attribute, prefix, localName, namespaceURI, doc )
     End Sub
+
+    /*!
+    @brief  このノードの子ノードだけを表すマークアップを取得または設定します。
+    */
+    Override Function InnerXml() As String
+        Return This.Value
+    End Function
+
+    /*!
+    @brief  このノードとそのすべての子ノードを表すマークアップを取得します。
+    @return このノードとそのすべての子ノードを格納しているマークアップ。
+    */
+    Override Function OuterXml() As String
+        Return This.LocalName + Ex"=\q" + InnerXml + Ex"\q"
+    End Function
 End Class
 

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

@@ -39 +39 @@
     /*!
     @brief  指定した値を使用して、XmlDeclaration ノードを作成します。
+    @param  version XMLのバージョン番号。
+            encoding 文字コード。（例："shift-jis", "UTF-8", "EUC-JP"）
+            standalone 外部DTDの参照が必要かどうか。"yes" or "no"
     */
     Function CreateXmlDeclaration( version As String, encoding As String, standalone As String ) As XmlDeclaration
@@ -45 +48 @@
 
     /*!
+    @brief  指定した名前を使用して属性を作成します。
+    @param  name 属性名
+    */
+    Function CreateAttribute( name As String) As XmlAttribute
+        VerifyLocalName( name )
+
+        Return New XmlAttribute( "", name, "", This )
+    End Function
+
+    /*!
     @brief  指定した名前を使用して要素を作成します。
+    @param  name 要素名。
     */
     Function CreateElement( name As String ) As XmlElement

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
 
         ' 子ノードリスト