14-05-15, 01:43 PM
السلام عليكم ورحمة الله وبركاته
اخواني لدي استفسار
عندي هذه البيانات
Afghanistan|Kabul,Herat
Algeria|Algiers,Ouled Djellal,Skikda,Annaba,Mascara,Oran
Andorra|Andorra La Vella,Escaldes
Angola|Sumbe,Luanda,Lubango,Luanda,Benguela
Antarctica|Molodesjnaja,McMurdo Station,Reading
Antigua and Barbuda|Falmouth,Saint Johns
نلاحظ ان اسم الدولة وبعدها "|" ثم اسماء المدن وبين كل اسم مدينة ومدينة يوجد ","
اريد عند الضغط على button يتم وضع اسم الدولة في textbox1.text واسم اي مدينة من المدن ويكون عشوائي الأختيار في textbox2.text
فمثلاً لو اختار دولة Algeria يختار اي مدينة من المدن Algiers,Ouled Djellal,Skikda,Annaba,Mascara,Oran ويضعها لي داخل textbox2.text
هذه محاولتي وصراحة توقفت عند اختيار اسم مدينة من المدن ويكون بشكل عشوائي
اخواني لدي استفسار
عندي هذه البيانات
Afghanistan|Kabul,Herat
Algeria|Algiers,Ouled Djellal,Skikda,Annaba,Mascara,Oran
Andorra|Andorra La Vella,Escaldes
Angola|Sumbe,Luanda,Lubango,Luanda,Benguela
Antarctica|Molodesjnaja,McMurdo Station,Reading
Antigua and Barbuda|Falmouth,Saint Johns
نلاحظ ان اسم الدولة وبعدها "|" ثم اسماء المدن وبين كل اسم مدينة ومدينة يوجد ","
اريد عند الضغط على button يتم وضع اسم الدولة في textbox1.text واسم اي مدينة من المدن ويكون عشوائي الأختيار في textbox2.text
فمثلاً لو اختار دولة Algeria يختار اي مدينة من المدن Algiers,Ouled Djellal,Skikda,Annaba,Mascara,Oran ويضعها لي داخل textbox2.text
هذه محاولتي وصراحة توقفت عند اختيار اسم مدينة من المدن ويكون بشكل عشوائي
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Country() As String = System.IO.File.ReadLines("cities.txt").ToArray
Dim Rand As New Random
Dim CountryIndex As Integer = Rand.Next(0, Country.Count - 1)
TextBox1.Text = Country(CountryIndex).Split("|")(0)
TextBox2.Text = Country(CountryIndex).Split(",")(1)
End Sub
اثنان لا يتعلمان المتكبر والخجول
اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً
اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً