Changeset 451

Timestamp:

Mar 3, 2008, 8:38:25 PM (17 years ago)

Author:

dai

Message:

XmlDocument.Saveメソッドを実装。
Xml文書生成処理を改良。

Location:

trunk/Include/Classes/System/Xml

Files:

• XmlDeclaration.ab (modified) (1 diff)
• XmlDocument.ab (modified) (2 diffs)
• XmlNode.ab (modified) (4 diffs)
• XmlText.ab (modified) (1 diff)

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

@@ -26 +26 @@
 
     Override Function OwnerXmlSupportedIndent( isIndent = False As Boolean, indent = 0 As Long ) As String
-        Return "<?" + InnerXml + "?>"
+        Dim crlfStr = ""
+        If isIndent Then
+            ' インデントをサポートする場合
+            crlfStr = Ex"\r\n"
+        End If
+        Return "<?" + InnerXml + "?>" + crlfStr
     End Function
 End Class

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

@@ -37 +37 @@
     'End Sub
 
+
+    '----------------------------------------------------------------
+    ' パブリック プロパティ
+    '----------------------------------------------------------------
+
+    /*!
+    @brief  このノードとそのすべての子ノードを表すマークアップを取得します。
+    @return このノードとそのすべての子ノードを格納しているマークアップ。
+    */
+    Override Function OuterXml() As String
+        Return This.InnerXml
+    End Function
+
+
+    '----------------------------------------------------------------
+    ' パブリック メソッド
+    '----------------------------------------------------------------
+
     /*!
     @brief  指定した値を使用して、XmlDeclaration ノードを作成します。
@@ -68 +86 @@
 
     /*!
-    @brief  このノードとそのすべての子ノードを表すマークアップを取得します。
-    @return このノードとそのすべての子ノードを格納しているマークアップ。
+    @brief  指定した文字列を使用してテキストノードを作成します。
+    @param  text 文字列。
     */
-    Override Function OuterXml() As String
-        Return This.InnerXml
+    Function CreateTextNode( text As String ) As XmlText
+        Return New XmlText( text, This )
     End Function
+
+    /*!
+    @brief  指定したストリームにXML文書を保存する。
+    @param  stream 保存先のストリーム。
+    */
+    Virtual Sub Save( outStream As System.IO.Stream )
+        Dim xmlStr = InnerXmlSupportedIndent( True )
+        outStream.Write( xmlStr.StrPtr As *Byte, 0, xmlStr.Length * SizeOf( StrChar ) )
+    End Sub
+
+    /*!
+    @brief  指定したファイルにXML文書を保存する。
+    @param  ファイルパス。
+    */
+    Virtual Sub Save( filename As String )
+        Dim fileStream As System.IO.FileStream( filename, System.IO.FileMode.Create )
+        Save( fileStream )
+    End Sub
 
 End Class

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

@@ -43 +43 @@
     */
     Sub XmlNode( nodeType As XmlNodeType, prefix As String, localName As String, namespaceURI As String, doc As XmlDocument )
+        This.nodeType = nodeType
         This.prefix = prefix
         This.localName = localName
@@ -57 +58 @@
     */
     Sub XmlNode( nodeType As XmlNodeType, data As String, doc As XmlDocument )
+        This.nodeType = nodeType
         This.prefix = Nothing
         This.localName = Nothing
@@ -304 +306 @@
         End If
 
-        If childNodes.Count = 0 Then
+        If This.childNodes.Count = 0 Then
             Return indentStr + "<" + localName + This.GetAttributesStr() + " />" + crlfStr
         End If
@@ -310 +312 @@
         Dim result = ""
 
-        ' 開始タグ
-        result += indentStr + "<" + localName + This.GetAttributesStr() + ">" + crlfStr
-
-        ' 子ノードリスト
-        result += InnerXmlSupportedIndent( isIndent, indent + 1 )
-
-        ' 終了タグ
-        result += indentStr + "</" + localName + ">" + crlfStr
+        If This.FirstChild.NodeType = XmlNodeType.Text Then
+            ' 子ノードがテキストのときは開始タグ、終了タグの間にインデントや改行を入れない
+
+            ' 開始タグ
+            result += indentStr + "<" + localName + This.GetAttributesStr() + ">"
+
+            ' 子ノードリスト
+            result += InnerXmlSupportedIndent( isIndent, indent + 1 )
+
+            ' 終了タグ
+            result += "</" + localName + ">" + crlfStr
+        Else
+            ' 開始タグ
+            result += indentStr + "<" + localName + This.GetAttributesStr() + ">" + crlfStr
+
+            ' 子ノードリスト
+            result += InnerXmlSupportedIndent( isIndent, indent + 1 )
+
+            ' 終了タグ
+            result += indentStr + "</" + localName + ">" + crlfStr
+        End If
 
         Return result

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

@@ -16 +16 @@
         XmlCharacterData( XmlNodeType.Text, strData, doc )
     End Sub
+
+Protected
+    Override Function InnerXmlSupportedIndent( isIndent = False As Boolean, indent = 0 As Long ) As String
+        Return Value
+    End Function
+
+    Override Function OwnerXmlSupportedIndent( isIndent = False As Boolean, indent = 0 As Long ) As String
+        Return Value
+    End Function
 End Class