贴代码做个记号，回家再慢慢修改

 

 
  
  1. '-------------------------------------------------   
  2. '函数名称:ReadFile   
  3. '作用:利用AdoDb.Stream对象来读取各种格式的文本文件   
  4. '----------------------------------------------------   
  5.    
  6. Function ReadFile(FileUrl)   
  7.     Dim Str   
  8.     Set stm = CreateObject("Adodb.Stream")   
  9.     stm.Type = 2   
  10.     stm.mode = 3   
  11.     stm.charset = "utf-8"   
  12.     stm.Open   
  13.     stm.loadfromfile FileUrl   
  14.     Str = stm.readtext   
  15.     stm.Close   
  16.     Set stm = Nothing   
  17.     ReadFile = Str   
  18. End Function   
  19.    
  20. '-------------------------------------------------   
  21. '函数名称:WriteToFile   
  22. '作用:利用AdoDb.Stream对象来写入各种格式的文本文件   
  23. '参数:FileUrl-文件相对路径;Str-文件内容;CharSet-编码格式(utf- 8,gb2312.....)   
  24. '----------------------------------------------------   
  25.    
  26. Function WriteToFile (FileUrl, Str)   
  27.     Set stm = CreateObject("Adodb.Stream")   
  28.     stm.Type = 2   
  29.     stm.mode = 3   
  30.     stm.charset = "gb2312"   
  31.     stm.Open   
  32.     stm.WriteText Str   
  33.     stm.SaveToFile FileUrl, 2   
  34.     stm.flush   
  35.     stm.Close   
  36.     Set stm = Nothing   
  37. End Function   
  38.  
  39. dim fileurl 
  40. fileurl="C:\Documents and Settings\shaopeng_xie\桌面\VARIABLES.dat" 
  41. set xmlDOC = CreateObject("MSXML2.DOMDocument") 
  42. xmlDOC.load ("C:\Documents and Settings\shaopeng_xie\桌面\VARIABLES.dat") 
  43. set oNode=xmlDOC.documentElement.SelectSingleNode("//var[@name='" & "LOGPATH" & "']") 
  44. dim sNew 
  45. sNew="中文" 
  46. set oCDATA=xmlDOC.createCDATASection(sNew) 
  47. oNode.appendChild(oCDATA) 
  48. xmlDOC.save ("C:\Documents and Settings\shaopeng_xie\桌面\VARIABLES.dat") 
  49. Call writetofile(fileurl,readfile(fileurl))