0

改行を削除し、フィールドから最後の空白を削除する必要がある xml フィードがあります。次の方法で XML を生成します。

Protected Sub GenerateXML(ByVal type As String)
        Dim ds As New DataSet
        Dim connStr As String = "database=M**********"
        Dim selectCommand As String
    If type = "standard" Then
        selectCommand = "select * from JobList where username = '" & username & "' and status in ('" & status & "','Cancelled', 'Assessed', 'Remove')"
    Else
        selectCommand = "select * from JobList where username = '" & username & " '"
    End If

    Using conn As New SqlConnection(connStr)
        Dim command As New SqlCommand(selectCommand, conn)
        conn.Open()
        ds.DataSetName = "Locations"
        ds.Load(command.ExecuteReader(), LoadOption.OverwriteChanges, "Location")

        For Each r As DataRow In ds.Tables("Location").Rows
            If r("status") = "Assessed" Then
                r("status") = "Cancelled"
            End If
        Next
        ds.AcceptChanges()


        Response.ContentType = "text/xml"
        ds.WriteXml(Response.OutputStream)
    End Using
End Sub

DS に入る各行を置換する方法はありますか? それとも、別の方法で XML を生成する必要がありますか?

タクンス

4

1 に答える 1

0

を使用して を作成XmlWriterし、Response.OutputStreamそれを に渡すことができます。 XmlWriter の使用WriteXml に関する記事はこちらです。

コードでの私の推測は次のとおりです。

XmlWriterSettings settings = new XmlWriterSettings();
settings.Indent = false;
settings.NewLineChars = "";


using (XmlWriter writer = XmlWriter.Create(Response.OutputStream, settings))
{
   ds.WriteXml(writer);
}
于 2013-08-02T10:28:39.523 に答える