+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عملة دالة لاستخراج اسم المحافظة (/showthread.php?tid=23964)
الصفحات:
1
2
RE: عملة دالة لاستخراج اسم المحافظة - atefkhalf2004 - 24-02-18
هذا الامر يقراء اول محافظة فقط
كيف اجعله يقرا اسم المحافظة بناءا علي كود المحافظة
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
RE: عملة دالة لاستخراج اسم المحافظة - silverlight - 24-02-18
الأخ الفاضل عاطف
من أساسيات البرمجة أن يكتب المبرمج الكود بحيث يتلافي الأخطأء التي قد تنتج أثناء تنفيذ الكود
أيضا السرعة في تنفيذ الكود لها دور مهم في كفاءة البرنامج
بدل ما تضيع وقتك و وقت الأعضاء الكرام استخدم اي اسلوب يعجبك بشرط ان تتفادي الأخطاء
اجابة سؤالك ممكن تطبيقها بأساليب كثيرة كما تفضل الأخوة الأفاضل ....... عليك فقط أن تختار الأسهل لك
علي سبيل المثال لا الحصر اجابة سؤالك ممكن تطبيقها باستخدام Resource الخاصة بالمشروع أو تستخدم ملف جاهز أو تبني الملف بنفسك أو تبني كلاس يقوم بدور الدالة أو تستخدم دالة Shared تكون في موديول بحيث تستدعيها وقتما تريد
المهم السرعة في تنفيذ الكود و تفادي الأخطاء
الاخ سعود
كما سبق أن قلت لك مكتبة HtmlAgility اصبحت إدمان لديك
تقبل تحياتي
RE: عملة دالة لاستخراج اسم المحافظة - silverlight - 24-02-18
يا رجل انا ب أهزر معاك
وكيف أتضايق من أخ و عضو فاضل
جميعكم اخوة لكم مكانتكم و تقديركم و احترامكم
RE: عملة دالة لاستخراج اسم المحافظة - atefkhalf2004 - 24-02-18
الاخ الفاضل [b]silverlight[/b]
هل تعلم
اني ابذل اقصي ما في وسعي حتي احل مشكلتي
واحيانا افكر في حل جديد يجعلني اطرح سؤال جديد
بهدف المعرفة لي ولباقي الاخوة
وهذا ايضا يرفعكم عندنا جميعا درجات في العلم
وزادكم الله من فضله
فلا تبخلوا علينا وحتي ان تعبتم في تعليمنا بالافكار الجديدة
شكرا لكن ممكن سؤال في الطريقة التي وضعتها انا ما سبب قراءة اول سجل فقط
ما السبب ؟؟؟؟؟
RE: عملة دالة لاستخراج اسم المحافظة - atefkhalf2004 - 24-02-18
والحمد لله نجح هذا الكود اضعه للاستفادة العامة
وشكرا لكل من ساعدني
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