Ada file konfigurasi dalam program kecil yang saya tulis baru-baru ini. File ini sangat penting untuk keseluruhan program. Jika dihapus atau ditulis ulang, seluruh program tidak dapat berjalan atau tidak dapat ditutup setelah dijalankan. Jadi saya telah mencari cara agar penulisan ulang file secara manual tidak mungkin dilakukan.
"Hapus" mudah diselesaikan. Temukan jalur file konfigurasi dalam program, buat jika kosong, dan berikan beberapa nilai default. Contoh kode VB adalah sebagai berikut:
FileName = App.Path + "/CONFIG"'Jika file tidak ada, buat fileIf Dir(FileName) = "" Kemudian Open FileName For Output As #1 'Untuk membuka file berurutan, kita dapat menggunakan pernyataan Open a = Encode(" 123") + vbCrLf + "10" + vbCrLf 'vbCrLf adalah pengangkutan kembali Cetak #1, a 'Tulis dataTutup #1 'Tutup fileEnd IfSaya tidak dapat menulis ulang file konfigurasi secara manual. Saya mencoba menyembunyikan file di program. Contoh kode VB adalah sebagai berikut:
SetAttr Nama File, vbSystem Atau vbHidden 'File tersembunyi
Namun dalam analisis akhir, hal ini hanya mengatasi gejalanya, bukan akar permasalahannya, dan dokumen tersebut akan tetap ditulis ulang. Kemudian saya berpikir untuk memodifikasi metode akhiran file konfigurasi agar tidak mudah bagi orang untuk membuka file secara manual, tetapi selalu ada cara untuk membukanya. Pada akhirnya, saya memikirkan solusi sederhana: buka file konfigurasi di program terlebih dahulu, lalu tidak bisa dibuka secara manual. Contoh kode VB adalah sebagai berikut:
Buka Nama File Untuk Biner Sebagai #99
Ingatlah bahwa program harus menutup file yang terbuka terlebih dahulu saat menulis ulang file, jika tidak, penulisan ulang akan gagal. Contoh kode VB adalah sebagai berikut:
Tutup #99 'Tutup file
Singkatnya, cara sederhana untuk mencegah file ditimpa adalah dengan membuka file terlebih dahulu di program.
Di atas adalah keseluruhan isi artikel ini, saya harap Anda semua menyukainya.