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

مساعدة في القراءة من ملف

بدأه بهاء صلاح الدين في 22 نوفمبر 2008 · 5 رد · 596 مشاهدة · في Microsoft Visual C#.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه

كتبت هذا الكود الذي يجعل اللافتة تقرأ من ملف txt :

Dim fs As FileStream

fs = New FileStream("C:\\TextFile1.txt", FileMode.Open, FileAccess.Read)

Dim sr As StreamReader

sr = New StreamReader(fs)

While sr.Peek <> -1

Label3.Text = sr.ReadLine()

End While

sr.Close()

fs.Close()

المشكلة ان عن التشغيل اجد اللافتة خالية و ليس بها سوى نقطتين صغيرتين !!

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

#2

أخى بارك الله فيك هنا قسم C#.NET و ليس قسم الVB.NET

و الكود الذى كتبته كود VB

من المفروض أنه سوف يتم نقله من قبل المشرف إلى القسم المناسب

و لكن إلى حين ما يحدث هذا

أنت لست بحاجة إلى أن تعرف FileStream إستخدم مباشرة الStreamReader و أعطها مكان الملف و فقط

و أذكر أن هناك ReadToEnd من الممكن أن تستخدمها بدلا من أن تستخدم الPeek

لا إله إلا الله محمد رسول الله

アッラー以外に神はなし。ムハンマドはアッラーの使徒である

#3

هناك شيئ أخي

ممكن ان يكون آخر هذا الملف هو سطر فاضي

يعني مش مكتوب فيه أي حاجة

وانت لما بتكتب السطر ده

Label3.Text = sr.ReadLine()

بتخلي قيمة الـ Label هي قيمة السطر الفاضي يعني لا شيئ

#4

السلام عليكم

جرب:

		My.Computer.FileSystem.ReadAllText("c:\1.txt", System.Text.Encoding.Default)

قال صلى الله عليه وسلم: من قال إذا أصبح: رضيت بالله ربا وبالإسلام دينا وبمحمد نبيا فأنا الزعيم لآخذن بيده حتى أدخله الجنة. الصحيحة/2686

#5

hi,

you can try this code

if (open.ShowDialog() == DialogResult.OK)
			{
				string ndata = open.FileName;
				StreamReader sr = null;
				sr = new StreamReader(ndata);
				t1.Text = sr.ReadToEnd();
		   }

don't forget

using Systel.IO
#6

أخي الحبيب ه>ا منتدى C#.NET ....

جرب هذا الكود

Private Sub ReadFile()
		Dim sr As New StreamReader(filename, System.Text.Encoding.GetEncoding(1256))
		Dim srline As String = sr.ReadLine()
		While Not srline Is Nothing
			If Not srline Is Nothing Then If srline.Trim <> "" Then 
   srline = sr.ReadLine()
   t1.Text  = srline  
		End While
		sr.Close()
End Sub

سبحان الله وبحمده سبحان الله العظيم

لا تنسونا من صالح دعائكم ...

وفقكم الله وسدد خطاكم ...

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

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

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

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

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