FSO,文件编码的问题（UTF-8） Web 开发 / ASP

作者：佚名    文章来源：不详    点击数：加载中...    更新时间：2008-7-9 字体:[大 中 小]

FSO,文件编码的问题（UTF-8）

楼主mistysunlight（为裤叉奋斗）2006-12-29 17:33:18 在 Web 开发 / ASP 提问

兄弟们，求救！  
  问题如下：  
  有两个项目：A,B  
  项目所有编码：  
  A：DOS/Windows（ANSI）  
  B：UTF8/Unix  
  在同一个服务器上，目录结构如下  
  物理路径：  
  D:\website\A\  
  D:\website\B\  
  现在是在A中用FSO读取B中tp的tpf.asp，并且替换tpf.asp中的一些字符串（可能有中文），之后重命名后存入B中的tp1文件夹下面(假设为tpf1.asp)  
   
  tpf.asp   的文件编码是UTF-8  
   
  现在问题出现了，如果tpf.asp中的字符串不用中文去替代，另存的tpf1.asp就是UTF8格式，如果tpf.asp中的字符串用中文去替换，之后保存的tpf1.asp就不再是UTF8格式的了，B项目在调用tpf1.asp的时候就会出现乱码.  
  不知道各位兄弟有什么高招可以解决这个问题？ 问题点数：50、回复次数：5Top

1 楼net_lover（【孟子E章】）回复于 2006-12-29 17:37:46 得分 20

http://blog.joycode.com/ghj/archive/2006/10/28/85807.aspxTop

2 楼mistysunlight（为裤叉奋斗）回复于 2006-12-29 17:41:06 得分 0

不知道stream中如何替换字符串？  
  有没有好的办法？Top

3 楼mistysunlight（为裤叉奋斗）回复于 2007-01-04 23:15:13 得分 0

...  
  等待中...Top

4 楼smartcatiboy（）回复于 2007-01-05 08:29:03 得分 30

'//读取utf-8的test1.txt，替换其中内容后，保存到ansi的test2.txt  
   
  dim   objAs  
  dim   strTmp   '//处理缓冲  
  set   objAs=CreateObject("adodb.stream")  
   
  objAs.Type=2  
  objAs.Mode=3  
  objAs.Open  
  objAs.LoadFromFile   "test1.txt"  
   
  objAs.Charset="utf-8"  
  objAs.position=3     '//略过文本格式的标志  
  strTmp=objAs.ReadText  
  objAs.close  
   
  strTmp=Replace(strTmp,"这是utf-8","这是gb2312/ansi")  
   
  objAs.Type=2  
  objAs.Mode=3  
  objAs.Open  
   
  objAs.Charset="gb2312"  
  objAs.WriteText   strTmp  
   
   
  objAs.SaveToFile   "test2.txt",2  
   
  objAs.closeTop

5 楼mistysunlight（为裤叉奋斗）回复于 2007-01-05 16:16:58 得分 0

smartcatiboy   写出来的不会是乱码？Top