Programming sa VB6: Mga Tip at Trick: 3 Mga Hakbang

2024 May -akda: John Day | [email protected]. Huling binago: 2024-01-30 13:16

Nagpaprogram ako sa aking bakanteng oras, at isang husay na programmer gamit ang VB6. Ito ay madali at wala pa akong makitang anumang kailangan ko upang magawa na hindi ito magagawa, kahit na kung minsan ay maaaring maging finicky upang magawa ang iyong gawain. Kasama ang paraan na natagpuan ko ang maraming mga nakakainis na bagay na karamihan sa paraang binibilang nito ang ilang mga bagay. Kaya narito ang isang pagtitipon ng ilang mga bagay na natutunan ko sa daan. Hinihimok ko kayo kung mayroon kang anumang mga problema magkomento at susubukan kong tumulong sa higit pang mga hakbang.

Hakbang 1: Mga string

Ang paraan ng pakikitungo ng VB sa mga string ay nakalilito minsan.texta = "abcdefg" ilagay "ang mga simbolo sa magkabilang panig ng teksto na nais mong mabibilang bilang isang stringMid (String, Start, Length) ay pipili ng isang seksyon ng teksto mula sa isang stringin strings na walang zero start strings start at 1textb = mid (texta, 2, 2) ginagawa nitong variable na textb = "bc" textb = mid (texta, 4, 4) ginagawa nitong variable na textb = "defg" textb = mid (texta, 4, 5) ginawang tama ang variable na textb = "defg" kung ang teksto na sinusubukan mong piliin ay mas mahaba kung gayon ang magagamit na teksto na nagtatapos sa huling character na nakasalalay sa iyong programa kailangan mong maglagay ng mga traps upang maiwasan ang mga error. Ito ay tulad ng isang bitag: textb = mid (texta, 4, 5) kung len (textb) <5 pagkatapos ay ibabalik ni 'Len () ang haba ng isang string ang <nangangahulugang mas mababa sa thenmsgbox "ang teksto ay masyadong maikli"' Nagpapakita ng isang kahon ng mensahe na may ang stringexit sub 'Lumalabas ito sa sub kung nasaan ka. tinatapos ang code. kung nasa isang pag-andar ka pagkatapos ay mailalagay mo ang exit functionend iffinding ang lugar ng isang character sa isang stringwe use instr (Start, Stri ng1, String2) texta = "abcdefg" textb = instr (1, texta, "c") 'mahahanap nito ang letrang c sa string textatextb ngayon ay katumbas ng 3NOTE: Nagbabalik ang Instr ng 0 (zero) kung hindi nito nahanap ang characterREORGANIZING: ito ay isang nakakainis na gusto mong "abcdefg" ay maging "defgabc" texta = "abcdefg" textb = mid (texta, 4, 4) & mid (texta, 1, 3) Iyon ay hindi masyadong masama ngunit ngayon ay nagbibigay-daan sa idagdag sa instr () Functionay nais mong ayusin muli ang isang string sa isang character na kurtina ngunit hindi ito ang parehong lugar sa bawat) - instr (1, texta, "c") + 1) at kalagitnaan (texta, 1, instr (1, texta, "c") - 1) tandaan ang bahaging len (texta) - instr (1, texta, " c ") + 1 sapagkat binibilang ni instr ang character na iyong hinahanap kaya't bumalik ka sa isang character kaya ang mid () ay kinukuha ang character na hinahanap mo bilang una sa stringtextc ngayon ay katumbas ng" cdefgab "textd = mid (textb, instr (1, textb, "c"), len (textb) - instr (1, textb, "c") + 1) & mid (textb, 1, instr (1, textb, "c") - 1) textd ngayon equa Hinahayaan ng ls "cgfabde" na maghanap ng character na wala sa stringtexta = "abcdefg" textc = mid (texta, instr (1, texta, "h"), len (texta) - instr (1, texta, "h") + 1) & kalagitnaan (texta, 1, instr (1, texta, "h") - 1) nakakakuha ka ng isang error dahil ang panimulang bahagi ng Mid () ay hindi maaaring = 0 dahil nagsimula ang mga string sa 1kaya kailangan mong iwasan ang runtime kamalian ito ay isang paraan upang gawin ito, "h") + 1) at kalagitnaan (texta, 1, instr (1, texta, "h") - 1) iba pa 'lang ang isa pang pahayag bawat kung ang situationmsgbox na "Hindi mahanap ang character sa string"' ay nagpapakita ng isang kahon ng mensahe na may ang stringend kungIto ay sumsumula halos lahat ng kailangan mong malaman tungkol sa mga string

