VB6- এ প্রোগ্রামিং: টিপস অ্যান্ড ট্রিকস: Ste টি ধাপ

2025 লেখক: John Day | [email protected]. সর্বশেষ পরিবর্তিত: 2025-01-23 14:37

আমি আমার অবসর সময়ে প্রোগ্রাম করি, এবং VB6 ব্যবহার করে মোটামুটি দক্ষ প্রোগ্রামার। এটি সহজ এবং আমি এখনও এটির জন্য যা প্রয়োজন তা খুঁজে বের করতে পারি যা তা করতে পারে না, যদিও কখনও কখনও এটি আপনার কাজ সম্পাদন করতে জটিল হতে পারে। পথের মধ্যে আমি অনেক বিরক্তিকর জিনিস খুঁজে পেয়েছি বেশিরভাগ ক্ষেত্রে এটি নির্দিষ্ট জিনিসগুলিকে গণনা করে। তাই এখানে কিছু জিনিসের সংকলন যা আমি পথে শিখেছি। আমি আপনাকে অনুরোধ করছি যদি আপনার কোন সমস্যা থাকে তবে মন্তব্য করুন এবং আমি আরও পদক্ষেপ নিয়ে সাহায্য করার চেষ্টা করব।

ধাপ 1: স্ট্রিং

VB যেভাবে স্ট্রিং নিয়ে কাজ করে তা কখনও কখনও বিভ্রান্তিকর হয়। টেক্সটা = "abcdefg" put "চিহ্নগুলি পাঠ্যের উভয় পাশে আপনি একটি স্ট্রিং হিসাবে গণনা করতে চান মধ্যম (স্ট্রিং, শুরু, দৈর্ঘ্য) একটি স্ট্রিং স্ট্রিং থেকে পাঠ্যের একটি বিভাগ নির্বাচন করে সেখানে নেই শূন্য প্রারম্ভের স্ট্রিং 1textb = mid (texta, 2, 2) থেকে শুরু হয় এটি পরিবর্তনশীল textb = "bc" textb = mid (texta, 4, 4) করে তোলে যা পরিবর্তনশীল textb = "defg" textb = mid (texta, 4, 5) এটি ভেরিয়েবল টেক্সট তৈরি করে এমন একটি ফাঁদ: textb = মধ্য (texta, 4, 5) যদি len (textb) <5 তাহলে 'Len () একটি স্ট্রিং এর দৈর্ঘ্য ফিরিয়ে দেয় <মানে কম thenmsgbox "পাঠ্য খুব ছোট"' দিয়ে একটি বার্তা বাক্স দেখায় stringexit sub 'এই কোডটি শেষ করে আপনি যে সাব -এ আছেন তা থেকে বেরিয়ে আসে। ng1, String2) texta = "abcdefg" textb = instr (1, texta, "c") 'এটি অক্ষর c খুঁজে পায় স্ট্রিং textatextb এর সমান 3NOTE: Instr রিটার্ন 0 (শূন্য) যদি এটি অক্ষর খুঁজে না পায় একটি বিরক্তিকর বলুন আপনি "abcdefg" হতে চান "defgabc" texta = "abcdefg" textb = mid (texta, 4, 4) এবং mid (texta, 1, 3) এটা খুব খারাপ ছিল না কিন্তু এখন instr এ যোগ করা যাক () ফাংশন আপনি একটি পর্দা অক্ষরে একটি স্ট্রিং পুনর্গঠন করতে চান কিন্তু এটি একই স্পট নয় everytimetexta = "abcdefg" textb = "gfabdec" textc = mid (texta, instr (1, texta, "c"), len (texta) - instr (1, texta, "c") + 1) এবং মধ্য (texta, 1, instr (1, texta, "c") - 1) অংশ নোট করুন len (texta) - instr (1, texta, " c ") + 1 কারণ instr যে অক্ষরটি আপনি খুঁজছেন তা গণনা করে তাই আপনি একটি অক্ষর ফিরে যান তাই মধ্য () অক্ষরটি আপনি খুঁজছেন সেই চরিত্রটিকে প্রথম হিসাবে গ্রহণ করেন 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) এবং মধ্য (texta, 1, instr (1, texta, "h") - 1) আপনি একটি ত্রুটি পান কারণ মিড () এর শুরু অংশ = 0 হতে পারে না যেহেতু স্ট্রিং 1 এ শুরু হয় তাই আপনাকে রানটাইম এড়াতে হবে ত্রুটি. এটি ইটেক্সটা = "abcdefg" করার একটি উপায় যদি instr (1, texta, "h") 0 thentextc = mid (texta, instr (1, texta, "h"), len (texta) - instr (1, texta), "h") + 1) এবং মধ্য (texta, 1, instr (1, texta, "h") -1) স্ট্রিংএন্ড

ধাপ 2: অক্ষর রূপান্তর

