******************************************************* *
'Nama fungsi: FSOFileRead
'Fungsi: Gunakan FSO untuk membaca fungsi konten file
'Parameter: nama file ---- nama file
'Nilai pengembalian: konten file
'*******************************************************
fungsi FSOFileRead (nama file)
Redupkan objFSO,objCountFile,FiletempData
Setel objFSO = Server.CreateObject(Scripting.FileSystemObject)
Setel objCountFile = objFSO.OpenTextFile(Server.MapPath(nama file),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Tutup
Setel objCountFile=Tidak Ada
Setel objFSO = Tidak Ada
Fungsi Akhir
'*******************************************************
'Nama fungsi: FSOlineedit
'Fungsi: Gunakan FSO untuk membaca baris tertentu dari fungsi file
'Parameter: nama file ---- nama file
' lineNum ---- nomor baris
'Nilai kembalian: isi baris dalam file
'*******************************************************
fungsi FSOlineedit(nama file,Nomor baris)
jika linenum <1 maka keluar dari fungsi
redupkan fso,f,temparray,tempcnt
set fso = server.CreateObject(scripting.filesystemobject)
jika tidak fso.fileExists(server.mappath(nama file)) maka keluar dari fungsi
set f = fso.opentextfile(server.mappath(nama file),1)
jika bukan f.AtEndofStream maka
tempcnt = f.baca semua
f.tutup
atur f = tidak ada
temparray = split(tempcnt,chr(13)&chr(10))
jika lineNum>ubound(temparray)+1 maka
fungsi keluar
kalau tidak
FSOlineedit = temparray(barisNum-1)
berakhir jika
berakhir jika
fungsi akhir
'*******************************************************
'Nama fungsi: FSOlinewrite
'Fungsi: Gunakan FSO untuk menulis baris tertentu dari fungsi file
'Parameter: nama file ---- nama file
' lineNum ---- nomor baris
' Konten baris ---- konten
'Nilai pengembalian: Tidak ada
'*******************************************************
fungsi FSOlinewrite (nama file, LineNum, Linecontent)
jika linenum <1 maka keluar dari fungsi
redupkan fso,f,temparray,tempCnt
set fso = server.CreateObject(scripting.filesystemobject)
jika tidak fso.fileExists(server.mappath(nama file)) maka keluar dari fungsi
set f = fso.opentextfile(server.mappath(nama file),1)
jika bukan f.AtEndofStream maka
tempcnt = f.baca semua
f.tutup
temparray = split(tempcnt,chr(13)&chr(10))
jika lineNum>ubound(temparray)+1 maka
fungsi keluar
kalau tidak
temparray(lineNum-1) = konten baris
berakhir jika
tempcnt = gabung(temparray,chr(13)&chr(10))
set f = fso.createtextfile(server.mappath(nama file),true)
f.writetempcnt
berakhir jika
f.tutup
atur f = tidak ada
fungsi akhir