FSO adalah kontrol untuk operasi file di Microsoft ASP. Jadi, editor saluran baru yang salah akan membagikan kepada Anda analisis rinci tentang kode FSO.
Fungsi yang memodifikasi konten spesifik file menggunakan FSO
functionFsoChange (nama file, target, string)
DimoBjfso, objcountfile, filetempdata
SetObjfso = server.CreateObject ("Scripting.FilesystemObject")
Setobjcountfile = objfso.opentextFile (server.mappath (nama file), 1, true)
FiletempData = objcountfile.readall
objcountfile.close
FiletempData = ganti (filetempdata, target, string)
Setobjcountfile = objfso.createTextFile (server.mappath (nama file), true)
objcountfile.writeFiletempData
objcountfile.close
Setobjcountfile = tidak ada
Setobjfso = tidak ada
Fungsi endfungsi
Fungsi yang menggunakan FSO untuk membaca konten file
functionFsofileread (nama file)
DimoBjfso, objcountfile, filetempdata
SetObjfso = server.CreateObject ("Scripting.FilesystemObject")
Setobjcountfile = objfso.opentextFile (server.mappath (nama file), 1, true)
Fsofileread = objcountfile.readall
objcountfile.close
Setobjcountfile = tidak ada
Setobjfso = tidak ada
Fungsi endfungsi
Fungsi yang menggunakan FSO untuk membaca baris file
functionfsolinedit (nama file, linenum)
iflinenum
Dimfso, F, Temparray, Tempcnt
setFSO = server.CreateObject ("Scripting.FilesystemObject")
IFNOTFSO.FileExists (Server.Mappath (fileName)) kemudian ExtFunction
setf = fso.opentextFile (server.mappath (fileName), 1)
IFNOTF.ATENDOFSTREAMTHEN
tempcnt = f.readall
f.close
setf = tidak ada
template = split (tempcnt, chr (13) & chr (10))
iflinenum> ubund (temparray)+1then
fungsi keluar
kalau tidak
Fsolinedit = temparray (linenum-1)
endif
endif
fungsi endfungsi
Fungsi yang menggunakan FSO untuk menulis baris file tertentu
FunctionfsolineWrite (nama file, linenum, linecontent)
iflinenum
Dimfso, F, Temparray, Tempcnt
setFSO = server.CreateObject ("Scripting.FilesystemObject")
IFNOTFSO.FileExists (Server.Mappath (fileName)) kemudian ExtFunction
setf = fso.opentextFile (server.mappath (fileName), 1)
IFNOTF.ATENDOFSTREAMTHEN
tempcnt = f.readall
f.close
template = split (tempcnt, chr (13) & chr (10))
iflinenum> ubund (temparray)+1then
fungsi keluar
kalau tidak
Template (linenum-1) = Linecontent
endif
Tempcnt = gabungkan (Temparray, Chr (13) & Chr (10))
setf = fso.createTextFile (server.mappath (fileName), true)
f.writetempcnt
endif
f.close
setf = tidak ada
fungsi endfungsi
Fungsi untuk menambahkan baris baru file menggunakan FSO
functionFSoAppline (nama file, linecontent)
Dimfso, f
setFSO = server.CreateObject ("Scripting.FilesystemObject")
IFNOTFSO.FileExists (Server.Mappath (fileName)) kemudian ExtFunction
setf = fso.opentextFile (server.mappath (fileName), 8,1)
F.Writechr (13) & Chr (10) & Linecontent
f.close
setf = tidak ada
fungsi endfungsi
Fungsi yang membaca baris terakhir dari file
functionFsolastline (nama file)
Dimfso, F, Temparray, Tempcnt
setFSO = server.CreateObject ("Scripting.FilesystemObject")
IFNOTFSO.FileExists (Server.Mappath (fileName)) kemudian ExtFunction
setf = fso.opentextFile (server.mappath (fileName), 1)
IFNOTF.ATENDOFSTREAMTHEN
tempcnt = f.readall
f.close
setf = tidak ada
template = split (tempcnt, chr (13) & chr (10))
Fsolastline = temparray (ubund (temparray)))
endif
fungsi endfungsi
FSO menggantikan karakter file yang ditentukan
Kode Program:
'Fso menggantikan karakter file yang ditentukan
FunctionFsolineEdit (nama file, target, string)
DimoBjfso, objcountfile, filetempdata
SetObjfso = server.CreateObject ("Scripting.FilesystemObject")
Setobjcountfile = objfso.opentextFile (server.mappath (nama file), 1, true)
FiletempData = objcountfile.readall
objcountfile.close
FiletempData = ganti (filetempdata, target, string)
Setobjcountfile = objfso.createTextFile (server.mappath (nama file), true)
objcountfile.writeFiletempData
objcountfile.close
Setobjcountfile = tidak ada
Setobjfso = tidak ada
Fungsi endfungsi
'Response.writefsolineEdit ("test.txt", "world", "Tomorrow adalah hari yang baik untuk pergi")
Hapus file
Kode Program:
'Hapus file
FunctionDelfile (nama file)
Iffilename "" lalu
SetFSO = server.CreateObject ("Scripting.FilesystemObject")
Iffso.fileexists (nama file) lalu
Fso.deleteFileFileName
Endif
Setfso = tidak ada
Endif
Fungsi endfungsi
Tentukan apakah ada file
Kode Program:
'Tentukan saja apakah ada file
FunctionReportFilestatus (FileSpec)
Dimfso, msg
SetFSO = createObject ("Scripting.FilesystemObject")
If (fso.fileexists (filespec)) lalu
msg = filespec & "ada."
Kalau tidak
msg = filespec & "tidak ada."
Endif
ReportFilestatus = msg
Fungsi endfungsi
Fungsi yang memodifikasi konten spesifik file menggunakan FSO
Kode Program:
'Gunakan FSO untuk memodifikasi fungsi konten khusus file
FunctionFsoChange (nama file, target, string)
DimoBjfso, objcountfile, filetempdata
SetObjfso = server.CreateObject ("Scripting.FilesystemObject")
Setobjcountfile = objfso.opentextFile (server.mappath (nama file), 1, true)
FiletempData = objcountfile.readall
objcountfile.close
FiletempData = ganti (filetempdata, target, string)
Setobjcountfile = objfso.createTextFile (server.mappath (nama file), true)
objcountfile.writeFiletempData
objcountfile.close
Setobjcountfile = tidak ada
Setobjfso = tidak ada
Fungsi endfungsi
Fungsi yang menggunakan FSO untuk menulis baris file tertentu
Kode Program:
'Gunakan FSO untuk menulis fungsi yang memiliki baris file tertentu
FunctionfsolineWrite (nama file, linenum, linecontent)
Iflinenum
Dimfso, F, Temparray, Tempcnt
SetFSO = server.CreateObject ("Scripting.FilesystemObject")
IFNOTFSO.FileExists (Server.Mappath (fileName)) kemudian ExtFunction
Setf = fso.opentextFile (server.mappath (fileName), 1)
IFNOTF.ATENDOFSTREAMTHEN
tempcnt = f.readall
f.close
temparray = split (tempcnt, chr (13) & chr (10))
Iflinenum> ubound (temparray)+1then
Fungsi keluar
Kalau tidak
Template (linenum-1) = Linecontent
Endif
Tempcnt = gabungkan (Temparray, Chr (13) & Chr (10))
Setf = fso.createTextFile (server.mappath (fileName), true)
f.writetempcnt
Endif
f.close
Setf = tidak ada
Fungsi endfungsi
Program yang membuat direktori. Jika ada beberapa level direktori, buat satu level pada satu waktu.
Kode Program:
'Program yang membuat direktori. Jika ada beberapa level direktori, membuatnya satu tingkat pada satu waktu.
FunctionCreatedir (byvallocalpath)
OnerrorresumeNext
Localpath = ganti (localpath, "/", "/")
SetFileObject = server.CreateObject ("Scripting.FilesystemObject")
patharr = split (localpath, "/")
path_level = ubound (patharr)
Fori = 0topath_level
Ifi = 0thenpathtmp = patharr (0) & "/" elsepathtmp = pathtmp & patharr (i) & "/"
cpath = kiri (pathtmp, len (pathtmp) -1)
IfNotFileObject.Folderexists (CPath) ThenFileObject.CreateFolderCpath
Berikutnya
SetFileObject = tidak ada
Iferr.number0then
CreateRir = false
Err.clear
Kalau tidak
CreateRir = true
Endif
Fungsi endfungsi
Berikut adalah beberapa fitur yang tidak menyenangkan tetapi sangat keren ini:
Fitur FSO yang jarang dipahami
GetSpecialFolderMethod Mengembalikan jalur folder Windows tertentu: Direktori Instalasi Windows; Direktori Sistem Windows; Direktori sementara Windows FSO.GetSpecialFolder ([0,1, OR2])
GetTempameMethod Mengembalikan file atau nama direktori yang dihasilkan secara acak, yang digunakan saat data sementara diperlukan.
GetAbsolutePathnameThod Mengembalikan jalur absolut ke folder (mirip dengan server.mappath).
Misalnya, fso.getAbsolutePathname ("wilayah") akan mengembalikan hasil yang mirip dengan yang berikut: "C: MyDocsmyfolderegion"
Getextensionnamemethod Mengembalikan perpanjangan bagian terakhir dari jalan
(Misalnya: fso.getextensionName ("c: docsest.txt") akan mengembalikan txt)
GetBaseNeAdgetParentFolderMethods Mengembalikan folder induk dari bagian terakhir dari jalan
(Misalnya: fso.getParentFolder ("c: docsmydocs") akan mengembalikan 'dokumen')
DrivesProperty Mengembalikan koleksi semua drive yang tersedia secara lokal untuk membangun antarmuka pengguna seperti browser sumber daya.
Saat menggunakan fungsi di atas, yang terbaik adalah membuat kode untuk penanganan kesalahan. Karena jika parameter yang diperlukan tidak ada, informasi yang merepotkan akan dihasilkan.
Di atas adalah analisis terperinci dari kode FSO. Saya yakin Anda telah mempelajari semuanya. Untuk konten terkait lebih lanjut, silakan terus perhatikan saluran teknologi Wuxin.