いつもお世話になっております。
現在、vb.netを使用してxmlファイルを作成するプログラムを作成しておるのですが、
作成したxmlファイルの内容が想定している形で出力されず困っております。
結果的にxmlファイルは作成はされるのですが、作成されたxmlファイルの中身を確認してみますと、
「<!DOCTYPE message SYSTEM "work_req.dtd"[]> 」となっているのですが、
最後の「」は本来入ってほしくない文字なのです。
デバックしてみても途中「」は入っていないのに
作成されたxmlファイルになると「」が入っているのです。
そもそものxmlファイル作成のコードが間違っているのかすらわからない状況なのです。
ご回答、宜しくお願いいたします。
strXML = "" strXML = "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf strXML &= "<!DOCTYPE message SYSTEM ""work_req.dtd"">" & vbCrLf strXML &= "<message message_id="""" message_dt=""2018/02/28""" & vbCrLf strXML &= "message_type="""" message_sub_type=""New""" & vbCrLf strXML &= "message_dtd_version_number=""123"">" & vbCrLf strXML &= "<header>" & vbCrLf strXML &= "<from_application_id></from_application_id>" & vbCrLf strXML &= "<to_application_id></to_application_id>" & vbCrLf strXML &= "</header>" & vbCrLf strXML &= "<body>" & vbCrLf <途中省略> strXML &= "</body>" & vbCrLf strXML &= "</message>" & vbCrLf Dim xmlDoc As New XmlDocument Dim item As XmlElement xmlDoc.LoadXml(strXML) Dim xmltxtWrite As New System.Xml.XmlTextWriter("C:\xml\20180202.xml", System.Text.Encoding.GetEncoding("UTF-8")) Try '文字コードを指定して作成したDOMドキュメントをファイルに保存 xmlDoc.Save(xmltxtWrite) 'XmlTextWriterを閉じます xmltxtWrite.Close() Catch ex As System.Xml.XmlException 'XMLによる例外をキャッチ Console.WriteLine(ex.Message) End Try
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/03/08 02:09