VBS利用ADODB.STREAM读写UTF8，还有追加写入

BAT221110

转载自：https://www.cnblogs.com/waver/articles/1283842.html

1. FUNCTION READ4(FPATH)
   
2.     DIM ADOS
   
3.     SET ADOS = CREATEOBJECT("ADODB.STREAM")
   
4.      
   
5.     WITH ADOS
   
6.         .CHARSET = "UTF-8"
   
7.         .TYPE = 2
   
8.         .OPEN
   
9.         .LOADFROMFILE FPATH
   
10.         READ4 = .READTEXT
    
11.         .CLOSE
    
12.     END WITH
    
13.     SET ADOS = NOTHING
    
14. END FUNCTION
    
15. 
    
16. 
    
17. SUB WRITE1291(S1223)
    
18.     DIM ADOS
    
19.     SET ADOS = CREATEOBJECT("ADODB.STREAM")
    
20. 
    
21.     WITH ADOS
    
22.         .TYPE = 2
    
23.         .MODE = 3
    
24.         .CHARSET = "UTF-8"
    
25.         .OPEN
    
26.         .WRITETEXT S1223
    
27.         .SAVETOFILE "EXTRACTS221114-2.CSV.TXT",2
    
28.     END WITH
    
29.     SET ADOS = NOTHING
    
30. END SUB
    
31. 
    
32. 
    
33. 
    
34. SUB APPEND4210321(S1419)
    
35.     DIM X
    
36.     X = READ4("EXTRACTS221114-2.CSV.TXT")
    
37.     WRITE1291 X & VBCRLF & S1419
    
38. END SUB

复制代码

追加写入似乎只能这样实现？