Mingրագրավորում VB6- ում ՝ խորհուրդներ և հնարքներ ՝ 3 քայլ

2025 Հեղինակ: John Day | [email protected]. Վերջին փոփոխված: 2025-01-23 14:48

Ես ծրագրում եմ իմ ազատ ժամանակ և բավականին հմուտ ծրագրավորող եմ ՝ օգտագործելով VB6: Դա հեշտ է, և ես դեռ պետք է գտնեմ այն, ինչն ինձ անհրաժեշտ է իրականացնելու համար, որը չի կարող, չնայած երբեմն կարող է դժվար լինել ձեր առաջադրանքը կատարելու համար: Անապարհին ես գտա այնքան շատ նյարդայնացնող բաներ, որոնք հիմնականում որոշ բաներ են հաշվում: Այսպիսով, ահա մի քանի բաների հավաքածու, որոնք ես սովորել եմ ճանապարհին: Ես ձեզ կոչ եմ անում, եթե որևէ խնդիր ունեք մեկնաբանել, և ես կփորձեմ օգնել ավելի շատ քայլերով:

Քայլ 1: Լարեր

Երբեմն VB- ն տողերի հետ վարվում է շփոթեցուցիչ: texta = "abcdefg" տեքստերի երկու կողմերում տեղադրեք խորհրդանիշներ, որոնք ցանկանում եք համարվել որպես տող զրոյական մեկնարկային տողերը սկսվում են 1textb = միջինից (texta, 2, 2) սա փոփոխական է դարձնում textb = "bc" textb = mid (texta, 4, 4) սա փոփոխականից textb = "defg" textb = mid (texta, 4, 5) սա փոփոխական է դարձնում textb = "defg" rightիշտ է, եթե տեքստը, որը փորձում եք ընտրել, ավելի երկար է, ապա առկա տեքստը այն ավարտվում է վերջին նիշով `ձեր ծրագրից կախված, սխալներից խուսափելու համար ստիպված կլինեք թակարդներ տեղադրել: այսպիսի թակարդ է. stringexit ենթախումբը «Սա դուրս է գալիս այն ենթակայքից, որում դուք գտնվում եք: ծածկագիրը վերջանում է: Եթե գործառույթում եք, ապա դնում եք ելքի գործառույթը, եթե լարերի մեջ նշենք բնույթը և օգտագործենք գործիք (Սկիզբ, Stri ng1, String2) texta = "abcdefg" textb =str (1, texta, "c") 'սա գտնում է տառը տեքստում textb այժմ հավասար է 3 -ի: անհանգստացնող մեկը, որը ցանկանում եք, որ «abcdefg» - ը լինի «defgabc» texta = "abcdefg" textb = միջին (texta, 4, 4) և mid (texta, 1, 3) Դա այնքան էլ վատ չէր, բայց հիմա թույլ տվեք ավելացնել գործիքները () գործառույթներ < / b> եթե ցանկանում եք վերակազմակերպել տողը վարագույրի բնույթի վրա, բայց դա նույն տեղը չէ) - գործիքներ (1, տեքստա, «գ») + 1) և միջին (տեքստա, 1, գործիք (1, տեքստա, «գ») - 1) նշեք լեն (տեքստա) - գործիք (1, տեքստա,) գ ") + 1, որովհետև instrument- ը հաշվում է ձեր փնտրած կերպարը, այնպես որ հետ եք գնում մեկ նիշ, որպեսզի կեսը () վերցնի ձեր փնտրած կերպարը որպես stringtextc- ում այժմ հավասար է" cdefgab "textd = mid (տեքստ, գործիք (1, տեքստ, «գ»), լեն (տեքստբ) - գործիք (1, տեքստ, «գ») + 1) և միջին (տեքստ, 1, գործիք (1, տեքստ, «գ») - 1) textd այժմ equa ls «cgfabde» - ը փորձի գտնել մի կերպար, որը չկա stringtexta = "abcdefg" textc = mid (texta,str (1, texta, "h"), len (texta) --str (1, texta, "h") + 1) & mid (texta, 1, instr (1, texta, "h") - 1) սխալ եք ստանում, քանի որ Mid () - ի սկզբնական մասը չի կարող = 0, քանի որ տողերը սկսվում են 1 -ից, այնպես որ դուք պետք է խուսափեք գործարկման ժամանակից սխալ. սա մի միջոց է ittexta = "abcdefg" եթե գործիք (1, texta, "h") 0 thentextc = mid (texta,str (1, texta, "h"), len (texta) --str (1, texta, "h") + 1) & mid (texta, 1, instr (1, texta, "h") - 1) else 'only one only statement per if situmsmsbox «Հնարավոր չէ գտնել տողի տողում նշանը»' ցույց է տալիս հաղորդագրությունների տուփ the stringend if Սա ամփոփում է այն ամենը, ինչ ձեզ հարկավոր է իմանալ տողերի մասին

Քայլ 2. Կերպարների փոխակերպում

HEX. Մեկը, որը ես գտա այս շաբաթվա սկզբին, կապված է Hex (թվի) ֆունկցիայի հետ, թվի երկարությունը նշանակություն չունի: այն վերադարձնում է տեքստը hexhex- ում (11111111) վերադարձնում է «A98AC7» - ը ՝ ascii նիշը վեցանկյուն փոխարկելու դեպքում: = "a" hex (asc (texta)) վերադարձնում է "61" texta = "k" hex (asc (texta)) վերադարձնում է "6B" տողը կլինի 2 նիշ ASCI- ի ԳՐԱՆՈOSTՆԵՐԻ ԳԵՐԱԱՆԻ համար, եթե դրանք 16 -ի արժեքի տակ չեն ապա այն վերադարձնում է միայն 1 բնույթ, եթե ցանկանում եք, որ դրանք բոլորը լինեն 2 նիշ, կանեիք հետևյալ կերպ. կապիտալ, եթե

Քայլ 3: Ֆայլի խմբագրում

Ֆայլը բացելու համար ձեզ հարկավոր է անվճար ֆայլ և ֆայլի անուն ֆայլ = FreeFile 'gfile- ն այժմ հասանելի է freefilec = "c: / test.txt", այնուհետև ֆայլ մուտքագրելու 4 եղանակ կա. Ելք - Դուք կարող եք գրել միայն, և այն կջնջի ֆայլը, եթե այն գոյություն ունի: փոխադրման վերադարձ և գծի լրացում վերջին նիշերին Ավելացնել - Դուք կարող եք գրել միայն: այն կավելացնի գոյություն ունեցող ֆայլին: փոխադրման վերադարձ և գծի վերջին հերոսներին Երկուական - Կարդալ և գրել: շատ ճշգրիտ: միակը, որն այժմ օգտագործում եմ: տեղեկամատյան ֆայլերի կառուցման և նման օգտագործման համար այն կավելացնի նոր մուտքը ֆայլի վերջում: ավելի բարդ տեղեկամատյանների ֆայլերի համար բեռնել ամբողջ ֆայլը փոփոխականի մեջ և ավելացնել նոր գրառումը սկզբին file.dim stro որպես տող 'սա անհրաժեշտ է, այլ կլինի errorgfile = FreeFilec = "c: / test.txt" բացեք երկուական ֆայլերի համար որպես #gfile' հիշեք, որ gfile- ը համարների թիվ = տարածք է (lof (gfile)) «Երկուական ֆայլը բացելիս պետք է ասես, թե որքան մեծ է տեքստի տևողությունը, որը ցանկանում ես վերցնել lof (gfile) կվերադարձնի gfile- ի երկարությունը, իսկ $ () տիեզերքը վերադարձնում է մուտքագրված թվի երկարությունը #gfile, 1, stro 'ստանալ ֆայլի համարից, սկսած բայթ, փոփոխական `այն պահելու համար: և բեռնում է միայն փոփոխականի երկարությունը որին հաջորդում է բնօրինակը textopen c- ի համար ՝ որպես #ffilekill cput #ffile, 1, stro 'տեղադրել նախորդ տեղեկատվությունը, եթե ֆայլը փոքրանում է, դուք պետք է նախ սպանեք այն, ինչը ջնջում է այն փակելով #filet Ես գտա դնելու գործառույթը, եթե այն սխալներ ունի, եթե փորձես տեղադրել այնպիսի բնույթ, ինչպիսին է #ֆայլ, 133, chr (1) 'սա բայթ 133 -ում փոխարինում է նիշ 1 -ով կամ վեցանկյուն 0x01- ով: Ես գտա, երբ դա արեցի մեկ ծրագրով I այն դարձրեց փաստացի ավելացված վեցանկյուն 0x08000100000001, որը սարսափելի խենթ է: Ես դա լուծեցի `ֆայլը փոփոխականի վրա բեռնելով և modsi = 133stro = mid (stro, 1, i - 1) & chr (1) & mid (stro, i + 1, len (stro) - i) լարով բեռնելը, այնուհետև տեղադրելով #ֆայլ, 1, ստրոտիսը հիանալի աշխատեց