- 帖子
- 212
- 主题
- 189
- 精华
- 0
- 积分
- 1452
- 贡献
- 1134
- 激情
- 1349
- 阅读权限
- 100
- 最后登录
- 2018-6-13
|
vbs中如何读取UTF-8编码的文件
0 H3 C; b* E4 G: E0 J, UFunction Encode(filePath)! v' g+ f; z* B- l! p
Set stm = CreateObject("Adodb.Stream")( B" Z8 o8 ]( E8 x
stm.Type = 21 ^ v! [! o* S/ @; ]( Y; w4 n
stm.mode = 3
+ q. Z- K* E* C) ?9 gstm.charset = "utf-8"
: a3 ]4 d6 u+ U: c K3 M5 B3 nstm.Open
. V- H5 J8 M4 ?4 I0 L- g( S8 jstm.LoadFromFile filePath2 [, X9 q( I9 S8 a
Encode = stm.readtext0 ^2 z2 c, B1 X7 u8 q
stm.close
1 L7 c/ }" A6 c9 \. uEnd Function
; y8 f2 B% c7 k' S0 c( {# {Msgbox Encode("D:\a.txt") $ `; x0 {+ k6 I2 B( h" s0 ~
, K# i: g8 v3 W: s' ~% F1 A2 p参考: http://www.myexception.cn/vb/730038.html |
|