VB6 da dasturlash: Maslahatlar va fokuslar: 3 qadam

2024 Muallif: John Day | [email protected]. Oxirgi o'zgartirilgan: 2024-01-30 13:29

Men bo'sh vaqtimda dasturlash bilan shug'ullanaman va VB6 -dan foydalangan holda juda malakali dasturchiman. Bu oson va men hali kerakli narsani topa olmayapman, lekin ba'zida sizning vazifangizni bajarish qiyin bo'lishi mumkin. Yo'l davomida men juda ko'p zerikarli narsalarni topdim, asosan u ba'zi narsalarni sanab o'tdi. Mana, men yo'lda o'rgangan narsalarimning to'plami. Agar sizda biron bir muammo bo'lsa, izoh berishingizni so'rayman va men sizga yordam berishga harakat qilaman.

1 -qadam: chiziqlar

VBning satrlar bilan ishlash usuli chalkashdir.texta = "abcdefg" qo'yish "matnining har ikki tomonida siz simlar qatoriga qo'shilishni xohlaysizmi? nol boshlang'ich satrlari 1textb = mid (texta, 2, 2) da boshlanadi, bu o'zgaruvchini textb = "bc" textb = mid (texta, 4, 4) bu o'zgarmaydigan textb = "defg" textb = mid (texta, 4), 5) bu o'zgarmaydigan textb = "defg" to'g'ri bo'ladi, agar siz tanlamoqchi bo'lgan matn uzunroq bo'lsa, dasturning oxirgi belgisida tugaydigan matn, xatoga yo'l qo'ymaslik uchun tuzoq qo'yishingiz kerak bo'ladi. shunday tuzoq: textb = mid (texta, 4, 5), agar len (textb) <5 bo'lsa, 'Len () mag'lubiyat uzunligini qaytaradi, <kamroq degani stringexit sub 'Bu siz kirayotgan qismdan chiqadi, kodni tugatadi. Agar siz funktsiyani bajarayotgan bo'lsangiz, biz string ("Ishga tushirish, Stri" satrida belgi o'rnini topsa, chiqish funktsiyasini qo'ygan bo'lar edingiz). ng1, String2) texta = "abcdefg" textb = instr (1, texta, "c") 'bu c matnini topadi textatextb endi 3NOTE: Instr 0 (nol) ni qaytaradi, agar u REORGANIZING belgisini topmasa: "abcdefg" ning "defgabc" bo'lishini xohlaysizmi? () funktsiyalarni aytganda, siz parda belgisidagi satrni qayta tashkil qilmoqchisiz, lekin u bir xil joy emas, har bir matnda = "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) len (texta) - instr (1, texta, "qismiga e'tibor bering) c ") + 1, chunki instr siz qidirayotgan belgini hisoblaydi, shunda siz bitta belgiga qaytasiz, shunda mid () siz qidirayotgan belgini stringtextc da birinchi bo'lib oladi, endi" cdefgab "textd = mid (textb, instr (1, textb, "c"), len (textb) - instr (1, textb, "c") + 1) & mid (textb, 1, instr (1, textb, "c") - 1) textd endi teng ls "cgfabde" stringtexta = "abcdefg" textc = mid (texta, instr (1, texta, "h"), len (texta) - instr (1, texta, "h") bo'lmagan belgilarni topishga harakat qilaylik.) + 1) & mid (texta, 1, instr (1, texta, "h") - 1) siz xato qilasiz, chunki Mid () ning boshlang'ich qismi = 0 bo'lolmaydi, chunki satrlar 1dan boshlanadi, shuning uchun ish vaqtidan qochish kerak. xato bu ittexta = "abcdefg" qilishning bir usuli, agar 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 'faqat bitta boshqa bayonot, agar vaziyat msgbox "Ildizda belgi topilmadi" xabarlar qutisini ko'rsatadi agar bu satrlar haqida bilishingiz kerak bo'lgan hamma narsani jamlaydi

2 -qadam: belgilarni o'zgartirish

HEX: Men bu hafta boshida topilgan Hex (raqam) funktsiyasi bilan bog'liq, bu raqamning uzunligi muhim emas. Hexhex (11111111) satrini qaytaradi (11111111) ascii belgisini oltilikka aylantirganda dotexta = "a" hex (asc (texta)) "61" ni qaytaradi matn keyin faqat bitta belgini qaytaradi, agar siz hammasini 2 belgi bo'lishini xohlasangiz, shunday qilasiz: textb = hex (asc (texta)) if len (textb) = 1 thentextb = "0" va textb 'nol emas a agar kapital oend

3 -qadam: fayllarni tahrirlash

faylni ochish uchun sizga erkin fayl kerak va filenamegfile = FreeFile 'gfile endi keyingi mavjud freefilec = "c: / test.txt" faylini ochishning 4 usuli bor - faqat o'qish mumkin. Chiqish - Siz faqat yozishingiz mumkin va agar u mavjud bo'lsa, fayl o'chiriladi. vagonni qaytarish va oxirgi belgilarni kiritish. Qo'shish - Siz faqat yozishingiz mumkin. u mavjud faylga qo'shiladi. vagonni qaytarish va oxirgi belgilarni berish oxirgi belgilarBinary - O'qish va yozish. juda aniq. Men hozir ishlatadigan yagona narsa - jurnal fayllarini yaratish uchun va bunday qo'shimchani qo'shish faylning oxiriga yangi yozuvni qo'shadi, yanada murakkab jurnal fayllari uchun butun faylni o'zgaruvchiga yuklaydi va yangi yozuvni boshiga qo'shadi. file.dim stro string sifatida "bu kerak yoki xato bo'ladi 'ikkilikni ochganda, matnning qanchalik katta bo'lishini aytish kerak lof (gfile) gfile uzunligini qaytaradi va $ () bo'sh joylar qatorini qaytaradi #gfile, 1, stro 'fayl raqamidan, boshlang'ich baytdan, uni saqlash uchun o'zgaruvchidan. va faqat yuklanuvchi #gfilestro variableclose uzunligi endi test.txt faylga teng bo'ladi, siz ma'lumotni faylga qo'yishingiz mumkin byffile = FreeFilestro = "Yangi satr" & VbCrLf & stro '"Yangi satr" ni qo'shadi va karraige qaytish va chiziqni uzatadi. ikkilik uchun original textopen c, #ffilekill cput #ffile, 1, stro 'put avvalgi ma'lumotlarning ustiga yozadi, agar fayl kichrayib qolsa, avval faylni o'ldirish kerak, u yopiladi #filetda endi "Yangi satr" bor Men qo'yish funktsiyasini topdim, agar siz #ffile, 133, chr (1) likeput belgisini qo'yishga harakat qilsangiz, xatolar bor, bu 133 baytdagi belgini 1 belgi yoki olti burchakli 0x01 bilan almashtirdi, men buni bitta dastur bilan qilganimda topdim. aslida olti burchakli 0x08000100000001 ni qo'shib qo'ydi. Men buni faylni o'zgaruvchiga yuklash va string modsi = 133stro = mid (stro, 1, i - 1) & chr (1) & mid (stro, i + 1, len (stro) - i) satrini bajarish orqali hal qildim. #ffile, 1, strothis mukammal ishladi