Die Codekopie lautet wie folgt:
'Funktionsname: ReadTextFile
'Funktion: Verwenden Sie das Objekt ADODB.Stream, um Textdateien von UTF-8-Format zu lesen
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
FunktionReadFromTextFile (FileUrl, CharSet)
IFFILEURL = "" Orisnull (FileUrl) dann
ReadFromTextFile = "" "
Ausgangsfunktion
Endif
Ifnotflib.isReallyPath (FileUrl) dann
FileUrl = server.mappath (fileUrl)
Endif
Dimstr, Stm
setstm = server.createObject ("adodb.stream")
stm.type = 2 'in diesem Modus lesen
stm.mode = 3
stm.charSet = charSet
stm.open
stm.loadfromFileFileurl
STR = stm.readText
stm.close
setstm = nichts
ReadFromTextFile = str
Endfunktion
'-------------------------------------------------
'Funktionsname: WriteTotextFile
'Funktion: Verwenden Sie das Objekt ADODB.Stream, um Textdateien im UTF-8-Format zu schreiben
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
FunctionWritETotextFile (FileUrl, Byvalstr, CharSet)
IFFILEURL = "" Orisnull (FileUrl) dann
WriteTotextFile = ""
Ausgangsfunktion
Endif
Ifnotflib.isReallyPath (FileUrl) dann
FileUrl = server.mappath (fileUrl)
Endif
Dimstm
setstm = server.createObject ("adodb.stream")