Programare în VB6: Sfaturi și trucuri: 3 pași

2024 Autor: John Day | [email protected]. Modificat ultima dată: 2024-01-30 11:47

Programez în timpul liber și sunt un programator destul de competent care utilizează VB6. Este ușor și încă nu am găsit nimic de care să am nevoie pentru a realiza ceea ce nu poate, deși uneori poate fi dificil să-ți îndeplinesc sarcina. Pe parcurs am găsit atât de multe lucruri enervante, mai ales modul în care contează anumite lucruri. Iată deci o compilație a unor lucruri pe care le-am învățat pe parcurs. Vă îndemn dacă aveți probleme de comentariu și voi încerca să vă ajut cu mai mulți pași.

Pasul 1: Șiruri

Modul în care VB se ocupă de șiruri este uneori confuz.texta = "abcdefg" pune "simboluri pe ambele părți ale textului pe care doriți să fie numărate ca un șir șirurile de start zero încep de la 1textb = mid (texta, 2, 2) acest lucru face ca variabila textb = "bc" textb = mid (texta, 4, 4) acest lucru face ca variabila textb = "defg" textb = mid (texta, 4, 5) acest lucru face ca variabila textb = "defg" Este corect dacă textul pe care încercați să îl selectați este mai lung decât textul disponibil, acesta se termină cu ultimul caracter în funcție de programul dvs., va trebui să plasați capcane pentru a evita erorile. este o astfel de capcană: textb = mid (texta, 4, 5) dacă len (textb) <5 atunci 'Len () returnează lungimea unui șir <înseamnă mai puțin atuncimsgbox "textul este prea scurt"' Afișează o casetă de mesaj cu stringexit sub 'Aceasta iese din sub care te afli. terminând codul. dacă te afli într-o funcție, atunci ai pune funcția de ieșire și stabilind locul unui caracter într-un șir folosim instr (Start, Stri ng1, String2) texta = "abcdefg" textb = instr (1, texta, "c") 'găsește litera c în șir textatextb este acum egal cu 3 NOTĂ: Instr returnează 0 (zero) dacă nu găsește caracterul REORGANIZARE: acesta este un enervant spune că vrei ca „abcdefg” să fie „defgabc” texta = „abcdefg” textb = mid (texta, 4, 4) & mid (texta, 1, 3) () funcțiile spun că doriți să reorganizați un șir la un caracter cortină, dar nu este același punct everytimetexta = "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) notează partea len (texta) - instr (1, texta, " c ") + 1 deoarece instr contează caracterul pe care îl căutați, astfel încât să vă întoarceți un caracter, astfel încât mid () să ia caracterul pe care îl căutați ca primul din stringtextc este acum egal cu" cdefgab "textd = mid (textb, instr (1, textb, "c"), len (textb) - instr (1, textb, "c") + 1) & mid (textb, 1, instr (1, textb, "c") - 1) textd acum equa ls "cgfabde" permite să încercați să găsiți un caracter care nu se află în stringtexta = "abcdefg" textc = mid (texta, instr (1, texta, "h"), len (texta) - instr (1, texta, "h") + 1) & mid (texta, 1, instr (1, texta, "h") - 1) primiți o eroare, deoarece partea de început a Mid () nu poate = 0, deoarece șirurile încep de la 1, deci trebuie să evitați timpul de rulare eroare. aceasta este o modalitate de a face ittexta = "abcdefg" dacă 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 'only one else statement per if situationmsgbox "Nu se poate găsi caracterul în șir"' afișează o casetă de mesaj cu stringend ifAsta rezumă cam tot ce trebuie să știi despre șiruri

Pasul 2: Conversia caracterelor

HEX: Unul pe care l-am găsit la începutul acestei săptămâni are legătură cu funcția Hex (număr), lungimea numărului nu contează. Returnează un șir în hexhex (11111111) returnează „A98AC7” atunci când convertiți un caracter ascii în hex pe care l-ați dotexta = "a" hex (asc (texta)) returnează "61" texta = "k" hex (asc (texta)) returnează "6B" șirul va fi de 2 caractere pentru MAI MULTE dintre caracterele ASCI, cu excepția cazului în care sunt sub o valoare de 16 atunci returnează doar 1 caracter dacă doriți ca toate să fie 2 caractere, veți face după cum urmează: textb = hex (asc (texta)) dacă len (textb) = 1 thentextb = "0" și textb 'care este un zero nu un capital oend if

Pasul 3: Editarea fișierelor

pentru a deschide un fișier aveți nevoie de un fișier gratuit și un fișier filenamegfile = FreeFile 'gfile este acum următorul freefilec = "c: / test.txt" disponibil, atunci există cele 4 moduri în care puteți deschide un fișier Intrare - Puteți citi numai. Ieșire - Puteți scrie doar și va șterge fișierul dacă acesta există. returul căruței și alimentarea cu linie a ultimelor caractere Adăugați - Puteți scrie numai. se va adăuga la fișierul existent. retur de transport și alimentare cu linie ultimele caractere Binare - Citește și scrie. foarte precis. singurul pe care îl folosesc acum.pentru construirea fișierelor jurnal și această utilizare se adaugă, va adăuga noua intrare la sfârșitul fișierului.pentru fișierele jurnal mai complexe încărcați întregul fișier într-o variabilă și adăugați noua intrare la începutul file.dim stro as string 'acest lucru este necesar sau va exista un fișier errorg = FreeFilec = "c: / test.txt" deschis c pentru binar ca # fișier' amintiți-vă gfile este un numberstro = spațiu $ (lof (gfile)) 'când deschideți pentru binar trebuie să spuneți cât de mare este lungimea textului pe care doriți să-l luați lof (gfile) va returna lungimea gfile și spațiul $ () returnează un șir de spații cu lungimea numărului pe care îl încercați #gfile, 1, stro 'obține din numărul fișierului, octet de pornire, variabil pentru a-l salva. și încarcă doar lungimea variabilității închide #gfilestro acum este egală cu fișierul test.txt.puteți introduce informații într-un fișier urmat de textul original deschideți c pentru binar ca #ffilekill cput #ffile, 1, stro 'pune suprascrie informațiile anterioare dacă fișierul devine mai mic, ar trebui să distrugeți mai întâi fișierul care îl șterge închideți #ffiletheșierul are acum „Linie nouă” într-un singur lucru Am găsit cu funcția de pus este că are erori dacă încercați să puneți un caracter likeput #file, 133, chr (1) "acest lucru înlocuiește caracterul de la octetul 133 cu caracterul 1 sau hex 0x01 Am găsit când am făcut acest lucru cu un singur program I a făcut-o adăugat de fapt hex 0x08000100000001, care este ciudat. Am rezolvat acest lucru încărcând fișierul într-o variabilă și făcând șir modsi = 133stro = mid (stro, 1, i - 1) & chr (1) & mid (stro, i + 1, len (stro) - i) apoi puneți #file, 1, strothis a funcționat perfect