البرمجة في VB6: نصائح وحيل: 3 خطوات

2024 مؤلف: John Day | [email protected]. آخر تعديل: 2024-01-30 07:42

أنا أبرمج في أوقات فراغي ، وأنا مبرمج ماهر إلى حد ما باستخدام VB6. إنه سهل ولا يزال عليّ أن أجد أي شيء أحتاجه لإنجازه ولا يمكن تحقيقه ، على الرغم من أنه في بعض الأحيان قد يكون من الصعب إنجاز مهمتك. على طول الطريق وجدت الكثير من الأشياء المزعجة في الغالب بالطريقة التي تحسب بها أشياء معينة. إذاً ها هنا تجميع لبعض الأشياء التي تعلمتها على طول الطريق. أحثك إذا كان لديك أي مشاكل في التعليق وسأحاول مساعدتك في المزيد من الخطوات.

الخطوة 1: الأوتار

الطريقة التي يتعامل بها VB مع السلاسل مربكة أحيانًا. تبدأ سلاسل البداية الصفرية من 1textb = mid (texta، 2، 2) وهذا يجعل المتغير textb = "bc" textb = mid (texta، 4، 4) وهذا يجعل المتغير textb = "defg" textb = mid (texta، 4 ، 5) هذا يجعل المتغير textb = "defg" صحيحًا إذا كان النص الذي تحاول تحديده أطول ، ثم النص المتاح الذي ينتهي عند الحرف الأخير اعتمادًا على برنامجك ، سيتعين عليك وضع التراكبات لتجنب الأخطاء. يعتبر هذا فخًا: textb = mid (texta، 4، 5) إذا كان len (textb) <5 فإن 'Len () يعرض طول سلسلة ، فإن <يعني أقل من msgbox "النص قصير جدًا" "يعرض مربع رسالة به سلسلة stringexit sub 'هذا يخرج من الجزء الفرعي الذي أنت فيه. إنهاء الكود. إذا كنت في وظيفة ، فحينئذٍ ستضع وظيفة الخروج إذا تم العثور على مكان الحرف في سلسلة نستخدم instr (Start ، Stri ng1، String2) texta = "abcdefg" textb = instr (1، texta، "c") 'هذا يجد الحرف c في سلسلة textatextb الآن يساوي 3 ملاحظة: يُرجع Instr 0 (صفر) إذا لم يعثر على الحرف REORGANIZING: هذا هو يوم مزعج تريد "abcdefg" أن يكون "defgabc" texta = "abcdefg" textb = mid (texta، 4، 4) & mid (texta، 1، 3) لم يكن ذلك سيئًا للغاية ولكن الآن دعنا نضيف في instr () وظائف قد ترغب في إعادة تنظيم سلسلة بحرف ستارة ولكنها ليست نفس المكان في كل مرة = "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 () الحرف الذي تبحث عنه كأول حرف في السلسلة النصية يساوي الآن" cdefgab "textd = mid (textb، instr (1، textb، "c")، len (textb) - instr (1، textb، "c") + 1) & mid (textb، 1، instr (1، textb، "c") - 1) textd الآن equa ls "cgfabde" لنحاول العثور على حرف غير موجود في السلسلة النصية texta = "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) آخر عبارة واحدة فقط لكل ما إذا كان statusmsgbox "لا يمكن العثور على حرف في السلسلة" "يعرض مربع رسالة به السلسلة النصية ifThis تلخص إلى حد كبير كل ما تحتاج لمعرفته حول السلاسل

الخطوة 2: تحويل الأحرف

HEX: واحد وجدته في وقت سابق من هذا الأسبوع له علاقة بوظيفة Hex (رقم) ، لا يهم الطول الموجود على الرقم. تُرجع سلسلة في hexhex (11111111) تُرجع "A98AC7" عند تحويل حرف أسكي إلى ست عشري ، يمكنك dotexta = "a" hex (asc (texta)) تُرجع "61" texta = "k" hex (asc (texta)) تُرجع "6B" ، وستتكون السلسلة من حرفين لمعظم أحرف ASCI ما لم تكن أقل من قيمة 16 ثم تقوم بإرجاع حرف واحد فقط إذا كنت تريد أن تكون جميعها حرفين ، فستفعل على النحو التالي: textb = hex (asc (texta)) إذا كان len (textb) = 1 thentextb = "0" و textb 'هذا هو صفر وليس a oend رأس المال إذا

الخطوة 3: تحرير الملف

لفتح ملف ، تحتاج إلى ملف مجاني وملف filenamegfile = FreeFile 'gfile هو الآن الملف المجاني التالي المتاح = "c: / test.txt" ثم هناك 4 طرق يمكنك من خلالها فتح إدخال ملف - يمكنك القراءة فقط. الإخراج - يمكنك الكتابة فقط وسيتم مسح الملف إذا كان موجودًا. إرجاع السطر وإدخال الأحرف الأخيرة على السطر ملحق - يمكنك فقط الكتابة. سيضيف إلى الملف الحالي. حرف إرجاع وتغذية الأحرف الأخيرة ثنائي - قراءة وكتابة. دقيقة جدا. الملف الوحيد الذي أستخدمه الآن. لإنشاء ملفات السجل وإلحاق هذا الاستخدام ، سيضيف الإدخال الجديد إلى نهاية الملف. بالنسبة لملفات السجل الأكثر تعقيدًا ، قم بتحميل الملف بأكمله في متغير وإضافة الإدخال الجديد إلى بداية يعد الملف file.dim stro كسلسلة 'هذا ضروريًا أو سيكون هناك خطأ gfile = FreeFilec = "c: / test.txt" افتح c للثنائي مثل #gfile' تذكر أن gfile هو numberstro = space $ (lof (gfile)) عند الفتح للثنائي ، عليك معرفة حجم طول النص الذي تريد أن تأخذه هو lof (gfile) سيعيد طول gfile وتعيد المسافة $ () سلسلة من المسافات بطول الرقم الذي تدخله #gfile ، 1 ، stro 'الحصول على رقم الملف ، بداية البايت ، متغير لحفظه. وتحميل فقط طول المتغير إغلاق #gfilestro الآن يساوي ملف test.txt. يمكنك وضع معلومات في ملف بواسطةffile = FreeFilestro = "New line" & VbCrLf & stro 'يضيف "سطر جديد" وعلامة إرجاع وتغذية سطر متبوعًا بالنص الأصلي c للثنائي حيث #ffilekill cput #ffile، 1، stro 'يستبدل المعلومات السابقة إذا كان الملف يصغر ، يجب أن تقتل الملف أولاً مما يحذفه ، أغلق الملف #ffilethe الآن "سطر جديد" في شيء واحد لقد وجدت مع وظيفة وضع أنه يحتوي على أخطاء إذا حاولت وضع حرف مثل #ffile، 133، chr (1) 'هذا يستبدل الحرف في بايت 133 بالحرف 1 أو hex 0x01 لقد وجدت عندما فعلت ذلك ببرنامج واحد I جعلها بالفعل أضاف عرافة 0x08000100000001 وهو أمر غريب. لقد قمت بحل هذا عن طريق تحميل الملف إلى متغير وتنفيذ سلسلة modsi = 133stro = mid (stro، 1، i - 1) & chr (1) & mid (stro، i + 1، len (stro) - i) ثم ضع #ffile ، 1 ، strothis عملت بشكل مثالي