Question

VB语言中间添加空格

Sub CreateXMLDim fileObj,XmlFile
Set fileObj=CreateObject("Scripting.FileSystemObject")
Set XmlFile=fileObj.CreateTextFile(XMLname,True)
objxml=CStr("<?xml version=""1.0""encoding=""UTF-8""?>")
objxml=objxml&CStr("<testcases>")objxml=objxml&objxml_inter
objxml=objxml&CStr("</testcases>")
XmlFile.Write(objxml)
XmlFile.Close
End Sub
这是用VB新建一个xml文件的过程，但是objxml=CStr("<?xml version=""1.0""encoding=""UTF-8""?>")在“encoding"前添加空格执行不了，如何添加，还有个问题如何新生成的xml默认是UTF-8编码

Answer 1

1 2 3 4 5 6 7 8 9 10 11

Sub CreateXML() Dim fileObj, XmlFile Set fileObj = CreateObject("Scripting.FileSystemObject") Set XmlFile = fileObj.CreateTextFile(XMLname, True) objxml = "<?xml version=""1.0"" encoding=""UTF-8""?>" objxml = objxml & "<testcases>" objxml = objxml & objxml_inter objxml = objxml & "</testcases>" XmlFile.Write objxml XmlFile.Close End Sub

Answer 2

1、添加空格是没问题的
objxml="<?xml version=""1.0"" encoding=""UTF-8""?>"

不需要cstr，后面也一样，本来就是string了
2、xml干嘛要用文本向里面写？utf-8的文本都是二进制的，用文本向里面写写不进去的，写进去也读不出来
建议用DomDocument来写