منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - الرجاء تعديل علا المثال التالي لعرض ملف هيكس في ليست بوكس

الصفحات : 1 2

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

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

(22-08-18, 04:11 PM)wolf1120 كتب : [ -> ]عيدكم مبارك وكل عام وانتم بخير
لقد قمت برفع ملف جديد وارفقت داخله كود

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

نعم اخى لاحظت هذا من البداية

ولكن فى هذه المرة لم ترفق الملف المطلوب الاختبار عليه

لاتمام فتحه وعرضه فى ListBox حتى توضح لى الامر اكثر عن الملف وعن التعامل عليه

لان من الممكن ان افعل لك الكود يعمل على ملف text بما ان الفكرة اساسها لم تصل بعد

لكن فى النهاية الكود ليس هو المراد بما تريد فعله لذلك عندما توضح الفكرة المطلوبة مع ارفاق الملف

تحياتى لك

وتمنياتى لك التوفيق

الملف مع السورس اخي

ومعذرة لكم

(22-08-18, 07:19 PM)wolf1120 كتب : [ -> ]الملف مع السورس اخي

ومعذرة لكم

ولا يهمك اخى wolf1120

تذكر الملف المطلوب فتحه وتحريره ثم اعادة حفظه غير قابل للقراءة والكتابة

حيث انه يظهر المحتوى على شكل

PHP كود :

���������������������� 

يجب ان يكون الملف المطلوب تحريره قابل للتعديل وغير مشفر

على اى حال قمت بعمل السورس فى كلا الاحوال

فيمكنك فتح ملف المطلوب تحريره اى كان الاهم انه قابل للتحرير وغير مشفر

او انك تكون على علم نوع الملف المشفر وتضح كود فك التشفير فى هذا السطر

كود :

Dim oReader As New StreamReader(SelectOpenFile.FileName, True)

حيث ان مطلوب كود التضفير وليكن مثال ليصبح السطر بهذا الشكل

كود :

Dim oReader As New StreamReader(Code(SelectOpenFile.FileName), True)

ولا تنسي اعادة التشفير بالمثل عن الحفظ

يمكنك تحميل السورس + برنامج للمعينة

بعتد اتمام اضافة الاكواد اللازمة لعمل فتح وحفظ التعديلات للملف

لاحظت انك قمت بعمل التصميم السابق لاتمام عمل

تحرير تعدد الملفات عكس ما انا فعلت

كنت ساعمل لك على فتح تعدد الملفات فى اوان واحد وتحرير وحفظ الملفات

لكن حتى اقوم بذلك يجب ان يكون الملف المطلوب الاختبار عليه قابل للتحرير

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

ليقوم بفتح هذا الفورم بعدد مرات تحرير الملفات ولكل فورم يتم فتحه يتم اخذ نص الملف

وحيث انه يحتوى على زر الحفظ فقط لاتمام حفظ التعديل بعد التحرير واغلاق الفورم عند الانتهاء من الحفظ

اتمنى ان تكون الفكرة وصلك لك

تحياتى لك

وتمنياتى لك التوفيق

الملف المرفق بصيفة HEX ليس مشفر اخي الكريم

لماذا يضهر مربعات بدل حرف وارقام

(22-08-18, 09:22 PM)wolf1120 كتب : [ -> ]الملف المرفق بصيفة HEX ليس مشفر اخي الكريم

لماذا يضهر مربعات بدل حرف وارقام

اخى الحبيب انا لا اقول ان الملف Hex او لا

لكن لرئية نص الـ Hex يجب عليك اتاحة قراءة الملف اولاً

ارفق لك ملف بصيغة BIN جرب ان تقوم وضعه فى البرنامج

او تحريره من خلال Notepad وما غير ذلك

ولاحظ الفرق بين تحرير الملف المرسل هنا وبين الملف المرسل من قبلك

اتمنى ان تكون الصورة وضحت لفكرة كلمة تشفير الملف

قم بعمل التغيير التالى
فى السورس المرفق سابقاً قم بتغيير الاسطر التالية

كود :

           'RichTextBox1.Text = oReader.ReadToEnd

            'oReader.Close()

بهذا الكود

كود :

           Dim strData As String = oReader.ReadToEnd

            oReader.Close()

            Dim sbHex As New StringBuilder

            For Each c As Char In strData

                sbHex.Append(Hex(Asc(c)))

            Next

            RichTextBox1.Text = sbHex.ToString

وستجد ان الملف يعرض ما بداخل الملف بصيغة الـ Hex

تحياتى لك

وتمنياتى لك التوفيق

(22-08-18, 09:39 PM)elgokr كتب : [ -> ]
(22-08-18, 09:22 PM)wolf1120 كتب : [ -> ]الملف المرفق بصيفة HEX ليس مشفر اخي الكريم

لماذا يضهر مربعات بدل حرف وارقام

اخى الحبيب انا لا اقول ان الملف Hex او لا

لكن لرئية نص الـ Hex يجب عليك اتاحة قراءة الملف اولاً

ارفق لك ملف بصيغة BIN جرب ان تقوم وضعه فى البرنامج

او تحريره من خلال Notepad وما غير ذلك

ولاحظ الفرق بين تحرير الملف المرسل هنا وبين الملف المرسل من قبلك

اتمنى ان تكون الصورة وضحت لفكرة كلمة تشفير الملف

قم بعمل التغيير التالى
فى السورس المرفق سابقاً قم بتغيير الاسطر التالية

كود :

'RichTextBox1.Text = oReader.ReadToEnd 'oReader.Close()

بهذا الكود

كود :

Dim strData As String = oReader.ReadToEnd oReader.Close() Dim sbHex As New StringBuilder For Each c As Char In strData sbHex.Append(Hex(Asc(c))) Next RichTextBox1.Text = sbHex.ToString

وستجد ان الملف يعرض ما بداخل الملف بصيغة الـ Hex

تحياتى لك

وتمنياتى لك التوفيق

شكر لك علا الرد السريع

لكن انا اريد الملف المرفق يضهر عادي

وليس مشفر

المهم ارفقت لك صورة من ملف TEXT قمت برفعة علا البرنامج وهذه نتيجته

لكن ملف بين او هيكس يضهر مشفر المطلوب اريد ان يضهر كما في الصورة المرفقة وشكرا شكرا شكرا لك اخي الكريم

انظر الى البرنامج المرفق

وقم بعمل فتح الملف المرفق معه

ستوضح لك الامر اكثر

ولاحظ بين كلاً من نتائجقراءة الـ Hex فى البرنامج

المرفق وبين البرنامج لديك لفتح ملفات الـ Hex

لعل تلاحظ الفرق وتتاكد من ما اقوله

انك يجب عليك معرفة باى اسلوب تم حفظ به الملف

حتى تتمكن من جعل الكود قراءة الملف وعرض الحتوى بدون اى مشكلة

المرفق البرنامج فقط للاختبار

لاحظ النصوص لمحتوى على الملف ستجد انه عرض الـ Hex الخاص بها بدون اى مشكلة

لانه تمكن من قراءة الامحتوى الاخير من الملف لانه بدون تشويش / تشفير

تحياتى لك

وتمنياتى لك التوفيق

الصفحات : 1 2