La copie de code est la suivante:
'Nom de la fonction: ReadTextFile
'Fonction: utilisez l'objet Adodb.stream pour lire les fichiers texte du format UTF-8
'----------------------------------------------------
FunctionReadFromTextFile (FileUrl, charse)
IffileUrl = "" orisnull (fileurl) puis
ReadFromTextFile = ""
Sortie
Endire
Ifnotflib.isreallypath (fileurl) puis
FileUrl = server.mappath (fileurl)
Endire
DIMSTR, STM
setStm = server.createObject ("adodb.stream")
stm.type = 2 'lire dans ce mode
stm.mode = 3
STM.Charset = Charset
oupér
stm.loadfromfilefileurl
str = stm.readText
close
setStm = rien
Readfromtextfile = str
Finition de fin
'-------------------------------------------------
'Nom de la fonction: WriteTotextFile
'Fonction: utilisez l'objet ADODB.stream pour écrire des fichiers texte au format UTF-8
'----------------------------------------------------
FunctionwriteTotextFile (fileUrl, byValstr, charset)
IffileUrl = "" orisnull (fileurl) puis
WriteTotextFile = ""
Sortie
Endire
Ifnotflib.isreallypath (fileurl) puis
FileUrl = server.mappath (fileurl)
Endire
Diable
setStm = server.createObject ("adodb.stream")