如何在VB6中将指定XML内容赋值给字符串并保留格式

嘿，这个问题我太熟啦！在VB里要把带格式的XML赋值给字符串，同时保留原有的换行、空格这些排版，有两种实用的方法，看你用的VB版本来选就行：

方法1：VB.NET 14+ 用多行字符串字面量（最省心） #

从VB 14版本开始，支持用三个双引号包裹的多行字符串字面量，你可以直接把XML内容原封不动地放进去，换行、空格都会被完整保留，完全不用手动拼接换行符：

Dim test As String = """<RptVer>1</RptVer>
<RptTyp>1</RptTyp>
</RptInfo>
</InstRptRoot>"""

要是你想让开头也换行，直接在三个双引号后加换行就行，格式完全跟着你写的来。

方法2：兼容旧版本VB的拼接方式 #

如果你的VB版本比较老，不支持多行字符串，那就用传统的字符串拼接方式：把每一行XML用双引号括起来，然后用& vbCrLf &连接（vbCrLf就是VB里的换行符），还可以用下划线_把长代码拆成多行，方便阅读：

Dim test As String = "<RptVer>1</RptVer>" & vbCrLf & _
                     "  <RptTyp>1</RptTyp>" & vbCrLf & _
                     "</RptInfo>" & vbCrLf & _
                     "</InstRptRoot>"

XML里的缩进空格直接加到对应的字符串段里就行，这样最终的字符串就能完美还原你想要的格式。

另外提一句：如果你的XML内容里本身包含双引号，记得把双引号转义成两个连续的双引号（比如""），不过你给的这段XML里没有这种情况，所以不用操心~

内容的提问来源于stack exchange，提问作者user9654842