الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طلب تصحيح بسيط للكود المرفق (بحث عن كلمة و تحويل نص لــ binary)

بدأه نبولي في 23 أبريل 2012 · 4 رد · 653 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم اعزائي

طلب منا الاستاذ برنامجين

وقمت ببرمجتهما ولكني اواجه مشكلة بسيطة

1- البرنامج الاول ( مرفق بأسم FindWordOnText )

المطلوب فتح ملف TXT يحتوي على نص ومن خلال Textbox1 نقوم بكتابة كلمة معينة ونضغط على كوماند Find

اذا كانت الكلمة موجودة في txt تظهر نافذة فيها Found واذا كانت الكلمة غير موجودة يطلع not Found

انا برمجتها ولكن للأسف ماتطلع النتيجة صح .... ارجو تصحيح للكود ان امكن

2- البرنامج الثاني ( مرفق بأسم ToBi )

المطلوب مثل المطلوب اعلاه وهو جلب ملف txt وفتحه في البرنامج ويقوم البرنامج بتحول محتوى الـtxt الى Binary

يعني اذا كان ملف التكست يحتوي على رقم 4 فيجب ان يظهر في البرنامج 100

ايضا قمت ببرمجته ولكني عند تحويل رقم 4 يظهر لي 110100

ارجو التصحيح ايضا

مع خالص تحياتي وشكري لكم مقدما

FindWordOnText.zip

ToBin.zip

#2

معقولة يا شباب ؟؟؟

مافي ولا رد

#3

السلام عليكم اخ نبيل

عدلت البرنامح الاول بواسطة فجوال بيسك 2005

ارجو ان ينال رضاك

بالمناسبة توجد طرق كثيرة لهذا البرنامج وهذه واحدة منها

WindowsApplication1.rar

تم تعديل هذه المشاركة بواسطة mhd_alkafaf في 26 أبريل 2012 في 10:16

#4

اشكرك عزيزي الغالي على التصحيح

بأنتضار تصحيح البرنامج الثاني من قبل احد الاخوة او الاخوات

تحياتي

#5

حل المشكله الثانيه

المشكله انك بتبعت القيمه اللى موجود كبايت وليس السترينج اللى موجود فى الملف

جرب هذا الكود

        While Not sr.EndOfStream()

            Dim xx As String
            xx = Convert.ToString(Convert.ToChar(sr.Read))


            RichTextBox1.Text = bi(xx)

        End While

وغير Function bi(ByVal a As String)

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…