-
'ชื่อฟังก์ชัน: FSOFileRead
'ฟังก์ชัน: ใช้ FSO เพื่ออ่านฟังก์ชันเนื้อหาไฟล์'
'พารามิเตอร์: ชื่อไฟล์ ---- ชื่อไฟล์'
'ค่าส่งคืน: เนื้อหาไฟล์
'************************************************ *
ฟังก์ชั่น FSOFileRead (ชื่อไฟล์)
หรี่ objFSO, objCountFile, FiletempData
ตั้งค่า objFSO = Server.CreateObject (Scripting.FileSystemObject)
ตั้งค่า objCountFile = objFSO.OpenTextFile(Server.MapPath(ชื่อไฟล์),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile ปิด
ตั้งค่า objCountFile=ไม่มีอะไร
ตั้ง objFSO = ไม่มีเลย
ฟังก์ชันสิ้นสุด
'************************************************ *
'ชื่อฟังก์ชัน: FSOlineedit
'ฟังก์ชัน: ใช้ FSO เพื่ออ่านบรรทัดหนึ่งของฟังก์ชันไฟล์'
'พารามิเตอร์: ชื่อไฟล์ ---- ชื่อไฟล์'
' lineNum ---- หมายเลขบรรทัด
'ค่าส่งคืน: เนื้อหาของบรรทัดในไฟล์'
'************************************************ *
ฟังก์ชั่น FSOlineedit (ชื่อไฟล์, lineNum)
ถ้า linenum < 1 ให้ออกจากฟังก์ชัน
fso,f,temparray,tempcnt สลัว
ตั้งค่า fso = server.CreateObject (scripting.filesystemobject)
ถ้าไม่ใช่ fso.fileExists(server.mappath(filename)) ให้ออกจากฟังก์ชัน
ตั้งค่า f = fso.opentextfile (server.mappath (ชื่อไฟล์), 1)
ถ้าไม่ใช่ f.AtEndofStream แล้ว
tempcnt = f.readall
ฉ.ปิด
เซต f = ไม่มีอะไร
temparray = แยก(tempcnt,chr(13)&chr(10))
ถ้า lineNum>ubound(temparray)+1 แล้ว
ฟังก์ชั่นทางออก
อื่น
FSOlineedit = ชั่วคราว (lineNum-1)
สิ้นสุดถ้า
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
'************************************************ *
'ชื่อฟังก์ชัน: FSOlinewrite
'ฟังก์ชัน: ใช้ FSO เพื่อเขียนบรรทัดหนึ่งของฟังก์ชันไฟล์'
'พารามิเตอร์: ชื่อไฟล์ ---- ชื่อไฟล์'
' lineNum ---- หมายเลขบรรทัด
' เนื้อหาไลน์ ---- เนื้อหา
'มูลค่าที่ส่งคืน: ไม่มี'
'************************************************ *
ฟังก์ชั่น FSOlinewrite (ชื่อไฟล์, lineNum, Linecontent)
ถ้า linenum < 1 ให้ออกจากฟังก์ชัน
หรี่ fso, f, ชั่วคราว, tempCnt
ตั้งค่า fso = server.CreateObject (scripting.filesystemobject)
ถ้าไม่ใช่ fso.fileExists(server.mappath(filename)) ให้ออกจากฟังก์ชัน
ตั้งค่า f = fso.opentextfile (server.mappath (ชื่อไฟล์), 1)
ถ้าไม่ใช่ f.AtEndofStream แล้ว
tempcnt = f.readall
ฉ.ปิด
temparray = แยก(tempcnt,chr(13)&chr(10))
ถ้า lineNum>ubound(temparray)+1 แล้ว
ฟังก์ชั่นทางออก
อื่น
temparray(lineNum-1) = lineContent
สิ้นสุดถ้า
tempcnt = เข้าร่วม (temparray,chr(13)&chr(10))
ตั้งค่า f = fso.createtextfile (server.mappath (ชื่อไฟล์), จริง)
f.writetempcnt
สิ้นสุดถ้า
ฉ.ปิด
เซต f = ไม่มีอะไร
ฟังก์ชั่นสิ้นสุด