$7.49 .com domain with free InstantPage Website Builder$1.99 Web Hosting   捷飞网络官方淘宝店   Godaddy 优惠码
返回列表 发帖
分享到:




[应用&技术] vbs中怎么读取UTF-8编码的文件

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




本帖最后由 jfx 于 2014-7-30 13:38 编辑 8 v/ ]; i/ L5 j  |
# I- J, ]0 T% ]" D/ H+ D
ADODB.Stream
, C* @5 ?2 ~6 ~9 k8 b. z. ?js:
  J7 r3 u' U$ R
  1. var adodbStream = new ActiveXObject("ADODB.Stream");
  2. adodbStream.Type=1;
  3. adodbStream.Charset="UTF-8"
  4. adodbStream.Open();
  5. curln = adodbStream.Readtext;
  6. adodbStream.Close();
  7. adodbStream=null;
复制代码

( J6 f" Y2 ^" r4 w+ g8 ]) D. j, \3 t1 P% f$ C$ ^& ^9 z: j1 E
vbs: % C! w: A) s- D: f
  1. dim adodbStream: set adodbStream = CreateObject("ADODB.Stream")
  2. adodbStream.Type=2
  3. adodbStream.Open
  4. adodbStream.Charset = "UTF-8"
  5. adodbStream.WriteText(curln)
  6. adodbStream.SaveToFile fldto & flnm, 2
  7. adodbStream.Close()
  8. set adodbStream = nothing
复制代码
5 {9 f2 H. [( X* F
. \' t$ l& n0 Q$ c4 b2 }& O
http://blog.sina.com.cn/s/blog_611f501001014wgu.html

TOP

返回列表
Namecheap
Namecheap.com - Cheap domain name registration, renewal and transfers - Free SSL Certificates - Web Hosting
互联网安全