الأخوة الكرام
أرجو مساعدتى فى القراءة من الملف المرفق
حيث أنى قمت بإنشاء نموذج يحتوى على مربع نص وزر وعند الضغط على الزر يقوم بالقراءة من الملف وعرض محتوياته فى مربع النص وعند التنفيذ لم يتم عرض محتويات الملف فى مربع النص
حاولت إستخدام أكثر من طريقة للقراءة من الملف المرفق ولم أنجح فى ذلك
لذا أرجو منكم التكرم بمساعدتى فى كيفية القراءة من هذا الملف
ملحوظة :- أرجو عدم تغير أى بيانات فى الملف المرفق قبل القراءة
تقبلوا تحياتى
أنا حاولت أنزل الملف المرفق لكن مافتح معي
ولا اعرف انت ايش ارفقت لكن يمكن تكون مشكلت هي
لو انشأت ملف نصي وكتبت باللغة العربية وحاولت من خلال الفيجول بيسك قرأتة راح تلقى مربع النص فارغ
والحل ان من خلاص الفيجول بيسك في مربع النص أكتب الكلام بالعربي وعمل لة حفظ كالملف نصي والأن لمى
تستدعي لملف راح تلاقي نص موجود؟
(h)
معلش سامحني أنا منزلتش الملف لأن الفيجوال غير متاح لي علي الجهاز الآن , لكن أتوقع ان سبب مشكلتك هو الـ Encoding اجعله Default , وان شاءالله المشكله تتحل ,,,
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
لم اتمكن من فتح الملف لعدم توفر برنامج الضغط ( وينرار ) الذي ضغطت فيه ملفك لهذا من حديثك استنتج ان لديك ملف تريد فقط عرض محتوياته في مربع نص ! ... اذا كان هذا صحيحا و لنتخيل ان ملفك موجود في الداريف C بإسم yourfile.txt فيمكن استخدام كود مشابه :
Dim File As New System.IO.StreamReader("C:\yourfile.txt")
TextBox1.Text = File.ReadToEnd
File.Close()هذا اذا كانت مشكلتك هي عدم ظهور النص مطلقا في مربع النص اما اذا كان يتم فتحه و لكن بترميز خاطىء(وقد يسبب سوء الترميز الى عدم ظهور النص) فيمكنك الاعتناء بمسئلة الـ Encoding كما وضح الاخ حازم جزاه الله خيرا ... و كمثال بسيط جرب شيئا مثل :
Dim File As New System.IO.FileStream("C:\yourfile.txt", IO.FileMode.Open)
Dim Data(File.Length) As Byte
File.Read(Data, 0, Data.Length)
TextBox1.Text = System.Text.Encoding.Default.GetString(Data)
File.Close()افاد الله بكم المسلمين
السلام عليكم و رحمة الله و بركاته
مواضيع برمجية تقنية جديدة
----------------------------------------------------------------------------------------------------------------------------------------------
• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج للبحث في الملفات ومحتواياتها (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
مواضيع برمجية تقنية قديمة
----------------------------------------------------------------------------------------------------------------------------------------------
• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NETVB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
اخي رغيد جزيت خير ووفقك الله وودنا تسعدنا دائماً بطلتك البهيه
اسعد الله اوقاتك اخي المتعلم و ملئها بما يحب و يرضى
مواضيع برمجية تقنية جديدة
----------------------------------------------------------------------------------------------------------------------------------------------
• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج للبحث في الملفات ومحتواياتها (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
مواضيع برمجية تقنية قديمة
----------------------------------------------------------------------------------------------------------------------------------------------
• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NETVB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
جزاكم الله إخوتى الكرام
وأشكرك أستاذى / رغيد الطيب
ولكنى أستخدمت الطريقتين من قبل ولم أفلح ولقد أرفقت الملف بالامتداد zip لكى تتمكن من فتحه إن شاء الله
وسوف ألخص لكم ما أريد
هذا الملف قمت بإحضاره من العمل حيث أنه موجود على جهاز كمبيوتر هذا الجهاز متصل بشبكة يتم إرسال رسائل لهذا الكمبيوتر من السيرفر
يوجد برنامج يقوم بتخزين هذه الملفات بالامتداد table كل رسالة حسب تاريخ إرسالها ومن ثم يتم عرضها وهذا البرنامج نعمل عليه من أكثر من ست سنين
نزلت نسخ أحدث من هذا البرنامج بها وظائف عدة على سبيل المثال تقوم بفلترة الرسائل وغيرها
وللإسف لان إدارتنا مهملة من السادة المسئولين فلن يقوموا بتزويدنا بهذه البرامج
لذا فكرت فى أن أقوم بتقليد هذه البرامج لكى تخدمنى فى العمل
************************************
الغريب أخى الكريم أنى إذا قمت بفتح الملف ببرنامج ال notepad وقمت بتعديل بسيط جدا فى البيانات ثم حفظت التغيرات ثم إستخدمت الكود الأول الذى ذكرته فقام بالقراءة من الملف وعرض محتوياته فى مربع النص
الطريقة الأخرى هى إستخدام richTextBox وذلك بكتابة
Me.RichTextBox1.LoadFile(pathOfFile, RichTextBoxStreamType.PlainText
فيتم عرض جميع محتويات الملف فيها ولكن بعد فترة تقريبا 35 ثانية وعندما أقوم بإرجاع أى سلسلة نصية يتم دائما إرجاع سلسلة فارغة
الطريقة الأولى مرفوضة
الطريقة الثانية كيف لى أن أرجع سلسلة نصية
الطريقة الثالثة التى حاولت معها هى إستخدام BinaryReader
Dim binReader As New BinaryReader( _
File.Open("C:\Documents and Settings\Dr Ahmed\My Documents\messages.table", FileMode.Open))
binReader.BaseStream.Position = StartMessage
Me.txtRead.Text = Me.txtRead.Text & "=====" & n & "=====" & binReader.ReadChars(SizeMessage)
binReader.Close()ولقد نجحت هذه الطريقة فى القراءة لكن المشكلة إذا كانت هناك رسائل مشوهة فإنه يقرأ حتى هذه الرسالة ومن بعدها لا يتم القراءة
فهل من الممكن مساعدتى
وسوف أحاول إستخدام BinaryReader مع Encoding لمحاولة القراءة بعد الرسالة المشوهة
أرجو أن يتسع صدركم لى
تقبلوا تحياتى
أرجو مساعدتى وجزاكم الله خيرا
هذا الموضوع مغلق.