Use ADODB.stream object to read text files in UTF-8 format _ Application Tips

Copy Code code as follows:

' Function name: ReadTextFile
' Function: Use the ADODB.stream object to read text files in UTF-8 format
'----------------------------------------------------
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 ' read in this mode
Stm.mode=3
Stm.charset=charset
Stm.open
Stm.loadfromfile FILEURL
Str=stm.readtext
Stm. Close
Set stm=nothing
Readfromtextfile=str
End Function
'-------------------------------------------------
' Function name: writetotextfile
' Function: Use ADODB.stream object to write text files in UTF-8 format
'----------------------------------------------------
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 ' read in this mode
Stm.mode=3
Stm.charset=charset
Stm.open
Stm. WRITETEXT Str
Stm. SaveToFile fileurl,2
Stm.flush
Stm. Close
Set stm=nothing
End Function