VB6 бағдарламалау: кеңестер мен амалдар: 3 қадам

2025 Автор: John Day | [email protected]. Соңғы өзгертілген: 2025-01-23 14:51

Мен бос уақытымда бағдарламалаймын және VB6 қолдана алатын өте білікті бағдарламашымын. Бұл оңай және мен әлі де қажет нәрсені таба алмадым, бірақ мүмкін емес, бірақ кейде сіздің тапсырмаңызды орындау қиын болуы мүмкін. Жол бойында мен көптеген тітіркендіргіш нәрселерді таптым, көбінесе олардың кейбір нәрселерді санауы. Міне, мен жол бойында білген кейбір нәрселердің жинағы. Егер сізде қандай да бір проблемалар болса, түсініктеме беруіңізді сұраймын, мен қосымша қадамдар жасауға көмектесуге тырысамын.

1 -қадам: Жолдар

VB -дің жолдармен жұмыс жасау тәсілі кейде шатастырады.texta = «abcdefg» қою «мәтіннің екі жағындағы таңбалар, сіз оларды stringMid (String, Start, Length) стринг жолдарынан мәтін бөлігін таңдайды. нөлдік бастау жолдары 1textb = ортасында басталады (мәтін, 2, 2) бұл айнымалы мәтінді жасайды b = «bc» textb = mid (texta, 4, 4) бұл айнымалы textb = «defg» textb = mid (texta, 4), 5) бұл textb = «defg» айнымалысын жасайды, егер сіз таңдағыңыз келетін мәтін сіздің бағдарламаңызға байланысты соңғы таңбада аяқталатын мәтіннен ұзағырақ болса, қателерді болдырмау үшін тұзақтарды қоюға тура келеді. мұндай тұзақ: textb = mid (texta, 4, 5), егер len (textb) <5 болса, онда 'Len () жолдың ұзындығын қайтарады stringexit sub 'Бұл сіз кіретін бөлімнен шығады, кодты аяқтайды. Егер сіз функцияда болсаңыз, онда біз string қолданатын string ішіндегі таңбаның орнын табатын болсақ, exitendend функциясын қояр едіңіз. ng1; «abcdefg» «defgabc» болғысы келетінін айтатын тітіркендіргіш texta = «abcdefg» textb = mid (texta, 4, 4) & mid (texta, 1, 3) () функциялар, сіз перденің таңбасындағы жолды қайта ұйымдастырғыңыз келеді, бірақ ол бір нүкте емес, әр жерде бір рет емес) - instr (1, texta, «c») + 1) & mid (texta, 1, instr (1, texta, «c») - 1) len (texta) - instr (1, texta, «бөлігін ескеріңіз) c «) + 1, себебі instr сіз іздеген таңбаны есептейді, сондықтан сіз бір таңбаны қайтарасыз, сондықтан mid () сіз іздеген таңбаны stringtextc ішіндегі бірінші ретінде қабылдайды, енді» cdefgab «textd = mid (textb, instr (1, textb, «c»), len (textb) - instr (1, textb, «c») + 1) & mid (textb, 1, instr (1, textb, «c») - 1) textd енді тең ls «cgfabde» stringtexta = «abcdefg» textc = mid (texta, instr (1, texta, «h»), len (texta) - instr (1, texta, «h») жолында жоқ таңбаны табуға тырысады.) + 1) & mid (texta, 1, instr (1, texta, «h») - 1) сіз қате аласыз, себебі Mid () -тің бастапқы бөлігі = 0 болмайды, себебі жолдар 1 -ден басталады, сондықтан сіз жұмыс уақытын болдырмауыңыз керек. қате бұл ittexta = «abcdefg» орындаудың бір әдісі, егер 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 '«string ішіндегі таңбаны табу мүмкін емес» statusmsgbox болса, хабарлама терезесін көрсететін егер бұл жолдар туралы білу қажет барлық нәрсені жинақтайды

2 -қадам: таңбаларды түрлендіру

HEX: Мен осы аптаның басында табылған Hex (сан) функциясымен байланысты болды, санның ұзындығы маңызды емес. Hexhex ішіндегі жолды қайтарады (11111111) ascii таңбасын он алтылыққа айналдырған кезде «A98AC7» қайтарады. = «a» hex (asc (texta)) «61» қайтарады texta = «k» hex (asc (texta)) «6B» қайтарады, жол ASCI таңбаларының көпшілігі үшін 2 таңбадан тұрады, егер мәні 16 -дан аспаса онда ол тек 2 таңба болғанын қалайтын 1 таңбаны қайтарады, егер сіз келесідей әрекет етсеңіз: textb = hex (asc (texta)) if len (textb) = 1 thentextb = «0» және textb 'бұл нөл емес a капитал oend, егер

3 -қадам: файлдарды өңдеу

файлды ашу үшін сізге бос файл қажет және filenamegfile = FreeFile 'gfile енді келесі қол жетімді freefilec = «c: / test.txt» файлын ашудың 4 әдісі бар - сіз тек оқи аласыз. Шығару - Сіз тек жаза аласыз және ол бар болған жағдайда файлды өшіреді. вагонның қайтып келуі және соңғы таңбалардың қосылуы - Қосу - Сіз тек жаза аласыз. ол бұрыннан бар файлға қосылады. вагонның қайтып келуі және жолдың соңғы таңбалары Екілік - Оқу және жазу. өте дәл. мен қазір қолданатын жалғыз нәрсе - журнал файлдарын құру үшін және мұндай қолдану қосымшаны қосады, ол файлдың соңына жаңа жазуды қосады, ал күрделі журнал файлдары үшін бүкіл файлды айнымалыға жүктейді және жаңа жазбаны басына қосады. file.dim stro жол ретінде 'бұл қажет немесе қате болады 'екілік файлды ашқанда, сіз қабылдағыңыз келетін мәтіннің ұзындығы lof (gfile) gfile ұзындығын қайтарады және $ () бос орындар санын қайтарады, сіз енгізген санның ұзындығын береді #gfile, 1, stro 'файл нөмірінен бастап, байтты, айнымалы мәнді сақтайды. және жүктелетін варианттың ұзындығы #gfilestro енді test.txt файлына тең болады, сіз ақпаратты файлға қоюға болады byffile = FreeFilestro = «New line» & VbCrLf & stro '«New line» және carraige return and linefeed қосады содан кейін #ffilekill cput #ffile, 1, stro 'put сияқты екілік үшін түпнұсқа мәтін ашылады, егер файл кішірейсе, алдымен файлды өлтіру керек, ол файлды өшіреді, енді файлда «Жаңа жол» бар Мен put функциясының көмегімен таптым, егер сіз #ffile, 133, chr (1) сияқты символды қоюға тырыссаңыз, онда қателер бар, бұл 133 байтындағы таңбаны 1 таңбамен алмастырады немесе 0x01 гексі мен мұны бір бағдарламамен жасаған кезде таптым. ол шын мәнінде таңқаларлық емес 0x08000100000001 алтыбұрышын қосты. Мен мұны файлды айнымалыға жүктеу және modsi = 133stro = mid (stro, 1, i - 1) & chr (1) & mid (stro, i + 1, len (stro) - i) жолын орындау арқылы шештім. #файл, 1, стротис тамаша жұмыс істеді