ADODB.Stream指定CharSet读写文本文件的函数
2008-04-15 19:29
190 查看
Function ReadTextFile (FilePath,CharSet)
dim str,stm
set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以文本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.loadfromfile FilePath
str=stm.readtext
stm.Close
set stm=nothing
ReadTextFile=str
End function
Sub WriteTextFile (FilePath,Str,CharSet)
dim stm
set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以文本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.WriteText str
stm.SaveToFile FilePath,2
stm.flush
stm.Close
set stm=nothing
End Sub
dim str,stm
set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以文本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.loadfromfile FilePath
str=stm.readtext
stm.Close
set stm=nothing
ReadTextFile=str
End function
Sub WriteTextFile (FilePath,Str,CharSet)
dim stm
set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以文本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.WriteText str
stm.SaveToFile FilePath,2
stm.flush
stm.Close
set stm=nothing
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 关于用ADODB.Stream读写文本文件的一些问题
- 文件磁盘相关函数[17]-文本文件读写-只读打开 Reset
- Windows Phone中Stream和Buffer类读写操作(不仅仅是文本文件)
- 文件磁盘相关函数[19]-文本文件读写-读取全部的实现
- C#读写指定编码格式的文本文件
- 一段精简的使用 ADODB.Stream 读写"大字段"的 VB 代码!
- 用ADODB.Stream代替FSO读取文本文件
- 利用AdoDb.Stream对象来读取UTF-8格式的文本文件
- 文件磁盘相关函数[20]-文本文件读写-分列写入
- 用ADODB.Stream代替FSO读取文本文件
- 用ADODB.Stream代替FSO读取文本文件
- c# 创建指定大小的空字符填充的文本文件 在指定位置读写相关内容
- js:读写二进制变通方法,需要有权限控制adodb.stream,可以配合hta使用
- 利用AdoDb.Stream对象来读取UTF-8格式的文本文件
- 文件磁盘相关函数[21]-文本文件读写-分列读入
- VC读写指定分隔符的UNICODE文本文件
- C# Stream读写文本文件
- asp下用ADODB.Stream代替FSO读取文本文件
- 文件磁盘相关函数[22]-文本文件读写-不同数据类型的写入
- 利用ADODB.Stream实现 Bytes到String的指定编码的转换