[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[转贴] VBS利用ADODB.STREAM读写UTF8,还有追加写入

转载自: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. SUB WRITE1291(S1223)
  16.     DIM ADOS
  17.     SET ADOS = CREATEOBJECT("ADODB.STREAM")
  18.     WITH ADOS
  19.         .TYPE = 2
  20.         .MODE = 3
  21.         .CHARSET = "UTF-8"
  22.         .OPEN
  23.         .WRITETEXT S1223
  24.         .SAVETOFILE "EXTRACTS221114-2.CSV.TXT",2
  25.     END WITH
  26.     SET ADOS = NOTHING
  27. END SUB
  28. SUB APPEND4210321(S1419)
  29.     DIM X
  30.     X = READ4("EXTRACTS221114-2.CSV.TXT")
  31.     WRITE1291 X & VBCRLF & S1419
  32. END SUB
复制代码
追加写入似乎只能这样实现?

返回列表