كود :
:NameList.Items.add(inputbox("Name")
او
كود :
NameList.items.add(textbox1.text)
هو مش اسماء بالظبط هي اميلات ومكتوبه عندي في مستند نصي وعاوز اعمل برنامج يطلع اميلات عشوائي منهم لكن بشرط ان الملف النصي مش يكون مع البرنامج يعني البرنامج يكون لوحده بس
والله مش فاهم صديقي انا الي فهمتو من كلامك انك ترغب بمستند نصي ولا ترغب يعني هل ترغب بان يكون المستند بالبرنامج
السلام عليكم ورحمة الله وبركاته
قد يكون المقصود هو أن تختار الملف بنفسك من الجهاز عن طريق مستكشف الويندوز
هذا الكود يفتح لك مستكشف الويندوز لتختار الملف النصي ثم يستخرج منه اسم عشوائي ويضعه في مربع نص
كود :
Dim arrNames As Array = Nothing
Using open As New OpenFileDialog With {.Filter = "Text files|*.txt"}
If open.ShowDialog = vbOK Then
arrNames = IO.File.ReadAllLines(open.FileName)
Dim rand As New Random
Dim rndIndex As Integer = rand.Next(0, arrNames.Length)
Dim rndName As String = arrNames(rndIndex)
TextBox1.Text = rndName
End If
End Using
معليش والله ازعجتكم انا , الله يجعله في ميزان حسناتكم ان شاء الله
المقصود بالظبط هو ان انا عندي الاميلات كلها في مستند نصي مرتبه كل اميل في سطر تمام ؟
وعاوز اعمل البرنامج مربوط بالملف ده ويطلع منه عشوائي في Textbox لما اضغط على button تمام ؟
لحد هنا انا عملت كذا وظبط معايا لكن المشكله ان البرنامج علشان يشتغل ويطلع من المستند النصي لازم يكون المستند في نفس مسار البرنامج لو ماكان معاه بيطلع رساله الخطا انه ما لقى الملف كذا كذا
فانا بقى عاوز ان الملف يقدر يعمل عشوائي من المستند النصي لكن بدون ما يكون معاه في نفس المستند, يعني مثلا بدل ما اربطه بالمستند انسخ الكلام واحطه في موقع مثل Pastebin واربط الموقع بالبرنامج هذا مثال بس يعني لو في طريقه ثانيه عادي
اسف على الازعاج والتطويل جزاكم الله خير
السلام عليكم
اذا البرنامج يستخدم قاعدة بيانات ضع البينات في جدول
فهمت قصدك ارفع الاسماء ع موقع ويب و اعطيني الرابط عشان اكتبلك الكود
(28-01-18, 02:51 PM)sendbad100 كتب : [ -> ]السلام عليكم
اذا البرنامج يستخدم قاعدة بيانات ضع البينات في جدول
لا اخي مافي قاعده بيانات والكلام كثير مثل ما وضحت مقدرش اكتبه كله مستحيل اخلص
(28-01-18, 07:06 PM)Basil Abdallah كتب : [ -> ]فهمت قصدك ارفع الاسماء ع موقع ويب و اعطيني الرابط عشان اكتبلك الكود
ما اعرف هل قصدك الاسماء على موقع ولا المستند كامل فعملت الطريقتين وشوف انت
الاسماء على موقع Pastebin
https://pastebin.com/HznVgTPt
المستند النصي
https://up.top4top.net/downloadf-7583ax341-rar.html
السلام عليكم ورحمة الله وبركاته
إذا كانت الأسماء ثابته بامكانك وضع الملف النصي في الResource فتدخل ضمن ملف التشغيل للبرنامج ولن تحتاج لملف خارجي
السلام عليكم ورحمة الله وبركاته