vbs変換ファイル符号化

5311 ワード
職場 エンコーディング ファイル vbs カジュアル
コードを貼って記号を作って、家に帰ってからゆっくり修正します.
  

  
  
  
  
    
   
   
   
   
  1. '-------------------------------------------------   
    2. 
   
   
   
   
  2. ' :ReadFile   
    3. 
   
   
   
   
  3. ' : AdoDb.Stream    
    4. 
   
   
   
   
  4. '----------------------------------------------------   
    5. 
   
   
   
   
  5.    
    6. 
   
   
   
   
  6. Function ReadFile(FileUrl)   
    7. 
   
   
   
   
  7.     Dim Str   
    8. 
   
   
   
   
  8.     Set stm = CreateObject("Adodb.Stream")   
    9. 
   
   
   
   
  9.     stm.Type = 2   
    10. 
   
   
   
   
  10.     stm.mode = 3   
    11. 
   
   
   
   
  11.     stm.charset = "utf-8"   
    12. 
   
   
   
   
  12.     stm.Open   
    13. 
   
   
   
   
  13.     stm.loadfromfile FileUrl   
    14. 
   
   
   
   
  14.     Str = stm.readtext   
    15. 
   
   
   
   
  15.     stm.Close   
    16. 
   
   
   
   
  16.     Set stm = Nothing   
    17. 
   
   
   
   
  17.     ReadFile = Str   
    18. 
   
   
   
   
  18. End Function   
    19. 
   
   
   
   
  19.    
    20. 
   
   
   
   
  20. '-------------------------------------------------   
    21. 
   
   
   
   
  21. ' :WriteToFile   
    22. 
   
   
   
   
  22. ' : AdoDb.Stream    
    23. 
   
   
   
   
  23. ' :FileUrl- ;Str- ;CharSet- (utf- 8,gb2312.....)   
    24. 
   
   
   
   
  24. '----------------------------------------------------   
    25. 
   
   
   
   
  25.    
    26. 
   
   
   
   
  26. Function WriteToFile (FileUrl, Str)   
    27. 
   
   
   
   
  27.     Set stm = CreateObject("Adodb.Stream")   
    28. 
   
   
   
   
  28.     stm.Type = 2   
    29. 
   
   
   
   
  29.     stm.mode = 3   
    30. 
   
   
   
   
  30.     stm.charset = "gb2312"   
    31. 
   
   
   
   
  31.     stm.Open   
    32. 
   
   
   
   
  32.     stm.WriteText Str   
    33. 
   
   
   
   
  33.     stm.SaveToFile FileUrl, 2   
    34. 
   
   
   
   
  34.     stm.flush   
    35. 
   
   
   
   
  35.     stm.Close   
    36. 
   
   
   
   
  36.     Set stm = Nothing   
    37. 
   
   
   
   
  37. End Function   
    38. 
   
   
   
   
  38.  
    39. 
   
   
   
   
  39. dim fileurl 
    40. 
   
   
   
   
  40. fileurl="C:\Documents and Settings\shaopeng_xie\ \VARIABLES.dat" 
    41. 
   
   
   
   
  41. set xmlDOC = CreateObject("MSXML2.DOMDocument") 
    42. 
   
   
   
   
  42. xmlDOC.load ("C:\Documents and Settings\shaopeng_xie\ \VARIABLES.dat") 
    43. 
   
   
   
   
  43. set oNode=xmlDOC.documentElement.SelectSingleNode("//var[@name='" & "LOGPATH" & "']") 
    44. 
   
   
   
   
  44. dim sNew 
    45. 
   
   
   
   
  45. sNew=" " 
    46. 
   
   
   
   
  46. set oCDATA=xmlDOC.createCDATASection(sNew) 
    47. 
   
   
   
   
  47. oNode.appendChild(oCDATA) 
    48. 
   
   
   
   
  48. xmlDOC.save ("C:\Documents and Settings\shaopeng_xie\ \VARIABLES.dat") 
    49. 
   
   
   
   
  49. Call writetofile(fileurl,readfile(fileurl)) 
    50.

白駿1480号:宝石を集める
SWEA 5108数値の追加