Programimi në VB6: Këshilla dhe truqe: 3 hapa

2025 Autor: John Day | [email protected]. E modifikuara e fundit: 2025-01-23 15:10

Unë programoj në kohën time të lirë dhe jam një programues mjaft i aftë duke përdorur VB6. Easyshtë e lehtë dhe unë ende nuk kam gjetur ndonjë gjë që më duhet për të arritur që nuk mundet, megjithëse ndonjëherë mund të jetë e vështirë të përmbushësh detyrën tënde. Gjatë rrugës gjeta kaq shumë gjëra të bezdisshme kryesisht në mënyrën se si numëron disa gjëra. Pra, këtu është një përmbledhje e disa gjërave që kam mësuar gjatë rrugës. Unë ju nxis nëse keni ndonjë problem komentoni dhe do të përpiqem t'ju ndihmoj me më shumë hapa.

Hapi 1: Vargje

Mënyra se si VB merret me vargjet është nganjëherë konfuze.texta = "abcdefg" vendos "simbolet në të dy anët e tekstit që dëshironi të llogariteni si një varg vargjet e fillimit zero fillojnë me 1textb = mes (texta, 2, 2) kjo e bën ndryshoren textb = "bc" textb = mes (texta, 4, 4) kjo e bën ndryshoren textb = "defg" textb = mes (texta, 4, 5) kjo e bën variablin textb = "defg" rightshtë e drejtë nëse teksti që po përpiqeni të zgjidhni është më i gjatë atëherë teksti në dispozicion përfundon në karakterin e fundit në varësi të programit tuaj do t'ju duhet të vendosni kurthe për të shmangur gabimet. Kjo është një kurth i tillë: textb = mes (texta, 4, 5) nëse len (textb) <5 atëherë 'Len () kthen gjatësinë e një vargu <nënkupton më pak atëherë textbox është shumë i shkurtër' 'Tregon një kuti mesazhi me stringexit nën 'Kjo del nga nën -ja në të cilën ndodheni. duke i dhënë fund kodit. nëse jeni në një funksion atëherë do të vendosnit funksionin e daljes ifinding vendin e një karakteri në një varg përdorni instrument (Start, Stri ng1, String2) texta = "abcdefg" textb =str (1, texta, "c") 'kjo e gjen shkronjën c në varg textatextb tani është e barabartë me 3 SHOTNIM: Instr kthen 0 (zero) nëse nuk e gjen karakterin REGJISTRIM: një gjë e bezdisshme nëse doni që "abcdefg" të jetë "defgabc" texta = "abcdefg" textb = mes (texta, 4, 4) & mes (texta, 1, 3) Kjo nuk ishte shumë e keqe, por tani le të shtojmë instrumentet () funksionetse dëshironi të riorganizoni një varg në një karakter perde, por nuk është i njëjti vend everytimetexta = "abcdefg" textb = "gfabdec" textc = mes (texta, instrument (1, texta, "c"), len (texta) - instr (1, texta, "c") + 1) & mid (texta, 1, instrument (1, texta, "c") - 1) shëno pjesën len (texta) - instrument (1, texta, " c ") + 1 sepse instrument numëron karakterin që ju po kërkoni, kështu që ju ktheheni një karakter kështu që mesi () merr karakterin që po kërkoni si i pari në stringtextc tani është i barabartë me" cdefgab "textd = mes (textb, instr (1, textb, "c"), len (textb) - instrument (1, textb, "c") + 1) & mid (textb, 1, instrument (1, textb, "c") - 1) textd tani equa ls "cgfabde" le të përpiqemi të gjejmë një karakter që nuk është në stringtexta = "abcdefg" textc = mes (texta, instrument (1, texta, "h"), len (texta) - instrument (1, texta, "h") + 1) & mid (texta, 1, instrument (1, texta, "h") - 1) ju merrni një gabim sepse pjesa fillestare e Mid () nuk mund = 0 pasi vargjet fillojnë në 1 kështu që ju duhet të shmangni kohën e ekzekutimit gabim. kjo është një mënyrë për të bërë atë, "h") + 1) & mid (texta, 1, instrument (1, texta, "h") - 1) tjetër 'vetëm një deklaratë tjetër për nëse situatamsmbox "Nuk mund të gjej karakter në varg" tregon një kuti mesazhi me stringend ifThis përmbledh pothuajse gjithçka që duhet të dini për telat

