Programavimas VB6: patarimai ir gudrybės: 3 žingsniai

2024 Autorius: John Day | [email protected]. Paskutinį kartą keistas: 2024-01-30 10:51

Aš programuoju laisvalaikiu ir esu gana įgudęs programuotojas, naudojantis VB6. Tai lengva, ir aš dar turiu rasti viską, ko man reikia, kad galėčiau tai padaryti, tačiau to padaryti neįmanoma, nors kartais gali būti sunku atlikti jūsų užduotį. Pakeliui radau daug erzinančių dalykų, dažniausiai tai, kaip skaičiuojami tam tikri dalykai. Taigi čia yra kai kurių dalykų, kuriuos išmokau pakeliui, rinkinys. Raginu jus, jei turite kokių nors problemų, komentuokite, ir aš pasistengsiu padėti atlikti kitus veiksmus.

1 žingsnis: stygos

Tai, kaip VB elgiasi su eilutėmis, kartais yra painus. nulinės pradžios eilutės prasideda nuo 1textb = mid (texta, 2, 2), todėl kintamasis textb = "bc" textb = mid (texta, 4, 4), todėl kintamasis textb = "defg" textb = mid (texta, 4, 5) tai daro kintamąjį textb = "defg" Teisingai, jei tekstas, kurį bandote pasirinkti, yra ilgesnis už turimą tekstą, kuris baigiasi paskutiniu simboliu, priklausomai nuo jūsų programos, turėsite įdėti spąstus, kad išvengtumėte klaidų. yra toks spąstai: textb = mid (texta, 4, 5) jei len (textb) <5 tada 'Len () grąžina eilutės ilgį <reiškia mažiau tadamsgbox "tekstas per trumpas"' Rodo pranešimų laukelį su stringexit sub 'Tai išeina iš posto, kuriame esate. baigdamas kodą. jei esate funkcijoje, įdėkite išėjimo funkciją, kad nustatytumėte simbolio vietą eilutėje, naudokite instr (Start, Stri ng1, eilutė2) texta = "abcdefg" textb = instr (1, texta, "c") 'randama raidė c eilutėje textatextb dabar lygi 3 PASTABA: Instr grąžina 0 (nulį), jei neranda simbolio REORGANIZING: erzina tas, kad nori, kad „abcdefg“būtų „defgabc“texta = „abcdefg“textb = mid (texta, 4, 4) ir mid (texta, 1, 3) Tai nebuvo labai blogai, bet dabar pridėkime instr. () funkcijos, pvz., norite pertvarkyti eilutę pagal užuolaidos simbolį, bet tai nėra ta pati vieta visada) - instr (1, texta, "c") + 1) & mid (texta, 1, instr (1, texta, "c") - 1) atkreipkite dėmesį į dalį len (texta) - instr (1, texta, " c ") + 1, nes instr skaičiuoja ieškomą personažą, kad grįžtumėte vienu simboliu atgal, kad vidurys () laikytų ieškomą simbolį pirmuoju eilutėje" texttextc "dabar yra" cdefgab "textd = mid (textb, instr (1, textb, "c"), len (textb) - instr (1, textb, "c") + 1) & mid (textb, 1, instr (1, textb, "c") - 1) tekstas dabar lygus „cgfabde“leidžia pabandyti rasti simbolį, kurio nėra eilutėje.) + 1) & mid (texta, 1, instr (1, texta, "h") - 1) gausite klaidą, nes vidurio () pradžios dalis negali būti = 0, nes eilutės prasideda nuo 1, todėl turite vengti veikimo laiko klaida. tai yra vienas iš būdų tai padaryti, "h") + 1) ir vidurys (texta, 1, instr (1, texta, "h") - 1) else 'tik vienas kitas teiginys, jei situacijamsgbox "Nerandu simbolio eilutėje"' rodo pranešimų laukelį su stringend ifTai apibendrina beveik viską, ką reikia žinoti apie stygas

2 veiksmas: simbolių konvertavimas

HEX: vienas, kurį radau anksčiau šią savaitę, yra susijęs su šešiakampio (skaičiaus) funkcija, skaičiaus ilgis nesvarbus. Ji grąžina šešioliktainę eilutę (11111111) grąžina „A98AC7“konvertuojant ascii simbolį į šešioliktainį, kurį dotexta = "a" šešioliktainis (asc (texta)) grąžina "61" texta = "k" hex (asc (texta)) grąžina "6B" eilutė bus 2 simboliai, skirti daugumai ASCI simbolių, nebent jie yra mažesni nei 16 tada grąžinamas tik 1 simbolis, jei norite, kad jie visi būtų 2 simboliai, atlikite taip: textb = hex (asc (texta)), jei len (textb) = 1 thentextb = "0", o textb 'yra nulis, o ne kapitalo oend, jei

3 veiksmas: failų redagavimas

Norėdami atidaryti failą, jums reikia nemokamo failo, o failo pavadinimasgfile = FreeFile 'gfile dabar yra kitas laisvas failas = "c: / test.txt", tada yra keturi būdai, kaip atidaryti failą Įvestis - galite tik skaityti. Išvestis - galite rašyti tik ir ji ištrins failą, jei jis yra. vežimo grąžinimas ir linijinio tiekimo paskutiniai simboliaiAppend - galite tik rašyti. jis papildys esamą failą. vežimo grąžinimas ir paskutinių simbolių eilutės tiekimas Dvejetainis - skaitykite ir rašykite. labai tikslus. vienintelis, kurį dabar naudoju. kuriant žurnalo failus ir tokį naudojimo priedą, jis pridės naują įrašą prie failo pabaigos. sudėtingesniems žurnalo failams įkelkite visą failą į kintamąjį ir pridėkite naują įrašą prie file.dim stro kaip string 'tai būtina arba bus klaida „Atidarę dvejetainius, turite pasakyti, kokio dydžio teksto ilgis yra lof (gfile), grąžins gfile ilgį, o tarpas $ () grąžins įvesto skaičiaus ilgio tarpų eilutęget #gfile, 1, stro 'gauti iš failo numerio, pradedant baitu, kintamuoju, kad jį išsaugotumėte. ir įkelia tik kintamojo ilgį close #gfilestro dabar yra lygus failui test.txt. informaciją galite įkelti į failą byffile = FreeFilestro = "New line" & VbCrLf & stro 'prideda "New line" ir carraige return and linefeed po to originalus tekstinis atidarymas c dvejetainei kaip #ffilekill cput #file, 1, stro 'put perrašo ankstesnę informaciją, jei failas mažėja, pirmiausia turite nužudyti failą, kuris jį ištrinauždarykite #ffilethe faile dabar yra „Nauja eilutė“Radau, kad įdėjimo funkcija turi klaidų, jei bandai įterpti simbolį, pvz., #Failas, 133, chr (1) “. iš tikrųjų pridėjo šešiakampį 0x08000100000001, kuris yra beprotiškas. Aš tai išsprendžiau įkeldamas failą į kintamąjį ir atlikdamas eilutę modsi = 133stro = mid (stro, 1, i - 1) & chr (1) & mid (stro, i + 1, len (stro) - i), tada įdėjau #file, 1, strothis puikiai veikė