Hakbang 2: Pag-convert ng Mga Character

HEX: Ang isa na nahanap ko nang mas maaga sa linggong ito ay may kinalaman sa pagpapaandar ng Hex (numero) na ang haba sa numero ay hindi mahalaga. Nagbabalik ito ng isang string sa hexhex (11111111) na nagbabalik ng "A98AC7" kapag nagko-convert ng isang character na Alexa sa hex na nais mong dotexta Ang "" a "hex (asc (texta)) ay nagbabalik ng" 61 "texta =" k "hex (asc (texta)) ay nagbabalik ng" 6B "ang string ay magiging 2 character para sa PINAKA NG mga character na ASCI maliban sa mga nasa ilalim ng halaga na 16 pagkatapos ay nagbabalik lamang ito ng 1 characterif na nais mong silang lahat ay maging 2 character na gagawin mo tulad ng sumusunod: textb = hex (asc (texta)) kung len (textb) = 1 thentextb = "0" at textb 'na isang zero not a capital oend kung

Hakbang 3: Pag-edit ng File

upang buksan ang isang file kailangan mo ng isang freefile at isang filenamegfile = FreeFile 'gfile na ngayon ang susunod na magagamit na freefilec = "c: / test.txt" pagkatapos ay mayroong 4 na paraan upang mabuksan mo ang isang fileInput - Maaari mo lamang mabasa. Output - Maaari ka lamang magsulat at buburahin nito ang file kung mayroon ito. pagbabalik ng karwahe at pag-linefeed ng huling mga character na Magdagdag - Maaari ka lamang magsulat. idaragdag ito sa mayroon nang file. pagbabalik ng karwahe at linefeed huling characterBinary - Basahin at isulat. napaka tumpak. ang nag-iisa lang na ginagamit ko ngayon. para sa pagbuo ng mga file ng log at ang naturang paggamit ay idaragdag nito ay idaragdag ang bagong entry sa dulo ng file. para sa mas kumplikadong mga file ng pag-log load ang buong file sa isang variable at idagdag ang bagong entry sa simula ng ang file.dim stro bilang string 'ito ay kinakailangan o magkakaroon ng errorgfile = FreeFilec = "c: / test.txt" bukas c para sa binary bilang #gfile' tandaan ang gfile ay isang numerotro = space $ (lof (gfile)) 'kapag binubuksan para sa binary kailangan mong sabihin kung gaano kalaki ang haba ng teksto na nais mong kunin ay lof (gfile) ay ibabalik ang haba ng gfile at puwang na $ () ay magbabalik ng isang string ng mga puwang sa haba ng bilang na pinasok mo #gfile, 1, kumuha ng mula sa file number, simula ng byte, variable upang mai-save ito. at naglo-load lamang ang haba ng variableclose #gfilestro ngayon ay katumbas ng file test.txt.ay maaari kang maglagay ng impormasyon sa isang byffile ng file = FreeFilestro = "Bagong linya" & VbCrLf & stro 'ay nagdaragdag ng "Bagong linya" at carraige return at linefeed sinundan ng orihinal na textopen c para sa binary bilang #ffilekill cput #ffile, 1, stro 'ilagay ang na-overrite ang dating impormasyon kung ang file ay nagiging mas maliit dapat mong patayin muna ang file na tinatanggal ang isara ang #ffilethe file na mayroon nang "Bagong linya" sa isang bagay na ito Natagpuan ko kasama ang paglalagay ng function ay mayroon itong mga error kung susubukan mong maglagay ng isang likeput ng character na #ffile, 133, chr (1) 'pinalitan nito ang character sa byte 133 na may character 1 o hex 0x01Natagpuan ko noong ginawa ko ito sa isang program na I ginawa itong aktwal na idinagdag hex 0x08000100000001 na kung saan ay freaking wierd. Nalutas ko ito sa pamamagitan ng paglo-load ng file sa isang variable at paggawa ng string modsi = 133stro = mid (stro, 1, i - 1) & chr (1) & mid (stro, i + 1, len (stro) - i) pagkatapos ay ilagay #ffile, 1, ang strothis ay ganap na gumana