VB6 програмчлал: Зөвлөгөө, аргачлал: 3 алхам

2025 Зохиолч: John Day | [email protected]. Хамгийн сүүлд өөрчлөгдсөн: 2025-01-23 15:00

Би чөлөөт цагаараа програм зохиодог, VB6 програмыг ашигладаг нэлээд чадварлаг програмист хүн. Энэ нь амархан бөгөөд надад хэрэгтэй зүйлээ хараахан олж чадаагүй байгаа ч гэсэн таны даалгаврыг биелүүлэхэд хэцүү байж магадгүй юм. Замдаа би маш олон ядаргаатай зүйлийг олсон нь ихэнхдээ зарим зүйлийг тоолох арга юм. Тиймээс би замдаа сурч мэдсэн зарим зүйлсийнхээ эмхтгэлийг энд оруулав. Хэрэв танд ямар нэгэн асуудал байвал сэтгэгдэл бичихийг уриалж байна, би илүү олон алхам хийхэд туслахыг хичээх болно.

Алхам 1: Мөр

VB -ийн мөрүүдтэй харьцах арга нь заримдаа төөрөгдөлд оруулдаг.texta = "abcdefg" тавих "тэмдэгтийг текстийн хоёр талд тэмдэглэхийг хүсч байна. Мид (String, Start, Length) нь текстийн хэсгийг стринг мөрүүдээс сонгодог. тэг эхлэх мөрүүд нь 1textb = mid (texta, 2, 2) -ээс эхэлдэг бөгөөд энэ нь textb = "bc" textb = mid (texta, 4, 4) хувьсагч болгодог. b = "defg" textb = mid (texta, 4), 5) энэ нь textb = "defg" гэсэн хувьсагчийг зөв болгодог бөгөөд хэрэв таны сонгох гэж буй текст урт бол таны програмын сүүлчийн тэмдэгт дээр дуусах боломжтой текст нь алдаа гаргахгүйн тулд хавх тавих хэрэгтэй болно. ийм занга юм: textb = дунд (текст, 4, 5) хэрэв len (textb) <5 бол 'Len () нь мөрийн уртыг буцааж өгдөг stringexit дэд 'Энэ нь таны оруулсан дэд хэсгээс гарна. кодыг дуусгана. Хэрэв та функцэд байгаа бол тэмдэгтүүдийн байрлалыг олох бол exit functionend -ийг тавих болно instr (Start, Stri) ng1, String2) texta = "abcdefg" textb = instr (1, texta, "c") 'энэ нь textatextb мөр дэх c үсгийг 3 -тай тэнцүү болохыг олж харна. "abcdefg" -ийг "defgabc" болгохыг хүсч байгаа нь ядаргаатай хүмүүс гэж хэлж болно texta = "abcdefg" textb = дунд (текст, 4, 4) ба дунд (текст, 1, 3) () функцууд нь та хөшигний тэмдэгт мөрийг дахин зохион байгуулахыг хүсч байгаа боловч энэ нь ижил цэг биш юм 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) 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) текстийг одоо тэнцүүлж байна 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) мөрүүд 1 -ээс эхэлж байгаа тул Mid () -ийн эхлэх хэсэг нь = 0 байж чадахгүй тул та алдаа гаргадаг тул та ажиллах хугацаанаас зайлсхийх хэрэгтэй. алдаа Энэ бол хийх нэг арга юм ittexta = "abcdefg" if 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) өөр Хэрэв энэ нь мөрүүдийн талаар мэдэх шаардлагатай бүх зүйлийг нэгтгэсэн болно

Алхам 2: Тэмдэгтүүдийг хөрвүүлэх

HEX: Энэ долоо хоногийн эхээр миний олж мэдсэн нэг зүйл бол Hex (number) функцтэй холбоотой юм. Дугаар дээрх урт нь хамаагүй. It hexhex дахь мөрийг буцаана (11111111) ascii тэмдэгтийг hexhex болгон хөрвүүлэхдээ dotexta болно. = "a" зургаан өнцөгт (asc (texta)) "61" текстийг буцаана Дараа нь та үүнийг бүгдийг нь 2 тэмдэгт болгохыг хүсч буй 1 тэмдэгтийг л буцааж өгнө. Capital oend хэрэв

Алхам 3: Файл засварлах

Файлыг нээхийн тулд танд үнэгүй файл хэрэгтэй бөгөөд filenamegfile = FreeFile 'gfile нь дараагийн бэлэн байгаа freefilec = "c: / test.txt" файлын файлыг нээх 4 арга байдаг - та зөвхөн унших боломжтой. Гаралт - Та зөвхөн бичих боломжтой бөгөөд хэрэв байгаа бол файлыг устгах болно. тэрэг буцах болон сүүлчийн тэмдэгт оруулах энэ нь одоо байгаа файлд нэмэгдэх болно. тэрэг буцах ба сүүлчийн тэмдэгт мөр оруулах Хоёртын - Унших ба бичих. маш нарийн. Би одоо ашиглаж байгаа цорын ганц зүйл бол бүртгэлийн файл үүсгэх, ийм төрлийн хэрэглээнд хавсрах нь файлын төгсгөлд шинэ оруулгыг нэмнэ. Илүү төвөгтэй бүртгэлийн файлуудын хувьд бүх файлыг хувьсагч руу ачаалж, шинэ оруулгыг эхэнд нь нэмнэ. file.dim stro нь 'энэ нь зайлшгүй шаардлагатай эсвэл алдаа байх болно gfile = FreeFilec = "c: / test.txt" хоёртын хувьд нээлттэй байх болно 'Хоёртын файлыг нээхдээ та авахыг хүсч буй текстийн урт нь lof (gfile) нь gfile -ийн уртыг буцааж өгөх болно. 1, stro 'файлын дугаараас эхлээд байт, хувьсагч руу аваачиж аваарай. мөн зөвхөн ggfilestro variableclose -ийн уртыг ачаалж байгаа нь test.txt файлтай тэнцүү байна. Та файлд мэдээлэл оруулах боломжтой byffile = FreeFilestro = "New line" & VbCrLf & stro '"New line", carraige return and linefeed дараа нь #ffilekill cput #ffile, 1, stro 'put гэсэн хоёртын хувьд анхны textopen c нь өмнөх мэдээллийг дарж бичдэг бөгөөд хэрэв файл нь жижиг болж байгаа бол та эхлээд файлыг устгах ёстой. Би 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) мөрийг хийж шийдсэн. #ffile, 1, стротис төгс ажилласан