হেক্স: আমি এই সপ্তাহের শুরুতে হেক্স (সংখ্যা) ফাংশনের সাথে যেটি পেয়েছি তার সাথে সংখ্যার দৈর্ঘ্য কোন ব্যাপার না। এটি হেক্সেক্সে একটি স্ট্রিং প্রদান করে (11111111) একটি এএসসিআই অক্ষরকে হেক্সে রূপান্তর করার সময় "A98AC7" প্রদান করে আপনি ডোটেক্সটা = "a" hex (asc (texta)) "61" texta = "k" hex (asc (texta)) "6B" প্রদান করে তারপর এটি শুধুমাত্র 1 টি অক্ষর ফেরত দেয় যদি আপনি তাদের সবাইকে 2 টি অক্ষর হতে চান যা আপনি করতে পারেন: মূলধন যদি

ধাপ 3: ফাইল সম্পাদনা

একটি ফাইল খুলতে আপনার একটি freefile প্রয়োজন এবং একটি filenamegfile = FreeFile 'gfile এখন পরবর্তী উপলব্ধ freefilec = "c: / test.txt" তারপর 4 টি উপায় আছে যা আপনি একটি ফাইল ইনপুট খুলতে পারেন - আপনি কেবল পড়তে পারেন। আউটপুট - আপনি কেবল লিখতে পারেন এবং এটি বিদ্যমান থাকলে ফাইলটি মুছে ফেলবে। ক্যারেজ রিটার্ন এবং লাইনফিড শেষ অক্ষর যোগ করুন - আপনি কেবল লিখতে পারেন। এটি বিদ্যমান ফাইলে যোগ করবে। ক্যারিজ রিটার্ন এবং লাইনফিড শেষ অক্ষর বাইনারি - পড়ুন এবং লিখুন। খুব সুনির্দিষ্ট। একমাত্র আমি এখন ব্যবহার করি লগ ফাইল তৈরির জন্য এবং এই ধরনের ব্যবহার সংযুক্ত করার জন্য এটি ফাইলের শেষে নতুন এন্ট্রি যুক্ত করবে। আরো জটিল লগ ফাইলের জন্য পুরো ফাইলটি একটি ভেরিয়েবলে লোড করুন এবং শুরুতে নতুন এন্ট্রি যোগ করুন file.dim স্ট্রং হিসাবে স্ট্রং 'এটি প্রয়োজনীয় অথবা একটি errorgfile = FreeFilec = "c: / test.txt" হবে c #বাইনারি হিসেবে #gfile' মনে রাখবেন gfile একটি numberstro = space $ (lof (gfile)) 'বাইনারির জন্য খোলার সময় আপনাকে বলতে হবে যে আপনি কত বড় টেক্সট নিতে চান তা হল lof (gfile) gfile এর দৈর্ঘ্য ফিরিয়ে দেবে এবং space $ () স্পেসের একটি স্ট্রিং ফিরিয়ে দেবে আপনি যে নম্বরটি লিখবেন #gfile, 1, স্ট্র 'ফাইল নম্বর থেকে পেতে, বাইট শুরু, পরিবর্তনশীল এটি সংরক্ষণ করতে। এবং শুধুমাত্র ভেরিয়েবলের ক্লোজ #gfilestro এর লোড এখন test.txt ফাইলের সমান। আপনি একটি ফাইলে তথ্য রাখতে পারেন byffile = FreeFilestro = "New line" এবং VbCrLf & stro '"নতুন লাইন" যোগ করে এবং carraige return এবং linefeed #ffilekill cput #ffile, 1, stro 'বাইনারি হিসাবে আসল টেক্সটোপেন c এর পরে আগের তথ্য ওভাররাইট করে রাখে যদি ফাইলটি ছোট হয়ে যায় তাহলে আপনাকে প্রথমে ফাইলটি মেরে ফেলতে হবে যা এটি মুছে ফেলে #filethe ফাইলটিতে এখন "নতুন লাইন" আছে আমি put ফাংশনের সাথে পেয়েছি যদি আপনি একটি অক্ষর likeput #ffile, 133, chr (1) রাখার চেষ্টা করেন তবে এটিতে ত্রুটি আছে এটি বাইট 133 এ অক্ষরকে 1 বা হেক্স 0x01 দিয়ে প্রতিস্থাপন করে যখন আমি একটি প্রোগ্রামের সাথে এটি করেছি এটি আসলে হেক্স 0x08000100000001 যোগ করেছে যা ভীতিকর। আমি একটি ভেরিয়েবলে ফাইল লোড করে এবং স্ট্রিং modsi = 133stro = mid (stro, 1, i - 1) & chr (1) & mid (stro, i + 1, len (stro) - i) করে এটি সমাধান করেছি #ফাইল, ১, স্ট্রথিস পুরোপুরি কাজ করেছে