การคัดลอกรหัสมีดังนี้:
'ชื่อฟังก์ชั่น: readtextfile
'ฟังก์ชั่น: ใช้วัตถุ ADODB.Stream เพื่ออ่านไฟล์ข้อความรูปแบบ UTF-8
-
functionReadFromTextFile (fileUrl, charset)
iffileUrl = "" orisnull (fileUrl) แล้ว
readFromTextFile = ""
exitfunction
endif
ifnotflib.isreallylypath (fileUrl) จากนั้น
fileUrl = server.mappath (fileUrl)
endif
Dimstr, STM
setstm = server.createObject ("adoDb.stream")
stm.type = 2 'อ่านในโหมดนี้
stm.mode = 3
stm.charset = charset
stm.open
stm.load fromfilefileurl
str = stm.readtext
stm.close
setstm = ไม่มีอะไร
readFromTextFile = str
endfunction
-
'ชื่อฟังก์ชั่น: writetotextfile
'ฟังก์ชั่น: ใช้วัตถุ ADODB.Stream เพื่อเขียนไฟล์ข้อความในรูปแบบ UTF-8
-
FunctionWriteTotextFile (fileUrl, byvalstr, charset)
iffileUrl = "" orisnull (fileUrl) แล้ว
writetotextfile = ""
exitfunction
endif
ifnotflib.isreallylypath (fileUrl) จากนั้น
fileUrl = server.mappath (fileUrl)
endif
dimstm
setstm = server.createObject ("adoDb.stream")