28,391
社区成员
发帖
与我相关
我的任务
分享
Function escapeXml(str)
str = Replace(str, "&", "&")
str = Replace(str, "<", "<")
str = Replace(str, ">", ">")
str = Replace(str, """", """)
escapeXml = Replace(str, "'", "'")
End Function
xml = "<Cargo>" & escapeXml(spxms) & "</Cargo>"