XML Coding

• 目次
  • .NET コーディング
  • SQL Serverデータ型(XML,RowVersion,etc.)

.NET コーディング

---

• XmlTextWriter生成xml字符串

XmlTextWriter生成xml字符串
//webService

using System;
using System.Web;
using System.Web.Services;
using System.Web.Services.Protocols;
using System.Xml;
using System.Text;
using System.IO;

[WebService(Namespace = "webservice")] //(Namespace = "http://localhost/webserver/")
[WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]
public class Service : System.Web.Services.WebService
{
    public Service () {

        //如果使用设计的组件，请取消注释以下行 
        //InitializeComponent(); 
    }

    [WebMethod]
    public string HelloWorld() {
        return "Hello World";
    }

    [WebMethod] 
    public  string  show(string  yourname) 
    { 
        //return  "http://aaaaa"+"欢迎"+yourname;

       //生成xml字符串：
        using (StringWriter sw = new StringWriter())
        {
            XmlTextWriter xtw = new XmlTextWriter(sw);
            xtw.Formatting = Formatting.Indented;
            xtw.WriteStartDocument();

            xtw.WriteStartElement("root");

            //test
            xtw.WriteStartElement("test");
            xtw.WriteString("test content");
            xtw.WriteEndElement();

            //test2
            xtw.WriteStartElement("test2");

            //testSub
            xtw.WriteStartElement("testSub");
            xtw.WriteString("Sub content");
            xtw.WriteEndElement();

            xtw.WriteEndElement();
        

            xtw.WriteEndElement();//root
            xtw.WriteEndDocument();            
          
            string result = sw.ToString();

            return result.Replace("utf-8", "gb2312").Replace("utf-16", "gb2312");
        } 
    }

    
    [WebMethod] 
    public string parseXML()
    {
        /**//**//**/////解析xml：
        string strInput = "<?xml version='1.0' encoding='utf-16'?><foo><bar /></foo>";
        XmlTextReader r = new XmlTextReader(new StringReader(strInput));
        MemoryStream ms = new MemoryStream();
        XmlTextWriter w = new XmlTextWriter(ms, Encoding.UTF8);
        w.WriteNode(r, false);
        w.Flush();
        ms.Position = 0;
        StreamReader sr = new StreamReader(ms);
        string strOutput = sr.ReadToEnd();
        return strOutput.Replace("utf-8", "gb2312").Replace("utf-16", "gb2312");
        //Console.WriteLine("Input = {0}, Output = {1}", strInput.Length, strOutput.Length);
    }

 

•   如何从XML字符串获取DataSet 　（By 小二哥's blog）

由XML字符串生成数据集
private DataSet GetDataSet()
        {
            try
            {
                string text = GetstrXML();
                XmlTextReader reader = new XmlTextReader(new StringReader(text));
                reader.WhitespaceHandling = WhitespaceHandling.None;//
                DataSet ds = new DataSet();
                ds.ReadXml( reader );//加载XML到DS中
                reader.Close();
                ds.Dispose();
                return ds;
            }
            catch(Exception err)
            {
                throw new Exception("GetDataSet方法异常："+err.Message);
            
            }
        }

 

• XMLストアド

StringBuilder生成XML文字列
        /**//**/''' <summary>
        ''' メソッド GetSbRowsXML
        ''' </summary>
        ''' <remarks>
        ''' スプレッド内表示されている行の列内容、XMLストリングで戻す
        ''' </remarks>
        Public Function GetSbRowsXML()Function GetSbRowsXML()Function GetSbRowsXML()Function GetSbRowsXML(ByVal columnIndex As Integer, ByVal flg As Boolean) As String
            '予算Seq# xmlStringの編集
            Dim xmlString As New System.Text.StringBuilder()

            'フィルタ条件に一致した行を取得する
            Dim listin As Integer()
            If flg Then
                listin = Me.RowFilter.GetIntersectedFilteredInRows()
            Else
                listin = Nothing
            End If

            Dim rowindex As Integer
            xmlString.Append("<?xml version=""1.0"" encoding=""utf-8"" ?><Root>")
            Dim i As Integer
            For i = 0 To Me.SbRowCount - 1
                If listin Is Nothing Then
                    rowindex = i
                Else
                    rowindex = listin(i)
                End If

                xmlString.Append("<key>")
                xmlString.Append(Me.Cells(rowindex, columnIndex).Text)
                xmlString.Append("</key>")
            Next
            xmlString.Append("</Root>")

            Return xmlString.ToString

        End Function

        Public Function GetSbRowsXML()Function GetSbRowsXML()Function GetSbRowsXML()Function GetSbRowsXML(ByVal columnIndex As Integer) As String

            Return GetSbRowsXML(columnIndex, True)

        End Function

由XmlTextReader从XML文字列生成SqlXml存储过程参数类
        Public Function Export_YSN_KNR_ByDataSet()Function Export_YSN_KNR_ByDataSet()Function Export_YSN_KNR_ByDataSet()Function Export_YSN_KNR_ByDataSet(ByVal xmlString As String, ByVal GmnIdText As String, ByVal year As String, ByRef rrkFlg As Boolean) As DataSet

            Try
                Dim sqlCommand As String = "sp_Export_YSN_KNR_ByDataSet"
                Dim dbCommand As DbCommand = db.GetStoredProcCommand(sqlCommand)
                dbCommand.CommandTimeout = 6000

                'パラメタ追加
                Dim doc As New System.Xml.XmlDocument()
                doc.LoadXml(xmlString)
                Dim xr As XmlTextReader = New XmlTextReader(New System.IO.StringReader(doc.OuterXml))
                db.AddInParameter(dbCommand, "@xmlFile", DbType.Xml, New SqlXml(xr))    '予算Seq#(複数<xml形式>)
                db.AddInParameter(dbCommand, "@GMN_ID", DbType.String, GmnIdText)       '画面ID
                db.AddInParameter(dbCommand, "@year", DbType.String, year)       '画面ID
                db.AddOutParameter(dbCommand, "@RRKflg", DbType.Boolean, rrkFlg)

                'ストアドプロシージャ実行
                Dim rtnds As DataSet = db.ExecuteDataSet(dbCommand)

                If IsDBNull(db.GetParameterValue(dbCommand, "@RRKflg")) = False Then
                    rrkFlg = db.GetParameterValue(dbCommand, "@RRKflg")
                End If

                Return rtnds

            Catch ex As SqlException
                Throw New SbSysErrException("MSBE301", ex.ErrorCode, ex.Message)

            Catch ex As Exception
                Throw New SbSysErrException("MSBE300", ex.Message)
            End Try
　       End Function

XML参数存储过程
Create PROCEDURE [dbo].[sp_Export_YSN_KNR_ByDataSet] (
     @xmlFile XML,
     @GMN_ID CHAR(6),
     @year CHAR(4),
     @RRKflg BIT OUTPUT
    )
AS 
BEGIN    
    
        --Exportテーブル定義    
    DECLARE @TB_EXPORT TABLE (
         --YSN
         [YSN_SEQ] [int]
        )
    
    --パラメータ(予算Seq#(複数)の受取)
    INSERT  INTO @TB_EXPORT (YSN_SEQ)
            SELECT  TB_PAR.c.value('.', 'int')
            FROM    @xmlFile.nodes('/Root/key') TB_PAR (c)
        
    
END