تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عملة دالة لاستخراج اسم المحافظة
#11
هذا  الامر  يقراء  اول محافظة فقط
كيف اجعله يقرا   اسم المحافظة بناءا علي كود المحافظة
  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
الرد
تم الشكر بواسطة:
#12
الأخ الفاضل عاطف
من أساسيات البرمجة أن يكتب المبرمج الكود بحيث يتلافي الأخطأء التي قد تنتج أثناء تنفيذ الكود
أيضا السرعة في تنفيذ الكود لها دور مهم في كفاءة البرنامج
بدل ما تضيع وقتك و وقت الأعضاء الكرام استخدم اي اسلوب يعجبك بشرط ان تتفادي الأخطاء

اجابة سؤالك ممكن تطبيقها بأساليب كثيرة كما تفضل الأخوة الأفاضل ....... عليك فقط أن تختار الأسهل لك
علي سبيل المثال لا الحصر اجابة سؤالك ممكن تطبيقها باستخدام Resource الخاصة بالمشروع أو تستخدم ملف جاهز أو تبني الملف بنفسك أو تبني كلاس يقوم بدور الدالة أو تستخدم دالة Shared تكون في موديول بحيث تستدعيها وقتما تريد
المهم السرعة في تنفيذ الكود و تفادي الأخطاء



الاخ سعود
كما سبق أن قلت لك مكتبة HtmlAgility اصبحت إدمان لديك
تقبل تحياتي
Retired
الرد
تم الشكر بواسطة:
#13
يا رجل انا ب أهزر معاك 
وكيف أتضايق من أخ و عضو فاضل
جميعكم اخوة لكم مكانتكم و تقديركم و احترامكم
Retired
الرد
تم الشكر بواسطة: محمد اسماعيل , محمد اسماعيل
#14
الاخ الفاضل  [b]silverlight[/b]
هل تعلم
اني ابذل اقصي ما في وسعي  حتي احل مشكلتي
واحيانا افكر في حل جديد يجعلني  اطرح سؤال جديد
بهدف المعرفة لي ولباقي  الاخوة
وهذا ايضا يرفعكم عندنا جميعا درجات في العلم
وزادكم الله من فضله
فلا تبخلوا علينا وحتي ان تعبتم  في تعليمنا بالافكار الجديدة

شكرا لكن ممكن سؤال في الطريقة التي وضعتها انا  ما سبب قراءة اول سجل فقط
ما السبب ؟؟؟؟؟
الرد
تم الشكر بواسطة:
#15
والحمد لله  نجح هذا الكود  اضعه للاستفادة العامة
وشكرا لكل من ساعدني

  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
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم