转义xml文件特殊符号

 '转义xml文件特殊符号。     
 Function XmlReplace(ByVal strxml2 As StringAs String       
  strxml2 
= strxml2.Replace("&""&")       
  strxml2 
= strxml2.Replace("<""&lt;")        
  strxml2 
= strxml2.Replace(">""&gt;")        
  strxml2 
= strxml2.Replace("'""&apos;")        
  strxml2 
= strxml2.Replace("""""&quot;")       
  
Return strxml2    
 
End Function
posted @ 2008-08-13 20:03  ike_li  阅读(1197)  评论(0)    收藏  举报