Kupanga programu katika VB6: Vidokezo na ujanja: 3 Hatua

2024 Mwandishi: John Day | [email protected]. Mwisho uliobadilishwa: 2024-01-30 12:56

Nina mpango katika wakati wangu wa ziada, na mimi ni programu inayofaa kutumia VB6. Ni rahisi na bado sijapata chochote ninachokihitaji kukamilisha ambayo haiwezi, ingawa wakati mwingine inaweza kuwa ngumu kutimiza kazi yako. Njiani niligundua vitu vingi vya kukasirisha haswa jinsi inavyohesabu vitu kadhaa. Kwa hivyo hapa kuna mkusanyiko wa vitu kadhaa nilivyojifunza njiani. Ninakuhimiza ikiwa una shida yoyote kutoa maoni na nitajaribu kusaidia kwa hatua zaidi.

Hatua ya 1: Kamba

Namna VB inavyoshughulika na nyuzi inachanganya wakati mwingine.texta = "abcdefg" weka alama kwenye pande zote za maandishi unayotaka kuhesabiwa kama stringMid (Kamba, Kuanza, Urefu) huchagua sehemu ya maandishi kutoka kwa kamba za kamba hakuna kamba za kuanza sifuri zinaanza saa 1textb = katikati (maandishi, 2, 2) hii inafanya kutofautisha textb = "bc" textb = katikati (maandishi, 4, 4) hii inafanya kutofautisha textb = "defg" textb = katikati (maandishi, 4, 5) hii inafanya kutofautisha textb = "defg" Hiyo ni sawa ikiwa maandishi unayojaribu kuchagua ni marefu basi maandishi yanayopatikana yanaishia kwa herufi ya mwisho kulingana na programu yako itabidi uweke mitego ili kuepuka makosa. ni mtego kama huu: textb = mid (texta, 4, 5) ikiwa len (textb) <5 halafu 'Len () anarudisha urefu wa kamba <inamaanisha chini ya sanduku za maandishi "fupi sana"' Inaonyesha sanduku la ujumbe na stringexit ndogo ng1, String2) texta = "abcdefg" textb = instr (1, texta, "c") 'hii hupata herufi c katika kamba textatextb sasa ni sawa 3KUMBUKA: Instr anarudi 0 (zero) ikiwa haipatikani tabia KUPANGIA upya: hii ni ya kukasirisha unataka "abcdefg" kuwa "defgabc" texta = "abcdefg" textb = katikati (maandishi, 4, 4) & katikati (maandishi, 1, 3) Hiyo haikuwa mbaya sana lakini sasa inakuwezesha kuongeza ndani () kazi labda unataka kupanga upya kamba kwenye herufi ya pazia lakini sio sehemu ile ile everytimetexta = "abcdefg" textb = "gfabdec" textc = mid (maandishi,) - instr (1, maandishi, "c") + 1) na katikati (maandishi, 1, instr (1, maandishi, "c") - 1) kumbuka sehemu len (texta) - instr (1, texta, " c ") + 1 kwa sababu instr anahesabu mhusika unayemtafuta kwa hivyo unarudi nyuma herufi moja kwa hivyo katikati () inachukua mhusika unayemtafuta kama wa kwanza kwenye stringtextc sasa ni sawa" cdefgab "textd = mid (textb, instr (1, textb, "c"), len (textb) - instr (1, textb, "c") + 1) & katikati (textb, 1, instr (1, textb, "c") - 1 maandishi sasa equa ls "cgfabde" lets jaribu kupata herufi ambayo haimo kwenye stringtexta = "abcdefg" textc = mid (texta, instr (1, texta, "h"), len (texta) - instr (1, texta, "h" + 1) & katikati (maandishi, 1, instr (1, maandishi, "h") - 1) unapata hitilafu kwa sababu sehemu ya kuanza ya Mid () haiwezi = 0 kwani kamba zinaanza saa 1 kwa hivyo lazima uepuke wakati wa kukimbia kosa. hii ni njia moja ya kuifanya, "h") + 1) & katikati (maandishi, 1, instr (1, maandishi, "h") - 1) taarifa nyingine ya mtu mwingine tu ikiwa halimsgbox "Haiwezi kupata mhusika katika kamba" 'inaonyesha sanduku la ujumbe na masharti magumu ikiwa Hii inajumlisha kila kitu unachohitaji kujua juu ya masharti

