如何在Vb6中将XML值分配给字符串

我想将下面提到的xml值分配给如下字符串

Dim test As String

test = ... ?

      <RptVer>1</RptVer>

      <RptTyp>1</RptTyp>

    </RptInfo>

</InstRptRoot>

其中XML应包含：

      <RptVer>1</RptVer>

      <RptTyp>1</RptTyp>

    </RptInfo>

</InstRptRoot>

1
1.

      <RptVer>1</RptVer>

      <RptTyp>1</RptTyp>

    </RptInfo>

</InstRptRoot>

---

如何做到这一点并保留格式（即换行符、间距等）？

Mark回答了您的问题，我将回答您的第二个问题：

      <RptVer>1</RptVer>

      <RptTyp>1</RptTyp>

    </RptInfo>

</InstRptRoot>

Dim test As String

test = "<RptInfo>" & vbCrLf & vbCrLf & _
       vbTab & "<RptVer>1</RptVer>" & vbCrLf & vbCrLf & _
       vbTab & "<RptTyp>1</RptTyp> & vbCrLf & vbCrLf & _
      "</RptInfo>"

Dim测试为字符串
test=”“&vbCrLf&vbCrLf&_
vbTab&“1”&vbCrLf&vbCrLf&_
vbTab&1&vbCrLf&vbCrLf&_
""

---

假设你想要双倍行距和缩进。你也错过了前导标记，但MarkL也抓住了它。

Mark回答了你的问题，我将回答你的第二个问题：

      <RptVer>1</RptVer>

      <RptTyp>1</RptTyp>

    </RptInfo>

</InstRptRoot>

Dim test As String

test = "<RptInfo>" & vbCrLf & vbCrLf & _
       vbTab & "<RptVer>1</RptVer>" & vbCrLf & vbCrLf & _
       vbTab & "<RptTyp>1</RptTyp> & vbCrLf & vbCrLf & _
      "</RptInfo>"

Dim测试为字符串
test=”“&vbCrLf&vbCrLf&_
vbTab&“1”&vbCrLf&vbCrLf&_
vbTab&1&vbCrLf&vbCrLf&_
""

---

假设你想要它双倍行距和缩进。您也错过了前面的标记，但MarkL也发现了这一点。

test=“11”

？如果超出一行，如何添加空格？

test=“11”

？如果超出一行，如何添加空格？值得一提的是，在xml处理方面，CrLf和制表符是不必要的。它们只会让它更具可读性。谢谢，这就是我想要的。值得一提的是，在xml处理方面，CrLf和制表符是不必要的。它们只会让它更具可读性。谢谢，这就是我想要的

      <RptVer>1</RptVer>

      <RptTyp>1</RptTyp>

    </RptInfo>

</InstRptRoot>