+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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
عملة دالة لاستخراج اسم المحافظة - atefkhalf2004 - 23-02-18
السادة الافاضل
هناك محافظات وكل نخافظة لها كود
مثلا المنيا 24
اسيوط 26
القاهرة 02
وهكذا
بحيث
if textbox1.text-24 then
msgbox"المنيا"
end if
وهكذا باقي المحافظات
وهي كثيرة
ممكن عمل دالة بدل ما نستخدم جملة if بعدد امحافظات
شكرا
dim direc as string={}
lما عرفتش اكتب ايه في الاقواس
شكرا
RE: عملة دالة لاستخراج اسم المحافظة - atefkhalf2004 - 24-02-18
يمكن استخدام دالة اواي طريقة غير تكرار if
RE: عملة دالة لاستخراج اسم المحافظة - silverlight - 24-02-18
عدد المحافظات غالبا لا يتعدي 35 محافظة
الأسهل تضعهم في دالة ثابتة مثل الدالة التالية
وتسترجع اسم المحافظة من الكود او العكس
عليك فقط ان تضيف بقية المحافظات الي الدالة
PHP كود :
Private Function TryGetGovernorateName(code As String) As String
Dim result As String = CType(Nothing, String)
If Not New Dictionary(Of String, String)() From {{"02", "Cairo"}, {"03", "Alexandria"}}.TryGetValue(code, result) Then
result = ""
End If
Return result
End Function
استخدام الدالة
مثلا لاسترجاع اسم محافظة القاهرة
PHP كود :
Dim s As String = TryGetGovernorateName("02")
RE: عملة دالة لاستخراج اسم المحافظة - عبد العزيز البسكري - 24-02-18
السّلام عليكم و رحمة الله و بركاته
أظن بكل الإحتمالات ..مصيرها المفضّل مثلما ذكر الأستاذ المحترم " KHODOR1985 "
تحياتي
RE: عملة دالة لاستخراج اسم المحافظة - سعود - 24-02-18
ملف قاعدة بيانات او ملف نصي بتركيبة بسيطة يفي بالغرض.
ان امكن الاخ تجهيز ملف نصي بالمحافظات و ارقامها ... الباقي سهل.
RE: عملة دالة لاستخراج اسم المحافظة - atefkhalf2004 - 24-02-18
شكرا لكل الاراء والزملاء وسوف اجرب علي الجهاز لاني رديت من الموبايل
مرة اخري شكرا
RE: عملة دالة لاستخراج اسم المحافظة - عبد العزيز البسكري - 24-02-18
(24-02-18, 02:34 AM)khodor1985 كتب : مش مشكلتي إذا نفذ من خلال قاعدة بيانات أو ملف نصي، مشكلتي إني طرحت فكرة بهدف المساعدة شكرا ما قلي.اللهم إذا لم يقرأ مشاركتي.
السّلام عليكم و رحمة الله و بركاته
يا أستاذ " KHODOR1985 " .. يا عزيز يا محترم
لو حسبت هذا الحساب .. صدّقني لن تدخل المنتدى أبدًا و تهجره للأبد
تساعد و لا يقدر جميلك
تسأل ولا يعير إهتمام سؤالك
تكتب و لا يرى كلامك
و لذلك تكون نيّة المساعدة خالصة لوجه الله تعالى و لا ينتظر الانسان جزاء و لا شكورا هذا من جهة و من جهة ثانية .. مساعدة الآخرين تعتبر بحد ذاتها تعلّم و تعزيز إمكانيات ..
ثمّ .. " ......... لأخيك سبعين عذرًا "
مجرّد دردشة أخي الكريم
وفّقنا الله و إيّاكم لما فيه خير للجميع
إحتراماتي
RE: عملة دالة لاستخراج اسم المحافظة - atefkhalf2004 - 24-02-18
سيدي هذا ليس طبعي ومن لم يشكرالناس لا بشكر الله. مرة اخري شكرا
بالنسبة للملف النصي. كيف اجعل الفيجوال بقراءالملف النصي. وخاصة سوف تبقي فكرة جيدة يستفيد منها الاخرين. اتمني الاجابة ووضع الملف النصي وطريقة القراءةمنه
RE: عملة دالة لاستخراج اسم المحافظة - atefkhalf2004 - 24-02-18
السيد الفاضل
تم استخدام الدالة ولكن يوجد خطأ ولم اتوصل اليه
Dim result As String = CType(Nothing, String)
If Not New Dictionary(Of String, String)() From {{"02", "Cairo"}, {"03", "Alexandria"}}.TryGetValue(code, result) Then
result = ""
End If
Return result
RE: عملة دالة لاستخراج اسم المحافظة - atefkhalf2004 - 24-02-18
شكرا للجميع
وللعلم وجدت هذه الدالة ونفعت وادت الغرض
واضعها للافادة
Dim x As New Dictionary(Of String, String)
x.Add("1", "one")
x.Add("2", "two")
x.Add("3", "three")
'MsgBox("Value of 2:" & x.Item("2"))
بالنسبة للقراءة من ملف نصي
Dim lines() As String = IO.File.ReadAllLines(Application.StartupPath & "\aaa.text")
Dim line As String
كيف اجعله يظهر اسم المحافظة بمعلومية الرقم
02 القاهرة
03 الاسكندرية
شكرا