Hatua ya 2: Kubadilisha Wahusika

HEX: Moja ambayo nimepata mapema wiki hii inahusiana na kazi ya Hex (namba) urefu wa nambari haijalishi. Inarudisha kamba katika hexhex (11111111) inarudi "A98AC7" wakati wa kubadilisha herufi ya ascii kuwa hex ungeamua dotexta = "a" hex (asc (texta)) inarudi "61" texta = "k" hex (asc (texta)) inarudi "6B" kamba itakuwa herufi 2 kwa WENGI wa wahusika wa ASCI isipokuwa ni chini ya thamani ya 16 basi inarudisha tu tabia 1 unayotaka wote wawe wahusika 2 ungefanya kama ifuatavyo: textb = hex (asc (texta)) ikiwa len (textb) = 1 thentextb = "0" na textb 'hiyo ni sifuri sio oend kubwa ikiwa

Hatua ya 3: Kuhariri faili

kufungua faili unahitaji faili ya bure na filenamegfile = FreeFile 'gfile sasa inapatikana freefilec = "c: / test.txt" basi kuna njia 4 ambazo unaweza kufungua faili ya Kuingiza - Unaweza kusoma tu. Pato - Unaweza tu kuandika na itafuta faili ikiwa ipo. kurudi kwa kubeba na kubeba wahusika wa mwishoAppend - Unaweza tu kuandika. itaongeza kwenye faili iliyopo. kurudi kwa kubeba na kulaza wahusika wa mwishoBinary - Soma na andika. sahihi sana. moja tu ninayotumia sasa. kwa kujenga faili za kumbukumbu na matumizi kama hayo itaongeza kiingilio kipya hadi mwisho wa faili. file.dim stro kama kamba 'hii ni muhimu au kutakuwa na errorgfile = FreeFilec = "c: / test.txt" open c for binary as #gfile' kumbuka gfile is a numberstro = space $ (lof (gfile)) 'wakati wa kufungua kwa binary lazima ueleze ni urefu gani wa maandishi unayotaka kuchukua ni lof (gfile) itarudisha urefu wa faili na nafasi $ () inarudisha safu ya nafasi urefu wa nambari unayoingiza # faili, 1, stro 'pata kutoka kwa nambari ya faili, kuanzia byte, inayobadilika kuihifadhi. na mizigo tu urefu wa variable #gfilestro sasa ni sawa na faili test.txt. Unaweza kuweka habari kwa faili byffile = FreeFilestro = "Mpya line" & VbCrLf & stro 'inaongeza "New line" na carraige kurudi na linefeed ikifuatiwa na maandishi ya asili c kwa binary kama #ffilekill cput #ffile, 1, stro 'weka maandishi juu ya habari ya zamani ikiwa faili inazidi kuwa ndogo unapaswa kuua faili kwanza ambayo inafuta faili ya #ffilethe sasa ina "Mpya mpya" katika kitu kimoja. Nimepata na kazi ya kuweka ina makosa ikiwa unajaribu kuweka tabia likeput #ffile, 133, chr (1) 'hii inachukua nafasi ya tabia ya byte 133 na tabia 1 au hex 0x01Nilipata wakati nilifanya hivi na programu moja I ilifanya iweze kuongezewa hex 0x08000100000001 ambayo ni ya wiring. Nilitatua hii kwa kupakia faili kwa kutofautisha na kufanya kamba modsi = 133stro = katikati (stro, 1, i - 1) & chr (1) & katikati (stro, i + 1, len (stro) - i) kisha kuweka #file, 1, strothis ilifanya kazi kikamilifu