利用AdoDb.Stream对象来读取UTF-8格式的文本文件
2018-09-06 13:18
复制代码 代码如下:
函数名称:ReadTextFile
作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件
----------------------------------------------------
FunctionReadFromTextFile(FileUrl,CharSet)
IfFileUrl=ORIsNull(FileUrl)Then
ReadFromTextFile=
ExitFunction
EndIf
IfNotFLib.IsReallyPath(FileUrl)Then
FileUrl=Server.MapPath(FileUrl)
EndIf
dimstr,stm
setstm=server.CreateObject(adodb.stream)
stm.Type=2以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.loadfromfileFileUrl
str=stm.readtext
stm.Close
setstm=nothing
ReadFromTextFile=str
EndFunction
-------------------------------------------------
函数名称:WriteToTextFile
作用:利用AdoDb.Stream对象来写入UTF-8格式的文本文件
----------------------------------------------------
FunctionWriteToTextFile(FileUrl,byvalStr,CharSet)
IfFileUrl=ORIsNull(FileUrl)Then
WriteToTextFile=
ExitFunction
EndIf
IfNotFLib.IsReallyPath(FileUrl)Then
FileUrl=Server.MapPath(FileUrl)
EndIf
Dimstm
setstm=server.CreateObject(adodb.stream)
stm.Type=2以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.WriteTextstr
stm.SaveToFileFileUrl,2
stm.flush
stm.Close
setstm=nothing
EndFunction
文章标题：利用AdoDb.Stream对象来读取UTF-8格式的文本文件
文章链接：http://soscw.com/essay/11125.html