VB程序员博客

开发工具：VB6.0
现有如下代码，请各路高手赐教！小弟不胜感激~~如有源码更好！

Private Sub Command1_Click()
    Dim xmlStr As String
    xmlStr = getXML
    '请问如何把xmlStr转成一个xml文档?
End Sub

Public Function getXML() As String
    Dim xml As String
        xml = xml + " <?xml version='1.0' encoding='UTF-8'?>"
        xml = xml + " <FREIGHTCPIC>"
        xml = xml + "  <HEADER>"
        xml = xml + "    <TYPE>IN </TYPE>"
        xml = xml + "    <WORKTYPE>0 </WORKTYPE>"
        xml = xml + "    <CLASSESTYPE>1 </CLASSESTYPE>"
        xml = xml + "    <LOGINUSERNAME>ayyt </LOGINUSERNAME>"
        xml = xml + "    <LOGINPASSWORD>ayyt </LOGINPASSWORD>"
        xml = xml + "  </HEADER>"
        xml = xml + " </FREIGHTCPIC>"
        getXML = xml
End Function代开各行业【増直/鐠通】漂据。
另批发/零售仿真度可达90%以上各品牌香烟，如中华、黄鹤楼1916、芙蓉王、南京95至尊、白沙(和天下)、苏烟、玉溪、利群、双喜、世纪经典等。
如有意，请联系Q：1145553117。  手机：13544123356、金先生

谢谢楼上的~

标签: , 字符串, 文件