利用AdoDb.Stream对象来读取UTF-8格式的文本文件 - CSDN文库

152 浏览量更新于2023-03-16 收藏 20KB PDF 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源推荐

利用利用AdoDb.Stream对象来读取对象来读取UTF-8格式的文本文件格式的文本文件

代码如下:

‘函数名称:ReadTextFile

‘作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件

‘—————————————————-

Function ReadFromTextFile (FileUrl,CharSet)

If FileUrl = “” OR IsNull(FileUrl) Then

ReadFromTextFile = “”

Exit Function

End If

If Not FLib.IsReallyPath(FileUrl) Then

FileUrl = Server.MapPath(FileUrl)

End If

dim str, stm

set stm=server.CreateObject(“adodb.stream”)

stm.Type=2 ‘以本模式读取

stm.mode=3

stm.charset=CharSet

stm.open

stm.loadfromfile FileUrl

str=stm.readtext

stm.Close

set stm=nothing

ReadFromTextFile=str

End Function

‘————————————————-

‘函数名称:WriteToTextFile

‘作用:利用AdoDb.Stream对象来写入UTF-8格式的文本文件

‘—————————————————-

Function WriteToTextFile (FileUrl,byval Str,CharSet)

If FileUrl = “” OR IsNull(FileUrl) Then

WriteToTextFile = “”

Exit Function

End If

If Not FLib.IsReallyPath(FileUrl) Then

FileUrl = Server.MapPath(FileUrl)

End If

Dim stm

set stm=server.CreateObject(“adodb.stream”)

stm.Type=2 ‘以本模式读取

stm.mode=3

stm.charset=CharSet

stm.open

stm.WriteText str

stm.SaveToFile FileUrl,2

stm.flush

stm.Close

set stm=nothing

End Function

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余0页未读，立即下载

weixin_38518074

粉丝: 6
资源: 927

会员权益专享

图片转文字

全年可省5，000元立即开通

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