Ini adalah hal kecil yang perlu dilakukan untuk memodifikasi kode secara batch karena pekerjaan. Saya akan berbagi dengan Anda jenis file yang dapat diproses saat ini: .asp .inc .htm .html sendiri
Fungsi yang diterapkan oleh program: Mengubah jenis file di direktori sumber Setelah file dimodifikasi secara batch, file tersebut disimpan di direktori tujuan dan banyak hal dapat dicapai dengan sedikit modifikasi!
Belum lagi yang lainnya, semuanya tertulis dengan jelas di dalam kode.
<%
Server.ScriptTimeOut = 500 'Waktu skrip habis
' // +-------------------------------------- -- -----------------+
'// |.Fungsi modifikasi batch |
'// |.--------------------------------------------- -------------------------- |
'// |. Atribut: path_from direktori file sumber path_to direktori kerja file target |
'// |.--------------------------------------------- -------------------------- |
'// |. Nilai pengembalian: Tidak ada |
'// |.--------------------------------------------- -------------------------- |
'// |. Alur program:... |
'// |.--------------------------------------------- -------------------------- |
'// |. Penulis: WYC; Waktu penulisan: 08-03-2004 |
'// +----------------------------------------------- --- -----------+
Sub file tengah(path_from, path_to)
list_from = path_from 'Menyimpan direktori kerja sumber saat ini
list_to = path_to 'Simpan direktori kerja target saat ini
Setel fso = CreateObject("Scripting.FileSystemObject")
Setel Lipat = fso.GetFolder(list_from) 'Dapatkan objek Folder
Set fc = Fold.Files 'Dapatkan kumpulan rekaman file
Set mm = Fold.SubFolders 'Dapatkan kumpulan catatan direktori
Untuk Setiap f2 dalam mm
set objfile = server.createobject("scripting.filesystemobject")
objfile.CreateFolder(path_to & "" & f2.name) 'Buat direktori
midfile path_from & "" & f2.name, path_to & "" & f2.name 'Panggilan rekursif
respon.tulis path_to & "" & f2.nama & " Selesai!<br>"
Berikutnya
Untuk Setiap f1 di fc
file_from = list_from & "" & f1.name 'Buat alamat file (sumber)
file_to = list_to & "" & f1.name 'Buat alamat file (ke)
fileExt = lcase(right(f1.name,4)) 'Dapatkan jenis file
Jika fileExt='.asp' atau fileExt='.inc' atau fileExt='.htm' atau fileExt='html' Maka 'Jenis spesifik dapat dimodifikasi dan ditambahkan sendiri
set objfile = server.createobject("scripting.filesystemobject") 'Tentukan komponen server (baca file sumber)
set out = objfile.opentextfile(file_from, 1, false, false)
content = out.readall 'Baca data
keluar.tutup
'// +------------------------------------------- --- --------+
'// |. Modul pemrosesan konten file (terutama, yang lainnya adalah operasi file) |
Setel regEx = RegExp Baru
regEx.Pattern = "(>s*n)"
regEx.Global = true 'Atur semua mode pencocokan
content = regEx.Replace(content, ">") 'Ganti karakter pengangkutan kembali
content = Ganti(konten, " ", "") 'Ganti tab
'// +----------------------------------------------- --- -----+
set objfile = server.createobject("scripting.filesystemobject") 'Tentukan komponen server (tulis ke file target)
set outt = objfile.createtextfile(file_to,TRUE,FALSE)
outt.write(content) 'Tulis data
keluar.tutup
else 'jika tidak, salin file secara langsung
Setel fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile file_dari, file_to
Akhiri Jika
Berikutnya
Akhir Sub
midfile Server.mappath("temp/aaa"), Server.mappath("temp/bbb") 'Panggil direktori sumber sampel temp/aaa dan simpan ke temp/bbb setelah diproses
'Direktori sumber direktori tujuan (harus berupa direktori yang sudah ada)
%>
Hormat kami, manyyou (batu dari gunung lain)