هذا الامر يقراء اول محافظة فقط
كيف اجعله يقرا اسم المحافظة بناءا علي كود المحافظة
Dim file_name As String = Application.StartupPath & "\aaa.txt"
Dim stream_reader As New IO.StreamReader(file_name)
Dim line As String
Dim ReadResult() As String
line = stream_reader.ReadLine()
Do While Not (line Is Nothing)
line = line.Trim()
ReadResult = line.Split(",")
MsgBox(ReadResult(1))
Loop
محتوي الملف النصي هو
01,cairo
02,alex
24,minia
الأخ الفاضل عاطف
من أساسيات البرمجة أن يكتب المبرمج الكود بحيث يتلافي الأخطأء التي قد تنتج أثناء تنفيذ الكود
أيضا السرعة في تنفيذ الكود لها دور مهم في كفاءة البرنامج
بدل ما تضيع وقتك و وقت الأعضاء الكرام استخدم اي اسلوب يعجبك بشرط ان تتفادي الأخطاء
اجابة سؤالك ممكن تطبيقها بأساليب كثيرة كما تفضل الأخوة الأفاضل ....... عليك فقط أن تختار الأسهل لك
علي سبيل المثال لا الحصر اجابة سؤالك ممكن تطبيقها باستخدام Resource الخاصة بالمشروع أو تستخدم ملف جاهز أو تبني الملف بنفسك أو تبني كلاس يقوم بدور الدالة أو تستخدم دالة Shared تكون في موديول بحيث تستدعيها وقتما تريد
المهم السرعة في تنفيذ الكود و تفادي الأخطاء
الاخ سعود
كما سبق أن قلت لك مكتبة HtmlAgility اصبحت إدمان لديك
تقبل تحياتي
يا رجل انا ب أهزر معاك
وكيف أتضايق من أخ و عضو فاضل
جميعكم اخوة لكم مكانتكم و تقديركم و احترامكم
الاخ الفاضل
[b]silverlight[/b]
هل تعلم
اني ابذل اقصي ما في وسعي حتي احل مشكلتي
واحيانا افكر في حل جديد يجعلني اطرح سؤال جديد
بهدف المعرفة لي ولباقي الاخوة
وهذا ايضا يرفعكم عندنا جميعا درجات في العلم
وزادكم الله من فضله
فلا تبخلوا علينا وحتي ان تعبتم في تعليمنا بالافكار الجديدة
شكرا لكن ممكن سؤال في الطريقة التي وضعتها انا ما سبب قراءة اول سجل فقط
ما السبب ؟؟؟؟؟
والحمد لله نجح هذا الكود اضعه للاستفادة العامة
وشكرا لكل من ساعدني
Dim dictionary() As String = System.IO.File.ReadAllLines(Application.StartupPath & "\aaa111.txt")
For Each item In dictionary
If item.Contains(Microsoft.VisualBasic.Mid((TextBox1.Text), 8, 2)) Then
' TextBox9.Text = item.Split(","c)(1)
'End If
If item.Split(","c)(0) = Microsoft.VisualBasic.Mid((TextBox1.Text), 8, 2) Then
TextBox9.Text = item.Split(","c)(1)
End If
Next