如果您注意到编码已从
UTF-8
到
iso-8859-1
您需要在
StringWriter
不幸的是,它不支持直接设置编码。因此,创建自己的
StringWriter
通过继承自
StringWriter
.
Public Class MyStringWriter
Inherits StringWriter
Public Overrides Property Encoding As Encoding
Get
Return Encoding.UTF8
End Get
End Property
End Class
然后在代码中使用:
Dim inputserilize As New XmlSerializer(SubmitOrderRequest.GetType)
Dim strwriters = New MyStringWriter
inputserilize.Serialize(strwriters, SubmitOrderRequest)
WriteToFile("Input XML: " & strwriters.ToString & vbCrLf)
Dim inputserilize As New XmlSerializer(SubmitOrderRequest.GetType)
Dim strwriters = New StringWriter
inputserilize.Serialize(strwriters, SubmitOrderRequest)
WriteToFile("Input XML: " & strwriters.ToString & vbCrLf)