怎样用VB6 生成XML 如下格式

Question

<Address>
  <ttt>
    <aa>323</aa>
    <bb>344</bb>
  </ttt>
  <ttt>
    <aa>3443</aa>
    <bb>3556</bb>
  </ttt>
...
</Address>

Answer 1

xml文件其实就是纯文本文件，你用open语句打开文件直接写就可以了：
Private Sub Command1_Click()
Dim s1 As String
s1 = "<Address>" + vbCrLf + "<ttt>" + vbCrLf + "<aa>323</aa>" + vbCrLf + "<bb>344</bb>" + vbCrLf + "</ttt>" + vbCrLf + "<ttt>" + vbCrLf + "<aa>3443</aa>" + vbCrLf + "<bb>3556</bb>" + vbCrLf + "</ttt>" + vbCrLf + "</Address>"
Dim mfile As String
mfile = "e:\mc\mxml.xml"
Open mfile For Binary As #1
Put #1, , s1
Close #1
End Sub