Saat mengembangkan aplikasi WEB, kita sering kali perlu memproses drive, folder, dan file dalam sistem file, seperti mengumpulkan informasi terkait drive, membuat, menambah, memindahkan atau menghapus folder dan file, dll. Di VB6, model objek baru yang disebut FSO (File System Object) disediakan untuk mengakses sistem file. Model ini menyediakan alat berbasis objek. Melalui serangkaian properti dan metode yang disediakannya, kita dapat melakukan berbagai operasi pada sistem file dengan lebih sederhana dan fleksibel dalam aplikasi.
1. Pengenalan FSO Model objek FSO mencakup objek berikut:
Objek drive: memungkinkan pengumpulan informasi seperti ruang yang tersedia dan berbagi nama drive seperti hard disk dan CD-ROM yang terhubung secara fisik ke sistem atau terhubung secara logis ke sistem melalui LAN.
Objek folder: memungkinkan Anda membuat, menghapus, atau memindahkan folder, dan menanyakan sistem untuk nama, jalur, dll. dari folder tersebut.
Objek file: memungkinkan Anda membuat, menghapus, atau memindahkan file, dan menanyakan sistem untuk nama file, jalur, dll.
Objek TextStream: memungkinkan pembuatan, membaca dan menulis file teks.
Objek FileSystemObject: Menyediakan serangkaian metode lengkap untuk operasi drive, folder, dan file. Secara fungsional, ini dapat dianggap sebagai kumpulan objek di atas dan sering digunakan bersama dengan objek tersebut. Banyak metode yang terkait dengan objek ini menduplikasi metode di empat objek sebelumnya, sehingga kita dapat melakukan sebagian besar operasi pada drive, folder, dan file baik melalui objek FileSystemObject atau melalui drive, folder, atau objek file yang sesuai. Operasikan komponen ini. Model FSO mengimplementasikan operasi pada objek yang sama melalui dua metode, dan efek operasinya sama. Tujuan dari penyediaan fungsi redundan ini adalah untuk mencapai fleksibilitas pemrograman maksimum.
Pada artikel ini, kami akan menjelaskan pengoperasian file teks menggunakan objek TextStream dari model objek FSO.
(1) Gunakan FileSystemObject untuk mendapatkan objek file teks 1. Membuat instance objek FileSystemObject Untuk melakukan operasi file, Anda harus terlebih dahulu membuat instance objek FileSystemObject untuk membuat atau membuka file. Format spesifik untuk membuat instance objek FileSystemObject adalah (mengambil AFileSystemObject) sebagai contoh:
Setel AFileSystemObject = CreateObject("Scripting.FileSystemObject")
2. Gunakan FileSystemObject untuk mendapatkan objek file teks TextStream
FileSystemObject menyediakan dua metode untuk mendapatkan objek file teks TextStream, di antaranya CreateTextFile digunakan untuk membuat file, dan OpenTextFile digunakan untuk membuka file yang ada. Hasil kembalian dari kedua metode tersebut adalah turunan dari objek TextStream. Gunakan objek ini Operasi khusus pada file bisa dilakukan.
⑴Buat file baru. Format spesifik metode pembuatan file baru adalah (ambil AFileSystemObject sebagai contoh):
AFilesystemObject.CreateTextFile(NamaFile Baru,TimpaFile yang Ada,IsUnicode)
di dalam:
NewFileName adalah nilai string yang menentukan nama file yang akan dibuat, biasanya jalur file sebenarnya ditambah nama file, seperti C:webshareaspsampfiletest.txt
OverwriteExistingFile adalah nilai Boolean yang menunjukkan apakah akan menimpa file asli jika ada file dengan nama yang sama. Parameter ini dapat dihilangkan, dan defaultnya adalah False, yang berarti file asli tidak akan ditimpa.
IsUnicode adalah nilai Boolean yang menunjukkan apakah file yang akan dibuat adalah file ASCII atau file Unicode.
Parameter ini dapat dihilangkan, dan defaultnya adalah False, yang merupakan file ASCII.
⑵ Buka file yang ada. Format spesifik dari metode membuka file yang ada adalah (ambil AFileSystemObject sebagai contoh):
AFilesystemObject.OpenTextFile(Nama File,IOMode,buat,format)
di dalam:
Nama File adalah nilai string yang menentukan nama file yang akan dibuka, biasanya jalur file sebenarnya ditambah nama file, C:filepathtest.txt
IOMode adalah nilai konstan, yang menunjukkan tujuan pembukaan file, dan ForReading(1) berarti membaca data;
ForAppending artinya digunakan untuk menambahkan data. Parameter ini dapat dihilangkan, dan defaultnya adalah ForReading.
Create adalah nilai Boolean yang menunjukkan apakah akan membuat file baru ketika file yang akan dibuka tidak ada.
Parameter ini dapat dihilangkan, dan defaultnya adalah False, yang berarti tidak ada file baru yang akan dibuat.
Format mewakili cara file dibuka. Kemungkinan nilai dan maknanya adalah sebagai berikut:
TristateTrue: Buka dalam mode Unicode.
TristateFalse: Buka dalam mode ASCII.
TristateUseDefault: Buka dalam mode default sistem.
Parameter ini dapat dihilangkan, dan defaultnya adalah TristateFalse, yang merupakan mode ASCII.
(dua). Menggunakan TextStream untuk Operasi File Setelah membuat atau membuka file, Anda dapat menggunakan metode yang disediakan oleh objek TextStream untuk melakukan operasi file sebenarnya.
1. Metode yang digunakan untuk operasi tulis adalah:
⑴Tulis(string)
Menulis string yang ditentukan oleh string ke file.
⑵WriteLine(string)
Menulis string yang ditentukan oleh string ke file, dan menulis karakter baris baru.
String parameter dapat dihilangkan, dalam hal ini baris kosong akan dimasukkan ke dalam file.
⑶TulisBlankLines(JumlahGaris)
Masukkan sejumlah baris kosong ke dalam file, jumlah baris ditentukan oleh NumOfLines.
2. Metode dan metode atribut yang digunakan untuk operasi baca adalah:
⑴DiEndOfLine
Atribut ini adalah nilai Boolean yang menunjukkan apakah penunjuk file menunjuk ke akhir baris saat ini.
⑵Di Akhir Aliran
Atribut ini adalah nilai Boolean yang menunjukkan apakah penunjuk file menunjuk ke akhir file.
⑶ Kolom
Atribut ini adalah nilai integer yang mewakili posisi penunjuk file di baris saat ini.
⑷Garis
Atribut ini adalah nilai integer yang mewakili nomor baris tempat penunjuk file berada.
⑸ Baca (Jumlah Karakter)
Metode ini dimulai dari posisi file saat ini, membaca sejumlah karakter yang ditentukan oleh jumlah NumOfCharacters, dan mengembalikan sebuah string.
⑹BacaGaris
Metode ini dimulai dari posisi file saat ini, membaca konten baris saat ini hingga akhir baris, dan mengembalikan sebuah string.
⑺BacaSemua
Metode ini dimulai dari posisi saat ini, membaca isi seluruh file hingga akhir file, dan mengembalikan sebuah string.
⑻ Lewati (Jumlah Karakter)
Metode ini dimulai dari posisi file saat ini dan melewati sejumlah karakter yang ditentukan oleh nomor NumOfCharacters.
⑼ SKipLine
Metode ini dimulai dari posisi file saat ini dan melewati isi baris saat ini.
3. Metode yang digunakan untuk menutup file adalah:
⑴ Tutup
Tutup file yang sudah dibuat atau dibuka.
(3) Berikut adalah contoh untuk mengilustrasikan cara menggunakan FSO untuk membaca file teks dan menyimpannya ke database:
1. Pertama buat halaman untuk membaca jalur file: file.htm
...
<FORM METHOD=POST ACTION= "upFile .asp" >
<div align="center"> <br>
<br>
<br>
<br>
<input type="file" name="path" size="40">
<INPUT TYPE="kirim " name ="dr" value="Impor informasi">
</div>
</FORM>
…
2. Tulis kode untuk menyimpan nilai teks yang diperoleh ke database: upFile.asp
<%Response .Buffer=true%>
<!--#include file="adovbs.inc"-->
<%
strConn="DSN=DataSourceName"
set Conn=Server.CreateObject("ADODB.Connection")
Conn.open strConn
set ObjComm =Server.CreateObject("ADODB.Command")
ObjComm.CommandText="sp_AddMsg" 'Panggil prosedur tersimpan
ObjComm.CommandType=adCmdStoredProc
Set ObjComm.ActiveConnection=Conn
''''''''''Buat masukan dan parameter keluaran''' ''''''''''''''
Setel ObjParamECom=ObjComm.CreateParameter("WC_ECompanyName",adVarchar,adParamInput,100)
ObjComm.Parameters.Tambahkan ObjParamECom
'@in_ECompanyName Varchar(50), --Nama Inggris Perusahaan
Setel ObjParamAddr=ObjComm.CreateParameter("WC_Address",adVarchar,adParamInput,200)
ObjComm.Parameters.Append ObjParamAddr
'@in_Address Varchar(50), --Alamat perusahaan
Setel ObjParamCity=ObjComm.CreateParameter("WC_City" ,adVarchar,adParamInput, 100)
ObjComm.Parameters.Append ObjParamCity
'@in_City Varchar(50), --City
...
'''''''''' Pembuatan parameter selesai''''''''''' '''''' '''
%>
<%
redup AllText,strLine1,strLine2,strLine3
redup strpath,fileurl
fileurl=""
strpath=Trim(Request.form("path"))
fileurl=strpath
SET FSO=CreateObject( "Scripting.FileSystemObject")
SET ATextStream=FSO.OpenTextFile(fileurl,1,false,TristateFalse)
'''''''''Ekstrak data'''''''''''''''''''' '''' ''''
LAKUKAN SAAT BUKAN ATextStream.AtEndOfStream
''''''Inisialisasi variabel''''''''''''''
strLine1=""
strLine2=""
strLine3=""
…
' '' ''''''''''''''''''''''''''
ATextStream.SkipLine
ATextStream.Skip(11)
strLine1=Trim(ATextStream.ReadLine)
ATextStream.Skip(11 )
strLine2=Trim(ATextStream.ReadLine)
ATextStream.Skip(5)
strLine3=Trim(ATextStream.ReadLine)
…
'End if
'''''''''''Tambahkan variabel ke set parameter'''''' '' '''''
ObjParamECom.value=strLine1
ObjParamCCom.value=strLine2
ObjParamAddr.value=strLine3
...
'''''''''''Operasi berakhir'''''''''''''' ''' '''
ObjComm.Execute() 'Jalankan perintah
LOOP
respon.tulis "<br>"+"Impor perpustakaan berhasil! <a href=dolist.html>[Lanjutkan impor]</a><br>"
set Conn=nothing
set FSO=nothing
set ATextStream=nothing
%>
Lampiran: Prosedur tersimpan kode sp_AddMsg
BUAT PROSEDUR dbo.sp_AddMsg -- Impor perusahaan asing Informasi
(
@in_CompanyName Varchar(100), --Nama perusahaan
@in_Address Varchar(200), --Alamat perusahaan
@in_City Varchar(100), --Kota perusahaan
...
)
SEBAGAI
SET NOCOUNT PADA
MULAI TRAN
INSERT INTO Tb_WCLibrary(
WC_CompanyName ,
WC_CCompanyName,
WC_Address,
…
)
VALUES(
@in_CompanyName,
@in_CCompanyName,
@in_Address,
…
)
IF @@ERROR <> 0
BEGIN
ROLLBACK TRAN
RETURN -1
END
COMMIT TRAN
RETURN 0
SET NOCOUNT OFF
Pada titik ini, penjelasan teks lengkapnya adalah selesai, saya harap artikel ini dapat memberikan bantuan kepada pembaca.