[wolf1120]

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

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

[elgokr]

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

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

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

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

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

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

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

تحياتى لك

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

[wolf1120]

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

ومعذرة لكم  

[elgokr]

(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)

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

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

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

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

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

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

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

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

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

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

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

تحياتى لك

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

[wolf1120]

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

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

[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

تحياتى لك

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

[wolf1120]

(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 قمت برفعة علا البرنامج وهذه نتيجته 

















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

[elgokr]

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

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

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

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

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

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

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

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

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

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

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

تحياتى لك

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