Pengaturcaraan dalam VB6: Petua dan Trik: 3 Langkah

2024 Pengarang: John Day | [email protected]. Diubah suai terakhir: 2024-01-30 11:13

Saya memprogramkan masa lapang, dan saya adalah pengaturcara yang cukup mahir menggunakan VB6. Itu mudah dan saya belum menemui apa-apa yang saya perlukan untuk menyelesaikannya tetapi tidak dapat dilakukan, walaupun kadang-kadang sukar untuk menyelesaikan tugas anda. Sepanjang perjalanan saya menjumpai banyak perkara yang menjengkelkan terutamanya cara mengira perkara-perkara tertentu. Oleh itu, terdapat beberapa perkara yang saya pelajari selama ini. Saya meminta anda jika anda mempunyai masalah untuk memberi komen dan saya akan cuba membantu dengan lebih banyak langkah.

Langkah 1: Rentetan

Cara VB menangani rentetan kadang-kadang membingungkan.texta = "abcdefg" meletakkan "simbol pada kedua sisi teks yang anda ingin dikira sebagai stringMid (String, Start, Length) memilih bahagian teks dari rentetan string tidak ada rentetan permulaan sifar bermula pada 1textb = pertengahan (texta, 2, 2) ini menjadikan pemboleh ubah textb = "bc" textb = pertengahan (texta, 4, 4) ini menjadikan pemboleh ubah textb = "defg" textb = pertengahan (texta, 4, 5) ini menjadikan pemboleh ubah textb = "defg" Tepat jika teks yang anda cuba pilih lebih panjang daripada teks yang tersedia berakhir pada watak terakhir bergantung pada program anda, anda harus meletakkan perangkap untuk mengelakkan kesilapan. Ini adalah perangkap seperti itu: textb = pertengahan (texta, 4, 5) jika len (textb) <5 maka 'Len () mengembalikan panjang rentetan teks <bermaksud kurang thenmsgbox "terlalu pendek"' Menunjukkan kotak mesej dengan stringexit sub 'Ini keluar dari sub yang anda gunakan. mengakhiri kod. jika anda berada dalam fungsi maka anda akan meletakkan fungsi keluar dan menentukan tempat watak dalam string yang kami gunakan instrumen (Start, Stri ng1, String2) texta = "abcdefg" textb = instr (1, texta, "c") 'ini mendapati huruf c dalam string textatextb sekarang sama dengan 3 PERHATIAN: Instr mengembalikan 0 (sifar) jika tidak menemui watakREORGANIZING: ini yang menjengkelkan, anda mahu "abcdefg" menjadi "defgabc" texta = "abcdefg" textb = mid (texta, 4, 4) & mid (texta, 1, 3) Itu tidak terlalu buruk tetapi sekarang mari kita tambahkan instrumen () berfungsi jika anda mahu menyusun semula rentetan pada watak tirai tetapi ia tidak sama setiap Everytimetexta = "abcdefg" textb = "gfabdec" textc = mid (texta, instr (1, texta, "c"), len (texta) - instr (1, texta, "c") + 1) & pertengahan (texta, 1, instr (1, texta, "c") - 1) perhatikan bahagian len (texta) - instr (1, texta, " c ") + 1 kerana instr menghitung watak yang anda cari sehingga anda mengembalikan satu watak sehingga pertengahan () mengambil watak yang anda cari sebagai yang pertama di stringtextc sekarang sama dengan" cdefgab "textd = mid (textb, instr (1, textb, "c"), len (textb) - instr (1, textb, "c") + 1) & pertengahan (textb, 1, instr (1, textb, "c") - 1) textd sekarang equa ls "cgfabde" mari kita cuba mencari watak yang tidak terdapat dalam stringtexta = "abcdefg" textc = mid (texta, instr (1, texta, "h"), len (texta) - instr (1, texta, "h") + 1) & pertengahan (texta, 1, instr (1, texta, "h") - 1) anda mendapat ralat kerana bahagian permulaan Mid () tidak boleh = 0 kerana rentetan bermula pada 1 jadi anda harus mengelakkan masa runtime kesilapan. ini adalah salah satu cara untuk melakukannya ittexta = "abcdefg" if instr (1, texta, "h") 0 thentextc = mid (texta, instr (1, texta, "h"), len (texta) - instr (1, texta, "h") + 1) & pertengahan (texta, 1, instr (1, texta, "h") - 1) yang lain 'hanya satu pernyataan yang lain jika situasimsgbox "Tidak dapat mencari watak dalam rentetan"' menunjukkan kotak mesej dengan the stringend ifIni merangkumi hampir semua perkara yang perlu anda ketahui mengenai rentetan

