المشاركات : 1,203
المواضيع 210
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 501 مرات في 295 مشاركات
السادة الافاضل
هناك محافظات وكل نخافظة لها كود
مثلا المنيا 24
اسيوط 26
القاهرة 02
وهكذا
بحيث
if textbox1.text-24 then
msgbox"المنيا"
end if
وهكذا باقي المحافظات
وهي كثيرة
ممكن عمل دالة بدل ما نستخدم جملة if بعدد امحافظات
شكرا
dim direc as string={}
lما عرفتش اكتب ايه في الاقواس
شكرا
المشاركات : 1,203
المواضيع 210
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 501 مرات في 295 مشاركات
يمكن استخدام دالة اواي طريقة غير تكرار if
المشاركات : 7,391
المواضيع 803
الإنتساب : Sep 2013
السمعة :
846
الشكر: 13249
تم شكره 18795 مرات في 4414 مشاركات
ملف قاعدة بيانات او ملف نصي بتركيبة بسيطة يفي بالغرض.
ان امكن الاخ تجهيز ملف نصي بالمحافظات و ارقامها ... الباقي سهل.
المشاركات : 1,203
المواضيع 210
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 501 مرات في 295 مشاركات
24-02-18, 02:42 AM
(آخر تعديل لهذه المشاركة : 24-02-18, 02:44 AM {2} بواسطة atefkhalf2004.)
شكرا لكل الاراء والزملاء وسوف اجرب علي الجهاز لاني رديت من الموبايل
مرة اخري شكرا
المشاركات : 1,203
المواضيع 210
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 501 مرات في 295 مشاركات
24-02-18, 01:12 PM
(آخر تعديل لهذه المشاركة : 24-02-18, 01:13 PM {2} بواسطة atefkhalf2004.)
سيدي هذا ليس طبعي ومن لم يشكرالناس لا بشكر الله. مرة اخري شكرا
بالنسبة للملف النصي. كيف اجعل الفيجوال بقراءالملف النصي. وخاصة سوف تبقي فكرة جيدة يستفيد منها الاخرين. اتمني الاجابة ووضع الملف النصي وطريقة القراءةمنه
المشاركات : 1,203
المواضيع 210
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 501 مرات في 295 مشاركات
السيد الفاضل
تم استخدام الدالة ولكن يوجد خطأ ولم اتوصل اليه
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,203
المواضيع 210
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 501 مرات في 295 مشاركات
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 الاسكندرية
شكرا