المشاركات : 1,212
المواضيع 212
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 503 مرات في 297 مشاركات
السادة الافاضل
هناك محافظات وكل نخافظة لها كود
مثلا المنيا 24
اسيوط 26
القاهرة 02
وهكذا
بحيث
if textbox1.text-24 then
msgbox"المنيا"
end if
وهكذا باقي المحافظات
وهي كثيرة
ممكن عمل دالة بدل ما نستخدم جملة if بعدد امحافظات
شكرا
dim direc as string={}
lما عرفتش اكتب ايه في الاقواس
شكرا
المشاركات : 1,212
المواضيع 212
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 503 مرات في 297 مشاركات
يمكن استخدام دالة اواي طريقة غير تكرار if
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
ملف قاعدة بيانات او ملف نصي بتركيبة بسيطة يفي بالغرض.
ان امكن الاخ تجهيز ملف نصي بالمحافظات و ارقامها ... الباقي سهل.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
المشاركات : 1,212
المواضيع 212
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 503 مرات في 297 مشاركات
24-02-18, 02:42 AM
(آخر تعديل لهذه المشاركة : 24-02-18, 02:44 AM {2} بواسطة atefkhalf2004.)
شكرا لكل الاراء والزملاء وسوف اجرب علي الجهاز لاني رديت من الموبايل
مرة اخري شكرا
المشاركات : 1,212
المواضيع 212
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 503 مرات في 297 مشاركات
24-02-18, 01:12 PM
(آخر تعديل لهذه المشاركة : 24-02-18, 01:13 PM {2} بواسطة atefkhalf2004.)
سيدي هذا ليس طبعي ومن لم يشكرالناس لا بشكر الله. مرة اخري شكرا
بالنسبة للملف النصي. كيف اجعل الفيجوال بقراءالملف النصي. وخاصة سوف تبقي فكرة جيدة يستفيد منها الاخرين. اتمني الاجابة ووضع الملف النصي وطريقة القراءةمنه
المشاركات : 1,212
المواضيع 212
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 503 مرات في 297 مشاركات
السيد الفاضل
تم استخدام الدالة ولكن يوجد خطأ ولم اتوصل اليه
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
المشاركات : 1,212
المواضيع 212
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 503 مرات في 297 مشاركات
24-02-18, 03:59 PM
(آخر تعديل لهذه المشاركة : 24-02-18, 04:38 PM {2} بواسطة atefkhalf2004.)
شكرا للجميع
وللعلم وجدت هذه الدالة ونفعت وادت الغرض
واضعها للافادة
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 الاسكندرية
شكرا