Langkah 2: Menukar Perwatakan

HEX: Yang saya dapati pada awal minggu ini ada kaitannya dengan fungsi Hex (number) panjang pada nombor tidak menjadi masalah. Ia mengembalikan rentetan dalam hexhex (11111111) mengembalikan "A98AC7" ketika menukar watak ascii ke hex anda akan dotexta = "a" hex (asc (texta)) mengembalikan "61" texta = "k" hex (asc (texta)) mengembalikan "6B" rentetan akan menjadi 2 aksara untuk PALING aksara ASCI kecuali yang berada di bawah nilai 16 maka ia hanya mengembalikan 1 aksara jika anda mahu semuanya menjadi 2 aksara yang anda lakukan seperti berikut: textb = hex (asc (texta)) if len (textb) = 1 thentextb = "0" dan textb 'yang merupakan nol bukan a modal oend sekiranya

Langkah 3: Penyuntingan Fail

untuk membuka fail, anda memerlukan fail bebas dan nama failgfile = FreeFile 'gfile kini menjadi freefilec yang tersedia seterusnya = "c: / test.txt" maka ada 4 cara anda boleh membuka failInput - Anda hanya boleh membaca. Keluaran - Anda hanya boleh menulis dan ia akan memadamkan fail jika ada. kembalikan kereta dan baris terakhir watak-watak Lampirkan - Anda hanya boleh menulis. ia akan menambah fail yang ada. carriage return dan linefeed watak terakhirBinary - Baca dan tulis. sangat tepat. satu-satunya yang saya gunakan sekarang. untuk membina fail log dan penggunaan seperti itu menambahkannya akan menambah entri baru ke akhir fail. untuk fail log yang lebih kompleks memuatkan keseluruhan fail ke dalam pemboleh ubah dan tambahkan entri baru ke awal file.dim stro sebagai string 'ini perlu atau akan ada errorgfile = FreeFilec = "c: / test.txt" open c untuk binary kerana #gfile' ingat gfile adalah numberstro = space $ (lof (gfile)) 'semasa membuka perduaan anda harus memberitahu seberapa besar panjang teks yang ingin anda ambil adalah lof (gfile) akan mengembalikan panjang gfile dan ruang $ () mengembalikan rentetan ruang panjang nombor yang anda masukkan #gfile, 1, stro 'dapatkan dari nombor fail, bermula bait, pemboleh ubah untuk menyimpannya. dan memuatkan hanya panjang variabelclose #gfilestro sekarang sama dengan ujian fail.txt. anda boleh meletakkan maklumat ke fail byffile = FreeFilestro = "Baris baru" & VbCrLf & stro 'menambah "Baris baru" dan carraige return dan linefeed diikuti oleh teks asli c untuk binari sebagai #ffilekill cput #ffile, 1, stro 'meletakkan menimpa maklumat sebelumnya jika fail semakin kecil anda harus membunuh fail terlebih dahulu yang menghapuskannya menutup fail #ffilethe kini mempunyai "Baris baru" dalam satu perkara Saya dapati dengan fungsi put adakah terdapat kesalahan jika anda mencuba watak seperti #file, 133, chr (1) 'ini menggantikan watak pada byte 133 dengan watak 1 atau hex 0x01Saya dijumpai ketika saya melakukan ini dengan satu program I menjadikannya benar-benar menambahkan hex 0x08000100000001 yang semakin aneh. Saya menyelesaikannya dengan memuatkan fail ke pemboleh ubah dan melakukan string modsi = 133stro = mid (stro, 1, i - 1) & chr (1) & mid (stro, i + 1, len (stro) - i) kemudian letakkan #file, 1, stroth ini berfungsi dengan sempurna