[Basil Abdallah]

كود :

:NameList.Items.add(inputbox("Name")

او 

كود :

NameList.items.add(textbox1.text)

[Nete0]

هو مش اسماء بالظبط هي اميلات ومكتوبه عندي في مستند نصي وعاوز اعمل برنامج يطلع اميلات عشوائي منهم لكن بشرط ان الملف النصي مش يكون مع البرنامج يعني البرنامج يكون لوحده بس

[Basil Abdallah]

والله مش فاهم صديقي انا الي فهمتو من كلامك انك ترغب بمستند نصي ولا ترغب يعني هل ترغب بان يكون المستند بالبرنامج

[خالد]

السلام عليكم ورحمة الله وبركاته


قد يكون المقصود هو أن تختار الملف بنفسك من الجهاز عن طريق مستكشف الويندوز
هذا الكود يفتح لك مستكشف الويندوز لتختار الملف النصي ثم يستخرج منه اسم عشوائي ويضعه في مربع نص

كود :

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

السلام عليكم ورحمة الله وبركاته

[Nete0]

معليش والله ازعجتكم انا , الله يجعله في ميزان حسناتكم ان شاء الله 
المقصود بالظبط هو ان انا عندي الاميلات كلها في مستند نصي مرتبه كل اميل في سطر تمام ؟ 
وعاوز اعمل البرنامج مربوط بالملف ده ويطلع منه عشوائي في Textbox لما اضغط على button تمام ؟
لحد هنا انا عملت كذا وظبط معايا لكن المشكله ان البرنامج علشان يشتغل ويطلع من المستند النصي لازم يكون المستند في نفس مسار البرنامج لو ماكان معاه بيطلع رساله الخطا انه ما لقى الملف كذا كذا
فانا بقى عاوز ان الملف يقدر يعمل عشوائي من المستند النصي لكن بدون ما يكون معاه في نفس المستند, يعني مثلا بدل ما اربطه بالمستند انسخ الكلام واحطه في موقع مثل Pastebin واربط الموقع بالبرنامج هذا مثال بس يعني لو في طريقه ثانيه عادي
اسف على الازعاج والتطويل جزاكم الله خير

[sendbad100]

السلام عليكم
اذا البرنامج يستخدم قاعدة بيانات  ضع البينات في جدول

[Basil Abdallah]

فهمت قصدك ارفع الاسماء ع موقع ويب و اعطيني الرابط عشان اكتبلك الكود

[Nete0]

(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 فتدخل ضمن ملف التشغيل للبرنامج ولن تحتاج لملف خارجي


السلام عليكم ورحمة الله وبركاته

[Basil Abdallah]

إقتباس :الاسماء على موقع Pastebin 

https://pastebin.com/HznVgTPt

This page has been removed!