XML作成について

環境/言語:[vb6]
分類:[VB6以前]

ＶＢ６で以下のようなプログラムでXMLを作ろうとしているのですが
strXml1を使うと作成されません。
strXml2を使うと上手くいくのですが
違いは何でしょうか。



Private Sub Command1_Click()
Dim xmlDocument As MSXML2.DOMDocument

Dim strXml1 As String
Dim strXml2 As String

strXml1 = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "utf-16" & Chr(34) & " ?>" & _
"<MessageAccount>" & _
"<Account_Name type=" & Chr(34) & "SZ" & Chr(34) & ">ybbpop.mail.yahoo.co.jp</Account_Name>" & _
"<Connection_Type type=" & Chr(34) & "DWORD" & Chr(34) & ">00000003</Connection_Type>" & _
"<POP3_Server type=" & Chr(34) & "SZ" & Chr(34) & ">ybbpop.mail.yahoo.co.jp</POP3_Server>" & _
"<POP3_User_Name type=" & Chr(34) & "SZ" & Chr(34) & ">mailtester</POP3_User_Name>" & _
"<POP3_Password2 type=" & Chr(34) & "BINARY" & Chr(34) & "></POP3_Password2>" & _
"<POP3_Skip_Account type=" & Chr(34) & "DWORD" & Chr(34) & ">00000000</POP3_Skip_Account>" & _
"<POP3_Prompt_for_Password type" & Chr(34) & "DWORD" & Chr(34) & ">00000000</POP3_Prompt_for_Password>" & _
"<SMTP_Server type=" & Chr(34) & "SZ" & Chr(34) & ">ybbsmtp.mail.yahoo.co.jp</SMTP_Server>" & _
"<SMTP_Display_Name type=" & Chr(34) & "SZ" & Chr(34) & ">mailtester</SMTP_Display_Name>" & _
"<SMTP_Email_Address type=" & Chr(34) & "SZ" & Chr(34) & ">mailtester@yahoo.co.jp</SMTP_Email_Address>" & _
"</MessageAccount>"








strXml2 = "<?xml version='1.0'?>" & _
"<personal_data>" & _
"<zip>123-4567</zip>" & _
"<address>東京都内</address>" & _
"<name>HIRO</name>" & _
"</personal_data>"




Set xmlDocument = New MSXML2.DOMDocument


xmlDocument.loadXML (strXml1)
xmlDocument.save ("C:\Documents and Settings\****\デスクトップ\red.xml")



'終了処理-------------------------------------------
If Not xmlDocument Is Nothing Then Set xmlDocument = Nothing


End Sub

■No22735に返信(holynightさんの記事)
> strXml1を使うと作成されません。

そりゃまぁ、XML　が間違っていますし。
一文字抜けているようですので、もう一度見直してみてください。


Debug.? "loadXML";Tab(15);xmlDocument.loadXML(strXml1)
With xmlDocument.parseError
　Debug.? "errorCode";Tab(15); .errorCode
　Debug.? "reaon"; Tab(15); .reason
　Debug.? "filePos"; Tab(15); .filepos
　Debug.? "line"; Tab(15); .Line
　Debug.? "linePos"; Tab(15); .linepos
　'Debug.? "【" & .srcText & "】"
　'Debug.? "『" & Mid(.srcText, .filepos, 20) & "』"
End With


実行結果：
　loadXML False
　errorCode -1072896763
　reaon 無効な文字が含まれた名前です。
　filePos 424
　line 1
　linePos 425

■No22740に返信(魔界の仮面弁士さんの記事)
すいません。つまらないミスでした。
とりあえず解決できたので
ありがとうございました。