Hapi 2: Konvertimi i personazheve

HEX: Një që gjeta në fillim të kësaj jave ka të bëjë me funksionin Hex (numri) gjatësia në numër nuk ka rëndësi. Ai kthen një varg në hexhex (11111111) kthen "A98AC7" kur shndërroni një karakter ascii në gjashtëkëndësh që do të dotexta = "a" hex (asc (texta)) kthen "61" texta = "k" hex (asc (texta)) kthen "6B" vargu do të jetë 2 karaktere për shumicën e karaktereve ASCI nëse nuk janë nën vlerën 16 atëherë ai kthen vetëm 1 karakter nëse dëshironi që të gjithë të jenë 2 karaktere ju do të bëni si më poshtë: textb = hex (asc (texta)) nëse len (textb) = 1 thentextb = "0" dhe textb 'që është një zero jo një paralajmërimi i kapitalit nëse

Hapi 3: Redaktimi i skedarëve

për të hapur një skedar keni nevojë për një skedar falas dhe një skedarfile = FreeFile 'gfile tani është e ardhshmja në dispozicion freefilec = "c: / test.txt" atëherë ka 4 mënyra për të hapur një skedarInput - Mund të lexoni vetëm. Dalja - Mund të shkruani vetëm dhe do ta fshijë skedarin nëse ekziston. kthimi i karrocës dhe ushqimi i karaktereve të fundit në linjë Shtoj - Mund të shkruash vetëm. do t'i shtohet skedarit ekzistues. kthimi i karrocave dhe ushqimi i karaktereve të fundit lineareBinary - Lexoni dhe shkruani. shume e sakte i vetmi që unë përdor tani. për ndërtimin e skedarëve log dhe një përdorim të tillë shtoj do të shtojë hyrjen e re në fund të skedarit. për skedarë log më komplekse ngarkoni të gjithë skedarin në një ndryshore dhe shtoni hyrjen e re në fillim të file.dim stro si string 'kjo është e nevojshme ose do të ketë një errorgfile = FreeFilec = "c: / test.txt" hapur c për binar si #gfile' mbani mend gfile është një numërtro = hapësirë $ (lof (gfile)) 'kur hapet për binar duhet të tregoni se sa e madhe është gjatësia e tekstit që dëshironi të merrni lof (gfile) do të kthejë gjatësinë e gfile dhe hapësira $ () kthen një varg hapësirash gjatësinë e numrit që futni #gfile, 1, stro 'merrni nga numri i skedarit, duke filluar byte, variabël për ta ruajtur atë. dhe ngarkon vetëm gjatësinë e ndryshores e ndjekur nga teksti origjinal c për binar si #ffilekill cput #ffile, 1, stro 'vendos informacionin e mëparshëm mbishkruan nëse skedari po bëhet më i vogël ju duhet të vrisni së pari skedarin i cili fshin mbyllur skedarin #ffilethe tani ka "Linja e re" në të njëjtën gjë Kam gjetur me funksionin e vënë nëse ka gabime nëse përpiqeni të vendosni një karakter si e bëri atë në fakt shtoi gjashtëkëndësh 0x08000100000001 i cili është i çuditshëm i çuditshëm. E zgjidh këtë duke ngarkuar skedarin në një ndryshore dhe duke bërë varg modsi = 133stro = mes (stro, 1, i - 1) & chr (1) & mid (stro, i + 1, len (stro) - i) pastaj vendos #ffile, 1, strothis ka punuar në mënyrë perfekte