OpenTextFile adalah metode dalam bahasa asp. Ini membuka file yang ditentukan dan mengembalikan objek TextStream. File tersebut dapat dibaca, ditulis atau ditambahkan melalui objek ini.
OpenTextFile adalah metode dalam bahasa asp
Membuka file tertentu dan mengembalikan objek TextStream yang dapat digunakan untuk membaca, menulis, atau menambahkan file.
objek.OpenTextFile(nama file[, iomode[, buat[, format]]])
1. Editor metode membuka file tertentu dan mengembalikan objek TextStream, yang melaluinya file dapat dibaca, ditulis, atau ditambahkan.
objek.OpenTextFile(nama file[, iomode[, buat[, format]]])
2. Objek pengeditan parameter
Diperlukan. objek harus berupa nama FileSystemObject.
nama file
Diperlukan. Ekspresi string yang menentukan file yang akan dibuka.
iomode
Opsional. Dapat berupa salah satu dari tiga konstanta: ForReading, ForWriting, atau ForAppending.
membuat
Opsional. Nilai Boolean menunjukkan apakah akan membuat file baru ketika nama file yang ditentukan tidak ada. Nilainya True jika file baru dibuat, False jika tidak dibuat. Jika dihilangkan, tidak ada file baru yang dibuat.
format
Opsional. Gunakan salah satu dari tiga nilai negara untuk menentukan format untuk membuka file. Jika dihilangkan, file akan dibuka dalam format ASCII.
3. Atur dan edit parameter iomode, yang dapat berupa salah satu pengaturan berikut:
Deskripsi nilai konstan
ForReading 1 membuka file hanya-baca. File ini tidak dapat ditulis.
ForWriting 2 Buka file untuk menulis
ForAppending 8 membuka file dan mulai menulis dari akhir file.
Parameter format dapat berupa salah satu pengaturan berikut:
deskripsi nilai
TristateTrue membuka file dalam format Unicode.
TristateFalse membuka file dalam format ASCII.
TristateUseDefault Membuka file menggunakan default sistem.
4. Petunjuk Edit Kode berikut mengilustrasikan cara menggunakan metode OpenTextFile untuk membuka file dan menambahkan teks:
var fs, a, Untuk Menambahkan;
Untuk Menambahkan = 8;
fs = new ActiveXObject(Scripting.FileSystemObject);
//Dapat berupa salah satu dari tiga konstanta: ForReading, ForWriting, atau ForAppending
//Mereka masing-masing berjumlah 1, 2, 8
a = fs.OpenTextFile(c://testfile.txt, 2, salah);
...
a.Tutup();
Kasus penggunaan dalam skrip vbs
Membuka file tertentu dan mengembalikan objek TextStream yang dapat dibaca, ditulis, atau ditambahkan ke file.
objek.OpenTextFile(nama file[,iomode[,buat[,format]]])
parameter
obyek
Diperlukan. Harus berupa nama objek FileSystemObject.
nama file
Diperlukan. Ekspresi string yang menentukan nama file yang akan dibuka.
iomode
Opsional. Mode input/output, salah satu dari tiga konstanta berikut: ForReading, ForWriting, atau ForAppending.
membuat
Opsional. Nilai Boolean menunjukkan apakah file baru dapat dibuat ketika nama file yang ditentukan tidak ada. Benar untuk mengizinkan pembuatan file baru, Salah jika tidak. Nilai defaultnya adalah Salah.
format
Opsional. Salah satu dari tiga nilai Tristate yang menunjukkan format untuk membuka file. Jika parameter ini dihilangkan, file dibuka dalam format ASCII.
Parameter iomode dapat berupa salah satu pengaturan berikut:
| konstan | nilai | menggambarkan |
| UntukMembaca | 1 | Buka file dalam mode baca-saja. File ini tidak dapat ditulis. |
| Untuk Menulis | 2 | Buka file untuk menulis saja. File ini tidak dapat dibaca. |
| Untuk Menambahkan | 8 | Buka file dan tulis di akhir file. |
Parameter format dapat berupa salah satu pengaturan berikut:
| konstan | nilai | menggambarkan |
| TristateUseDefault | -2 | Buka file dalam format default sistem. |
| TristateBenar | -1 | Buka file dalam format Unicode. |
| TristateSalah | 0 | Buka file dalam format ASCII. |
Contoh penggunaan:
- SubOpenTextFileTest
- ConstForReading=1,UntukWriting=2,UntukPenambahan=8
- Dimfso, f
- Setfso=CreateObject(Scripting.FileSystemObject)
- Setf=fso.OpenTextFile(c:/testfile.txt,ForWriting,True)
- f.Tulis Halo!
- f.Tutup
- Sub Akhir
- PanggilanOpenTextFileTest
Sebuah fungsi yang ditulis oleh Wulin.com
- Dimfso
- Setfso=CreateObject(Scripting.FileSystemObject)
- setfn2=fso.GetFile(E:/webroot/vevb/index2.htm)
- flsize2=fn2.ukuran
- fldate2=fn2.datelastdimodifikasi
- setfn=fso.GetFile(E:/webroot/vevb/index.htm)
- flsize1=fn.ukuran
- fldate1=fn.datelastmodifikasi
- Iffso.FileExists(E:/webroot/vevb/index2.htm)andflsize2>50000andfldate2>fldate1Then
- 'Tentukan ukuran file. Jika file html dibuat ulang, Anda perlu menentukan apakah file tersebut telah diperbarui dan ukuran file tidak boleh kurang dari 50K.
- fso.getfile(E:/webroot/vevb/index2.htm).copy(E:/webroot/vevb/index.htm)
- iferr.number=0thenWriteHistory berhasil&sekarang()&..........,log.txt
- endif
- 'Fungsi penulisan log
- SubWriteHistory(karakternya,jalur)
- ConstForReading=1,UntukPenambahan=8
- Dimfso,f
- Setfso=CreateObject(Scripting.FileSystemObject)
- Setf=fso.OpenTextFile(jalur,UntukPenambahan,Benar)
- f.WriteLinehisChars
- f.Tutup
- Sub Akhir