利用AdoDb.Stream对象来读取UTF-8格式的文本文件
程序员文章站
2022-03-25 21:38:21
复制代码 代码如下:'函数名称:readtextfile '作用:利用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
上一篇: Python网络编程Day29部分知识点
下一篇: Python读写Excel