Pemrograman di VB6: Tips dan Trik: 3 Langkah

2024 Pengarang: John Day | [email protected]. Terakhir diubah: 2024-01-30 09:59

Saya memprogram di waktu luang saya, dan saya seorang programmer yang cukup mahir menggunakan VB6. Itu mudah dan saya belum menemukan apa pun yang saya butuhkan untuk menyelesaikannya yang tidak bisa, meskipun kadang-kadang bisa rewel untuk menyelesaikan tugas Anda. Sepanjang jalan saya menemukan begitu banyak hal yang mengganggu kebanyakan cara menghitung hal-hal tertentu. Jadi di sini adalah kompilasi dari beberapa hal yang saya pelajari di sepanjang jalan. Saya mendorong Anda jika Anda memiliki masalah komentar dan saya akan mencoba membantu dengan lebih banyak langkah.

Langkah 1: String

Cara VB menangani string terkadang membingungkan.texta = "abcdefg" menempatkan " simbol di kedua sisi teks yang ingin Anda hitung sebagai stringMid(String, Start, Length) memilih bagian teks dari string string tidak ada nol string awal mulai dari 1textb = mid(texta, 2, 2)ini membuat variabel textb = "bc"textb = mid(texta, 4, 4)ini membuat variabel textb = "defg"textb = mid(texta, 4, 5)ini membuat variabel textb = "defg"Itu benar jika teks yang Anda coba pilih lebih panjang dari teks yang tersedia berakhir pada karakter terakhirtergantung pada program Anda, Anda harus menempatkan jebakan untuk menghindari kesalahan. Ini adalah jebakan seperti itu:textb = mid(texta, 4, 5)jika len(textb) < 5 maka 'Len() mengembalikan panjang string < berarti kurang dari msgbox "teks terlalu pendek" 'Menampilkan kotak pesan dengan the stringexit sub 'Ini keluar dari sub tempat Anda berada. mengakhiri kode. jika Anda berada dalam suatu fungsi maka Anda akan meletakkan exit functionend jika menemukan tempat karakter dalam stringkita menggunakan instr(Mulai, Stri ng1, String2)texta = "abcdefg"textb = instr(1, texta, "c") 'ini menemukan huruf c dalam string textatextb sekarang sama dengan 3CATATAN:Instr mengembalikan 0 (nol) jika tidak menemukan karakterREORGANIZING:ini adalah yang menjengkelkan mengatakan Anda ingin "abcdefg" menjadi "defgabc"texta = "abcdefg"textb = mid(texta, 4, 4) & mid(texta, 1, 3)Itu tidak terlalu buruk tetapi sekarang mari tambahkan instr () functionsay Anda ingin mengatur ulang string pada karakter tirai tetapi itu bukan tempat yang sama setiap kalitexta = "abcdefg"textb = "gfabdec"textc = mid(texta, instr(1, texta, "c"), len(texta) - instr(1, texta, "c") + 1) & mid(texta, 1, instr(1, texta, "c") - 1)perhatikan bagian len(texta) - instr(1, texta, " c") + 1 karena instr menghitung karakter yang Anda cari sehingga Anda kembali satu karakter sehingga mid() mengambil karakter yang Anda cari sebagai yang pertama di stringtextc sekarang sama dengan "cdefgab"textd = mid(teksb, instr(1, teksb, "c"), len(teksb) - instr(1, teksb, "c") + 1) & tengah(teksb, 1, instr(1, teksb, "c") - 1)textd sekarang sama ls "cgfabde"mari kita coba mencari karakter yang tidak ada dalam stringtexta = "abcdefg"textc = mid(texta, instr(1, texta, "h"), len(texta) - instr(1, texta, "h") + 1) & mid(texta, 1, instr(1, texta, "h") - 1)Anda mendapatkan kesalahan karena bagian awal Mid() tidak dapat = 0 karena string dimulai dari 1sehingga Anda harus menghindari runtime kesalahan. ini adalah salah satu cara untuk melakukannyatexta = "abcdefg"if instr(1, texta, "h") 0 thentextc = mid(texta, instr(1, texta, "h"), len(texta) - instr(1, texta, "h") + 1) & mid(texta, 1, instr(1, texta, "h") - 1)else 'hanya satu pernyataan lain per if situasimsgbox "Tidak dapat menemukan karakter dalam string" 'menampilkan kotak pesan dengan stringend ifIni merangkum hampir semua yang perlu Anda ketahui tentang string

