المشاركات : 1,209
المواضيع 212
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 503 مرات في 297 مشاركات
هذا الامر يقراء اول محافظة فقط
كيف اجعله يقرا اسم المحافظة بناءا علي كود المحافظة
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
المشاركات : 1,486
المواضيع 101
الإنتساب : Sep 2012
السمعة :
127
الشكر: 71
تم شكره 6155 مرات في 1035 مشاركات
24-02-18, 06:09 PM
(آخر تعديل لهذه المشاركة : 24-02-18, 06:10 PM {2} بواسطة silverlight.)
الأخ الفاضل عاطف
من أساسيات البرمجة أن يكتب المبرمج الكود بحيث يتلافي الأخطأء التي قد تنتج أثناء تنفيذ الكود
أيضا السرعة في تنفيذ الكود لها دور مهم في كفاءة البرنامج
بدل ما تضيع وقتك و وقت الأعضاء الكرام استخدم اي اسلوب يعجبك بشرط ان تتفادي الأخطاء
اجابة سؤالك ممكن تطبيقها بأساليب كثيرة كما تفضل الأخوة الأفاضل ....... عليك فقط أن تختار الأسهل لك
علي سبيل المثال لا الحصر اجابة سؤالك ممكن تطبيقها باستخدام Resource الخاصة بالمشروع أو تستخدم ملف جاهز أو تبني الملف بنفسك أو تبني كلاس يقوم بدور الدالة أو تستخدم دالة Shared تكون في موديول بحيث تستدعيها وقتما تريد
المهم السرعة في تنفيذ الكود و تفادي الأخطاء
الاخ سعود
كما سبق أن قلت لك مكتبة HtmlAgility اصبحت إدمان لديك
تقبل تحياتي
Retired
المشاركات : 1,486
المواضيع 101
الإنتساب : Sep 2012
السمعة :
127
الشكر: 71
تم شكره 6155 مرات في 1035 مشاركات
يا رجل انا ب أهزر معاك
وكيف أتضايق من أخ و عضو فاضل
جميعكم اخوة لكم مكانتكم و تقديركم و احترامكم
Retired
المشاركات : 1,209
المواضيع 212
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 503 مرات في 297 مشاركات
والحمد لله نجح هذا الكود اضعه للاستفادة العامة
وشكرا لكل من ساعدني
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