Tujuan pekerjaan: Mempelajari dan Menggunakan Operator Bahasa VB 6 untuk Bekerja dengan File berbagai jenis: file berurutan (teks), file akses acak, file biner. Penelitian dan penggunaan alat UmumDialog untuk membuka dan menyimpan file, pilih font dan warna, dan gunakan objek papan klip untuk menyimpan fragmen teks, gunakan contoh membuat editor teks sederhana.
pertanyaan kontrol:
1. Bagaimana cara membuka file teks? Cara menutup teks dan lainnya membuka file?
2. Bagaimana data ditulis ke file teks yang dapat ditulis? Apa perbedaan antara pernyataan Tulis dan Cetak?
3. Bagaimana cara membaca data dari file teks yang dibuka untuk dibaca? Apa perbedaan antara operator Input dan Line Input? Fungsi apa yang dapat digunakan untuk membaca sejumlah karakter tertentu dari sebuah file? Bagaimana cara membaca semua karakter file?
4. Apa itu tipe data khusus dan bagaimana konsep ini digunakan saat bekerja dengan file akses acak ( raf)?
5. Dengan operator apa dari file tersebut raf record dibaca dan dimasukkan ke dalam file raf catatan baru sedang ditulis?
6. Untuk tujuan apa indeks ditentukan dan digunakan saat bekerja dengan file raf?
7. Apa saja fitur menggunakan file biner? Bagaimana mereka membuka? Bagaimana membaca dari file biner dan menulis ke file biner dilakukan?
8. Bagaimana pengendalian dapat diterapkan UmumDialog memuat konten file teks ke dalam bidang teks? Bagaimana cara menggunakan kontrol yang sama untuk menyimpan teks yang diedit dalam file teks?
9. Bagaimana Anda dapat menerapkan kontrol UmumDialog untuk mengunduh konten file rtf di lapangan Kayakolom tulisan? Cara menggunakan kontrol yang sama untuk menyimpan teks yang diedit ke file rtf?
10. Bagaimana Anda dapat menerapkan kontrol UmumDialog untuk mengubah nilai parameter font dan mengubah warna teks di jendela kolom tulisan(atau sepotong teks yang dipilih di jendela Kayakolom tulisan)?
Contoh 7.1. Pertimbangkan sebuah aplikasi yang mendemonstrasikan menulis ke (dan membaca dari file teks) "detail karyawan"—string yang masing-masing berisi nomor identifikasi karyawan, nama lengkap, tanggal lahir, dan tempat lahir. Baris-baris tersebut membentuk tabel yang akan ditiru pada layar dengan 4 kontrol Kotak Kombo (Gbr. 7.1), yang membentuk larik objek Sisir(i) dengan properti Gaya diatur ke 1 - SimpleCombo.
Sorot baris yang akan dihapus", vbExclamation
Sisir(j).HapusItem i
'Menyisipkan rekor baru ke meja:
Sub Pribadi mnuInsert_Click()
i% = Sisir(0).ListIndex
Jika saya< 0 Then
MsgBox "Pilih baris yang akan disisipkan sebelumnya", vbExclamation
Comb(0).AddItem InputBox("Masukkan angka"), i
Comb(1).AddItem InputBox("Masukkan nama"), i
Comb(2).AddItem InputBox("Masukkan tanggal lahir."), i
Comb(3).AddItem InputBox("Masukkan tempat lahir."), i
'Mengubah entri dalam tabel:
Sub Pribadi mnuUpdate_Click()
i% = Sisir(0).ListIndex
Jika saya< 0 Then
MsgBox "Pilih baris untuk dimodifikasi", vbExclamation
Comb(0).List(i) = InputBox("Masukkan angka", Comb(0).List(i))
Comb(1).List(i) = InputBox("Masukkan nama", Comb(1).List(i))
Comb(2).List(i) = InputBox("Masukkan tanggal lahir", Comb(2).List(i))
Comb(3).List(i) = InputBox("Masukkan tempat lahir", Comb(3).List(i))
‘ Membersihkan seluruh meja:
Sub Pribadi mnuClear_Click()
‘ Mengisi tabel dengan informasi dari file teks:
Sub Pribadi mnuLoad_Click()
Buka "person.txt" Untuk Masukan Sebagai #1
Masukan #1, mati rasa, fio, bdate, blokir
Comb(0).AddItem mati rasa
Sisir(1).AddItem fio
Comb(2).AddItem bdate
Sisir(3).AddItem blok
‘ Menulis detail tabel ke file teks:
Sub pribadi mnuSave_Click()
N% = Sisir(0).ListCount
Buka "person.txt" Untuk Keluaran Sebagai #1
Untuk i = 0 Hingga N - 1
mati rasa = Val(Sisir(0).Daftar(i))
fio = Sisir(1).Daftar(i)
bdate = CDate(Sisir(2).Daftar(i))
blok = Sisir(3).Daftar(i)
Tulis #1, mati rasa, fio, tanggal, blokir
‘ Mematikan aplikasi:
Sub pribadi mnuExit_Click()
Contoh 7.2 . Pertimbangkan sebuah aplikasi yang menunjukkan penggunaan kontrol UmumDialog untuk membuka dan menyimpan file, untuk memilih font dan warna, dan untuk mengedit teks.
Memformat berkas txt akan dimuat ke dalam bidang teks (bidang kiri pada Gambar. 7.2), dan file format RTF- di lapangan Kayakolom tulisan(margin kanan pada Gambar 7.2).
obyek
Kelas
obyek
Properti
obyek
Nilai properti
“Panel Umum
dialog"
Buka/Simpan Sebagai tab
tab font
Tab warna
Tabel tidak menampilkan properti dari perintah menu Fon, warna Dan Sunting. Di bawah ini adalah kode prosedur juga hanya untuk perintah menu Mengajukan (membuka, Menyimpan Dan MenyimpanSebagai). Menyusun kode untuk perintah menu lainnya adalah topik tugas ke-2 dari pekerjaan ini.
Sub Pribadi mnuOpen_Click()
CommonDialog1.ShowOpen
F$ = CommonDialog1.FileName
Jika Kanan(F, 3) = "rtf" Lalu
RichTextBox1.LoadFile F
ElseIf Right(F, 3) = "txt" Lalu
Buka F Untuk Masukan Sebagai #1
S$ = Masukan(N, 1)
Sub pribadi mnuSave_Click()
CommonDialog1.ShowSave
F$ = CommonDialog1.FileName
Sub pribadi mnuSaveAs_Click()
CommonDialog1.ShowSave
F$ = CommonDialog1.FileName
RichTextBox1.SaveFile F, rtfRTF
Selama pekerjaan ini, siswa harus menyelesaikan 2 tugas.
Latihan 1. Dalam proses menyelesaikan tugas, siswa menguasai kemungkinan bekerja dengan file akses acak yang tersedia di VB 6 ( RAF-acakmengaksesmengajukan).
Untuk tabel database tertentu, tipe data yang ditentukan pengguna dideklarasikan, variabel tipe ini dideklarasikan (tutorial, hal. 108 - 112), prosedur dikompilasi dan di-debug yang menggunakan variabel tipe yang ditentukan pengguna.
Secara khusus, prosedur untuk perintah menu diimplementasikan. Menulis ke fileRAF Dan Baca dari fileRAF. Seperti pada contoh 7.1, array objek digunakan untuk mengedit data. Kombokotak dan menu Sunting dengan lima perintah submenu: Tambahkan catatan, Hapus entri, Sisipkan entri, Sunting Entri, Bersihkan meja.
Pilihan 1.
Deklarasikan tipe data khusus untuk tabel "Mobil" (Tabel 7.1) dari database "Layanan Otomatis".
|
mobil |
mobil |
malfungsi |
Baris paling bawah dari Tabel 7.1 menunjukkan jenis field.
pilihan 2.
Deklarasikan tipe data kustom untuk tabel Faults (Tabel 7.2) dari database Car Service.
|
malfungsi | Nama malfungsi | Harga |
Baris paling bawah dari tabel 7.2 menunjukkan jenis field.
Menggunakan contoh aplikasi 7.1 sebagai sampel, atur entri dan pengeditan data untuk tabel yang disajikan, tulis data ini ke file akses acak, dan baca data dari file akses acak. Seperti pada contoh 7.1, tindakan ini diimplementasikan sebagai pekerjaan perintah menu yang ditunjukkan pada Gambar. 7.1.
Tugas 2. Sebagai bagian dari aktivitas, siswa menambahkan fitur baru ke aplikasi contoh 2 yang memungkinkan aplikasi diperlakukan sebagai editor teks sederhana.
Pilihan 1 UmumDialog mengimplementasikan perintah menu Fon Dan warna(dengan submenu Warna karakter Dan Warna latar belakang). Dengan bantuan perintah ini, pilihan font (nama, gaya, dan ukurannya) untuk fragmen teks yang dipilih di jendela harus disediakan. Kayakolom tulisan, serta memilih warna simbol dari fragmen yang dipilih dan memilih warna latar belakang seluruh jendela ini.
Catatan: Saat menyiapkan objek UmumDialog untuk memilih font menggunakan properti (Kustom), pastikan untuk mengatur nilai properti Bendera ke 1, 2, atau 3 (lihat manual, hal. 183).
pilihan 2. Menggunakan Kontrol UmumDialog mengimplementasikan perintah menu Sunting(submenu Menyalin, Memotong Dan tempel), yang tujuannya adalah penyalinan atau pemindahan ke clipboard dari fragmen teks yang dipilih, serta menyisipkan ke tempat yang dipilih dari teks konten clipboard.
Catatan: Ke clipboard (objek papan klip) Anda dapat menggunakan metode SetText dan GetText :
papan klip. SetText RichTextBox1.SelText
RichTextBox1.SelText = Papan klip. gettext
8. MENYIMPAN DAN MEMBACA INFORMASI
Agar setelah program berakhir, semua data yang dibuat di memori tidak hilang, Anda harus bisa menyimpan informasi di hard disk. Jika tidak, semua informasi akan hilang tanpa jejak. Data dapat disimpan dan dibaca dengan berbagai cara. File biner dan teks dapat digunakan untuk bekerja dengan informasi dalam berbagai ukuran dan format. Anda dapat menggunakan Registri Windows untuk menyimpan sejumlah kecil informasi. Dan untuk tugas yang paling kompleks, masuk akal untuk menggunakan database.
8.1. Membuka file dengan "Membuka "
File adalah area bernama dari media penyimpanan eksternal apa pun. Data "hidup" di memori komputer, dan file - di hard drive. Program tidak bekerja dengan file secara langsung, tetapi menggunakan sistem operasi sebagai perantara.
Ada dua jenis nama file: lengkap - selain nama file, lokasi file di media eksternal juga ditunjukkan (misalnya, “C:\Program Files\Microsoft Visual Studio\VB98\VB 6.EXE" ) dan pendek - hanya nama file (VB 6.EXE ). Jika lokasi file tidak ditentukan, maka akan dicari di folder saat ini, secara default - folder tempat aplikasi Anda berada. Nama file langsung terdiri dari dua bagian: nama file unik yang sebenarnya dan ekstensinya. Nama itu sendiri mengidentifikasi file, sedangkan ekstensi biasanya menunjukkan format file atau dengan program apa file itu dibuat.
Sebelum Anda mulai bekerja dengan file, Anda harus menanyakan sistem operasinya penunjuk (deskriptor) mengajukan. Untuk mendapatkannya, gunakan " FreeFile". Kemudian, dengan menggunakan pernyataan "Buka", penunjuk ini dikaitkan dengan file yang diperlukan. Hanya setelah itu program akan dapat bekerja dengannya. Sintaks untuk membuka file adalah sebagai berikut:
'dapatkan pointer file gratis dan tetapkan ke variabel
FileHandle% = FreeFile
' buka file
Buka FilePath_
Sebagai[#]FileHandle%
...(bekerja dengan file)
Tutup[#]FileHandle
· FileHandle % adalah variabel yang menyimpan penunjuk file;
· FreeFile adalah nama fungsi yang mengembalikan pointer file;
· Buka – nama operator;
· FilePath - nama lengkap file;
· For adalah kata kunci yang diikuti dengan deskripsi mode akses file;
· Mode – mode akses file (lihat Tabel 15);
Tabel 15
Mode akses file
|
Mode akses |
Keterangan |
|
Menambahkan |
Menambahkan data ke akhir file teks yang ada. Jika file tidak ada, itu akan dibuat |
|
Biner |
Membuka file dalam mode biner, mis. sebagai sekumpulan byte. Jika file tidak ada tetapi akan dibuat |
|
Memasukkan |
Membuka file untuk dibaca dalam format teks |
|
Keluaran |
Membuka file untuk menulis file teks. Dalam hal ini, semua informasi lama akan dihapus. Jika file tidak ada tetapi akan dibuat |
|
Acak |
Membuka file dalam mode akses acak. Mode ini digunakan untuk bekerja dengan catatan sederhana. Jika file tidak ada tetapi akan dibuat |
· Akses adalah kata kunci opsional diikuti dengan deskripsi jenis akses;
· AccessType - deskripsi jenis akses:
· Baca - baca;
· Tulis - rekam;
· Baca Tulis - membaca dan menulis.
|
Catatan |
Mode akses Tambah dan Keluaran hanya memungkinkan akses Tulis, akses Baca hanya masukan, dan Biner dan Acak ketiga jenis akses. |
· LockType adalah parameter opsional yang menentukan apakah program lain dapat menggunakan file ini saat program Anda bekerja dengannya. Biasanya dikaitkan dengan jaringan (lihat Tabel 16).
Tabel 16
Nilai yang mungkin untuk parameter LockType
|
Arti |
Keterangan |
|
bersama |
Semua pengguna dengan hak yang diperlukan akan memiliki akses penuh ke file tersebut |
|
kunci baca |
Membaca file diblokir, tetapi menulis diperbolehkan |
|
Kunci Tulis |
Menulis ke file diblokir, tetapi membaca diperbolehkan |
|
Kunci Baca Tulis |
Baik membaca dan menulis untuk itu dilarang. |
· As adalah kata kunci yang diikuti oleh penunjuk file.
· # adalah karakter yang menunjukkan bahwa nilai yang mengikutinya adalah penunjuk file.
· Len adalah kata kunci opsional yang harus diikuti dengan parameter yang menentukan panjang entri.
· CharInBuffer % - panjang rekaman untuk file yang dibuka dalam mode akses acak (Random ).
· Tutup adalah pernyataan yang menutup file yang terkait dengan pegangan yang ditentukan.
Penting untuk menutup file setelah Anda selesai mengerjakannya. Pernyataan "Tutup" melepaskan penunjuk file dan area memori yang terkait.
Saat bekerja dengan file, yaitu saat membacanya, sangat penting untuk menentukan akhir file. Itu dapat didefinisikan menggunakan fungsi EOF (End Of File ):
EOF (Penanganan File)
· EOF – nama fungsi;
· FileHandle adalah pegangan file yang ujungnya ditentukan.
Fungsi mengembalikan True (benar) jika akhir file telah tercapai, jika tidak mengembalikan False (False).
8.2. Membaca dan menulis ke file teks
File teks dibuka dalam mode akses "Input", "Output" atau "Append" (lihat Tabel 15). Keunikan dari mode ini adalah hanya berfungsi dengan karakter tertentu yang dapat dicetak. Tidak ada gunanya bekerja dengan simbol layanan.
Untuk menulis informasi, digunakan dua pernyataan "Cetak" dan "Tulis", yang sintaksnya adalah sebagai berikut:
Cetak #FileHandle%, VarBuffer[;]
Tulis #FileHandle%, VarBuffer[;]
· Cetak / Tulis - kata kunci operator.
· #FileHandle % - penunjuk file tempat informasi akan ditempatkan.
· VarBuffer adalah nilai yang akan ditulis ke file.
· ; – parameter opsional yang digunakan saat menulis ke file teks, berarti nilai berikutnya akan ditulis ke baris yang sama, dan jika tidak ada, ke baris berikutnya.
Untuk membaca informasi dari file, operator "Input" dan "Line Input" digunakan. Sintaksnya mirip satu sama lain:
Masukan Baris #FileHandle%, VarBuffer
Masukkan #FileHandle%, VarBuffer
· Input Baris / Input - kata kunci operator.
· #FileHandle % - penunjuk file dari mana informasi akan dibaca.
· VarBuffer adalah variabel tempat informasi akan dibaca.
Perbedaan antara operator Input Baris dan Input adalah yang pertama ditujukan hanya untuk file teks, dan yang kedua untuk apa saja. Dalam kasus file teks, "Input" membaca data pada baris yang sama hingga pembatas pertama (untuk data teks, pembatasnya adalah "," (koma), dan untuk data numerik - " " (spasi) dan "," ), dan "Input Baris » membaca seluruh baris sekaligus, mengabaikan pembatas apa pun.
|
Catatan |
DI DALAM Dasar visual tidak ada cara untuk mengontrol format file yang dibuat sebelumnya. Oleh karena itu, simbol "2" dapat dibaca sebagai angka yang sesuai dan sebaliknya. |
8.3. Bekerja dengan file biner
File terbuka di format biner operator " Buka" dalam mode " Biner". Ciri khas dari mode ini adalah bahwa pekerjaan dengan file difokuskan secara eksklusif pada byte tertentu. Karena Visual Basic dapat mengarahkan langsung ke lokasi file yang diinginkan, mode ini juga disebut − modus akses langsung. Fitur lain dari mode ini adalah kemampuan untuk menulis dan membaca informasi secara bersamaan ke berbagai bagian file tanpa membukanya kembali. Menulis ke file yang dibuka dalam mode biner dilakukan dengan menggunakan sintaks berikut:
Masukkan #FileHandle%, , NameVar
· Masukan - nama operator untuk menulis informasi.
· RecNumber – nomor byte file tempat informasi akan ditulis (parameter opsional).
· NameVar adalah variabel yang isinya akan ditulis ke file.
Membaca informasi dari file dalam mode biner dilakukan dengan menggunakan pernyataan berikut:
Dapatkan #FileHandle%, , NameVar
· Dapatkan adalah nama operator perekaman informasi.
· FileHandle % - penunjuk file.
· RecNumber – nomor byte file dari mana informasi akan dibaca (opsional).
· NameVar - nama variabel tempat informasi baca akan ditempatkan.
Karena mode biner difokuskan pada byte informasi, saat membaca dari file, variabel buffer harus memiliki tipe yang ditentukan secara ketat: baik "Byte", maka nilai numerik byte akan dibaca, atau karakter dengan panjang tetap dari satu karakter, maka byte akan dibaca sebagai karakter, ANSI , yang kodenya sesuai dengan nilai byte. Karakter ini bahkan dapat menjadi karakter kontrol, yang tidak dapat dicapai dalam kasus file teks.
|
Catatan |
Dengan tidak adanya parameter "RecNumber", informasi akan ditulis atau dibaca dalam byte berikutnya dari file setelah yang mereka kerjakan sebelumnya.
8.4. Manipulasi grafis
Gambar grafik juga dapat disimpan dalam file dan diambil darinya. Untuk mengekstrak gambar dari file bitmap atau ikon dan menetapkannya ke properti "Picture" dari kontrol "PictureBox" dan "Image", gunakan fungsi "LoadPicture ()" dengan sintaks berikut:
ImageCtrl.Picture = LoadPicture(FilePath)
· ImageCtrl adalah nama kontrol jendela gambar, kontrol gambar, atau formulir;
· LoadPicture - nama fungsi;
· FilePath adalah nama lengkap file.
SavePicture ImageCtrl .Picture, FilePath
· SavePicture – nama operator;
· ImageCtrl adalah nama kontrol jendela gambar, kontrol gambar, atau formulir;
· Gambar - nama properti objek yang bertanggung jawab atas gambar;
· FilePath adalah nama lengkap file, menunjukkan lokasinya di disk.
8.5. Bekerja dengan data dalam registri
Anda dapat menggunakan Registri Windows untuk menyimpan potongan kecil informasi format karakter. Visual Basic memiliki empat prosedur yang dapat Anda gunakan untuk mengaksesnya. Mereka sangat mudah digunakan, tetapi memiliki satu kelemahan utama: Anda hanya dapat mengakses data dari kunci registri tertentu: "MyComputer\HKEY _CURRENT _USER\Software\VB and VBA Program Settings". Untuk mengakses kunci registri lain, Anda perlu menggunakan fungsi khusus " Win 32 API».
Untuk mendapatkan nilai pengaturan dari kunci registri Windows khusus Visual Basic, gunakan fungsi berikut:
MyString = GetSetting(VBKeyName, Bagian, Kunci [,Default])
· MyString - string untuk menyimpan nilai yang dikembalikan oleh fungsi;
· GetSetting adalah nama fungsinya.
· VBKeyName adalah nilai string yang merupakan nama subkunci VB/VBA internal.
· Kunci adalah nilai string yang mewakili nama parameter di bagian tersebut.
· Default adalah argumen opsional, yang nilainya akan dikembalikan jika terjadi kesalahan (parameter hilang).
Untuk menyimpan nilai di registri Windows, gunakan pernyataan berikut:
SimpanPengaturan VBKeyName, Bagian, Kunci, MyString
· SaveSetting adalah nama operator.
· MyString adalah variabel string di mana nilai yang ditemukan akan ditempatkan.
Untuk mendapatkan larik dari registri yang berisi semua nilai parameter dari subkunci tertentu, gunakan fungsi berikut:
MyVariant = SetAllSettings(VBKeyName, Bagian)
· MyVariant adalah larik nilai bertipe "Varian" yang dikembalikan oleh fungsi.
· SetAllSettings adalah nama fungsi.
· Bagian - Nilai string yang mewakili bagian atau subbagian dari aplikasi tertentu.
Untuk menghapus seluruh bagian parameter, gunakan operator dengan sintaks berikut:
HapusPengaturan VBKeyName, Bagian, Kunci
· DeleteSetting adalah nama operator.
Pertanyaan keamanan untuk pemeriksaan diri
- Bagaimana beberapa informasi dapat disimpan dalam jangka panjang?
- Apa itu file?
- Nama file apa yang Anda ketahui?
- Berikan sintaks operator "Buka". Jelaskan tujuan dari parameternya.
- Bagaimana cara mengatur akses bersama dari beberapa aplikasi ke file yang sama secara bersamaan?
- Bagaimana cara menentukan bahwa informasi dalam file sudah habis?
- Mengapa disarankan untuk menutup file setelah mengerjakannya?
- Apa yang Anda lihat sebagai perbedaan antara mode teks dan file biner?
- Bagaimana data dibaca dan ditulis dalam mode file teks?
- Bagaimana data dibaca dan ditulis dalam mode file biner?
- Apa perbedaan antara operator "Cetak" dan "Tulis" saat bekerja dengan file?
- Apa perbedaan antara pernyataan "Input" dan "Line Input" saat bekerja dengan file?
- Bagaimana Anda bisa bekerja dengan data grafik?
- Apa prinsip dasar bekerja dengan registri Windows?
Setiap program harus menyimpan data ke disk dan membacanya dari disk. Ini diperlukan, misalnya, untuk menyimpan pengaturan program, kecil kemungkinannya pengguna akan menyukai program tersebut, yang harus dikonfigurasi lagi saat dimulai lagi.
Artikel ini berfokus pada bekerja dengan file teks menggunakan Visual Basic.
Deskriptor file
Untuk bekerja dengan file sistem operasi menggunakan saluran I/O, yaitu setiap file yang terbuka memiliki nomornya sendiri.
Ada fungsi dalam Visual Basic file gratis, yang mengembalikan nomor saluran gratis yang dapat digunakan untuk bekerja dengan file tersebut. Jika tidak ada saluran gratis, maka terjadi kesalahan.
File Gratis[(RangeNumber) ]
RangeNumber- parameter opsional yang memungkinkan Anda menentukan rentang saluran gratis, jika RangeNumber= 0 (default), maka nomor saluran dikembalikan dari range 1 - 255, dan jika 1, maka dari range 256 - 511.
File Saya = File Gratis " Variabel MyFile ditugaskan saluran gratis dan sekarang dapat digunakan untuk bekerja dengan file
Bekerja dengan file teks
Paling sering Anda harus bertemu dengan file teks. File teks terdiri dari satu set karakter ASCII(Kode Standar Amerika untuk Pertukaran Informasi - Kode Standar Amerika untuk Pertukaran Informasi).
Sebelum mulai menulis / membaca data, file harus dibuka, ini dilakukan dengan menggunakan operator membuka(Nama file) Untuk Sebagai #nomor berkas, Di mana:
Memasukkan- buka file untuk dibaca, jika file tidak ada, maka terjadi kesalahan;
Keluaran- untuk menulis, jika file tidak ada, maka akan dibuat, dan jika file ada, akan ditimpa;
Menambahkan- untuk penambahan, jika file belum ada maka akan dibuatkan, dan jika file sudah ada maka data akan ditambahkan di akhir file.
Membaca file teks dapat dilakukan dengan dua cara: membaca karakter demi karakter, untuk ini fungsinya digunakan Memasukkan(Number_of_read_characters, #nomor berkas) dan baris demi baris, untuk ini fungsinya digunakan Masukan Baris#nomor berkas, Di mana_untuk membaca.
DimMyFile
Dim S Sebagai String "Variabel untuk menyimpan data yang telah dibaca
File Saya = File Gratis
Buka("C:\TEST.txt") Untuk Input Sebagai #MyFile
Masukan Baris #MyFile, S "Baca baris pertama dari file TEST.TXT ke dalam variabel S
DimMyFile "Deklarasikan variabel untuk file gratis
Dim i Sebagai Integer "Variabel untuk loop
Redupkan tS Sebagai String "Variabel untuk membaca string
Dim S Sebagai String "Variabel untuk menyimpan data akhir
File Saya = File Gratis "Tetapkan saluran gratis untuk bekerja dengan file
"Buka file TEST.TXT untuk dibaca
Untuk i = 1 sampai 5
Masukan Baris #FileSaya, tS "Baca file TEST.TXT baris demi baris
Jika i => 5 Maka S = tS "Jika baris kelima, maka simpan di variabel S
Selanjutnya saya
Tutup #MyFile "Tutup file
Dim MyFile "Deklarasikan variabel untuk file gratis
Dim S As String "Variabel untuk menyimpan data yang telah dibaca
File Saya = File Gratis "Tetapkan saluran gratis untuk bekerja dengan file
Buka("C:\TEST.txt") Untuk Input Sebagai #MyFile "Buka file TEST.TXT untuk dibaca
S = Masukan$(LOG(1), 1) "Baca seluruh file ke dalam variabel S
Tutup #MyFile "Tutup file
Ada operator untuk menulis ke file. Mencetak#nomor berkas, Data Dan Menulis#nomor berkas, Data. Satu-satunya perbedaan antara operator ini adalah Menulis menulis data dalam tanda kutip, dan mencetak tanpa tanda kutip.
Di bawah kode berikut akan dibuat di drive C:\ file baru TEST.TXT dan tulis dua string ke dalamnya, yang pertama tanpa tanda kutip dan yang kedua dengan tanda kutip:
DimMyFile "Deklarasikan variabel untuk file gratis
File Saya = File Gratis "Tetapkan saluran gratis untuk bekerja dengan file
Buka("C:\TEST.txt") Untuk Output Sebagai #MyFile "Buka file TEST.TXT untuk menulis
Print #MyFile, "String ini ditulis dengan pernyataan Print, tanpa tanda kutip..."
Tulis #MyFile, "String ini ditulis oleh pernyataan Tulis, ada dalam tanda kutip..."
Tutup #MyFile "Tutup file
Itu sebenarnya semua. Seperti yang mungkin sudah Anda pahami, operator yang digunakan untuk menutup file adalah Menutup#nomor berkas, di mana, # nomor berkas tidak wajib ditentukan.
Artikel ini agak mentah, tetapi akan berguna bagi pemrogram pemula. Lain kali saya akan berbicara tentang bekerja dengan file biner.
Memuat...