Langkah 2: Mengubah Karakter

HEX: Satu yang saya temukan awal minggu ini berkaitan dengan fungsi Hex(angka) panjangnya angka tidak masalah.itu mengembalikan string dalam hexhex(11111111) mengembalikan "A98AC7"saat mengonversi karakter ascii ke hex yang akan Anda lakukantexta = "a"hex(asc(texta)) mengembalikan "61"texta = "k"hex(asc(texta)) mengembalikan "6B"string akan menjadi 2 karakter untuk PALING karakter ASCI kecuali jika nilainya di bawah 16 maka itu hanya mengembalikan 1 karakterjika Anda ingin semuanya menjadi 2 karakter yang akan Anda lakukan sebagai berikut:textb = hex(asc(texta))if len(textb) = 1 thentextb = "0" dan textb 'itu adalah nol bukan a modal oend jika

Langkah 3: Pengeditan File

untuk membuka file Anda memerlukan freefile dan filenamegfile = FreeFile 'gfile sekarang adalah freefilec berikutnya yang tersedia freefilec = "c:\test.txt"maka ada 4 cara Anda dapat membuka fileInput - Anda hanya dapat membaca. Output - Anda hanya dapat menulis dan itu akan menghapus file jika ada. carriage return dan linefeed karakter terakhir Tambahkan - Anda hanya dapat menulis. itu akan menambah file yang ada. carriage return dan linefeed karakter terakhirBinary - Baca dan tulis. sangat tepat. satu-satunya yang saya gunakan sekarang. untuk membangun file log dan penggunaan semacam itu menambahkannya akan menambahkan entri baru ke akhir file. untuk file log yang lebih kompleks memuat seluruh file ke dalam variabel dan menambahkan entri baru ke awal file.dim stro sebagai string 'ini perlu atau akan ada errorgfile = FreeFilec = "c:\test.txt"buka c untuk biner sebagai #gfile 'ingat gfile adalah angkastro = spasi$(lof(gfile)) 'saat membuka biner Anda harus memberi tahu seberapa besar panjang teks yang ingin Anda ambil adalah lof(gfile) akan mengembalikan panjang gfile dan spasi$ () mengembalikan string spasi dengan panjang angka yang Anda masukkan #gfile, 1, stro 'dapatkan dari nomor file, byte awal, variabel untuk menyimpannya. dan memuat hanya panjang variabelclose #gfilestro sekarang sama dengan file test.txt. Anda dapat memasukkan informasi ke file byffe = FreeFilestro = "New line" & VbCrLf & stro ' menambahkan "New line" dan carraige return dan linefeed diikuti oleh teks asli buka c untuk biner sebagai #ffilekill cput #ffile, 1, stro 'put menimpa informasi sebelumnya jika file semakin kecil Anda harus membunuh file terlebih dahulu yang menghapusnya tutup #ffilefile sekarang memiliki "Baris baru" di dalamnya satu hal Saya menemukan dengan fungsi put apakah ada kesalahan jika Anda mencoba menempatkan karakter likeput #ffile, 133, chr(1) ' ini menggantikan karakter pada byte 133 dengan karakter 1 atau hex 0x01Saya menemukan ini ketika saya melakukan ini dengan satu program saya membuatnya benar-benar menambahkan hex 0x08000100000001 yang sangat aneh. Saya memecahkan ini dengan memuat file ke variabel dan melakukan string modsi = 133stro = mid(stro, 1, i - 1) & chr(1) & mid(stro, i + 1, len(stro) - i)lalu masukkan #ffile, 1, strothis bekerja dengan sempurna