[VB.NET] فلترة ايميلات/filter id - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : [VB.NET] فلترة ايميلات/filter id (/showthread.php?tid=18677) |
فلترة ايميلات/filter id - 3asfa~mdmra - 03-01-17 السلام عليكم
اود ان اطرح عليكم فكرة خطرت لي وكل الامكانيات متوفرة
في جهازي ولكن اعجز عن التطبيق
سوف اوضح الفكرة والرجاء اعطائي الكود المناسب
للهذه الفكرة وهي كالتالي :
كود : احمد من Textbox1 الي textbox2
ويعطي نتيجة ترتيب الاسماء
ع حسب الحروف الابجدية
ملاحظة : اريد الاكواد انت تدعم الايميلات العربية
والانجليزية لتصبح هكذا
كود : احمد RE: فلترة ايميلات/filter id - silverlight - 03-01-17 فلترة تكست يحتوي علي كلمات بأكثر من لغة صداع شوية و يجب هنا ان نتعامل مع Char التي يتكون منها كل String موجود في التكست بوكس لنفترض ان التكست بوكس تكست مثل التالي PHP كود : TextBox1.Text = "Ahmed عمر Ali مصطفي" لكي نفصل مثل هذه الكلمات عن بعضها البعض علي الأقل نحتاج الي شرط نتأكد منه ان الكلمات إما تنتمي الي اللغة الانجليزية او الي لغة أخري لذلك نحن هنا نحتاج الي تعريف مصفوفة يكون بها الحروف الانجليزية و الكود التالي يوضح ذلك PHP كود : Dim englishChars() As Char = {"a"c, "A"c, "b"c, "B"c, "c"c, "C"c, "d"c, "D"c, "e"c, "E"c, "f"c, "F"c, "g"c, "G"c, أخيرا نقوم بعمل Split للتكست و هنا سوف نحتاج الي مصفوفتان احدهما للكلمات العربية و الاخري للكلمات الانجليزية ثم نضع شرطا و نتحقق منه وهنا علينا أن نتحقق من ان الكلمات قد تحتوي علي حروف انجليزية او لا فإن كانت تحتوي علي حروف انجليزية نضيفها الي مصفوفة اللغة الانجليزية و ان كانت لا تحتوي علي حروف انجليزية نضيفها الي مصفوفة اللغة العربية و الكود التالي يوضح الشكل العام لبقية الكود PHP كود : Dim s As String = TextBox1.Text لتنفيذ الكود افتح مشروع و ضع به تكست بوكس و اثنان ListBox و اكتب جميع الأكواد أعلاه في FormLoad في المرفقات ستجد مثال مكتوبا بنسخة الفيجوال استوديو 2015 RE: فلترة ايميلات/filter id - 3asfa~mdmra - 03-01-17 اخي اريد هكذا
ترتيب كافة النكات
listbox1 = arabic
ليصبح كافة النكات
عربية وبتريب حرف الابجدية العربية
listbox2=english
لتصبح كافة النكات الانجليزية
وبترتيب ايضاً
وشكرا لك ع مجهودك الجبار
RE: فلترة ايميلات/filter id - مساعدة - 03-01-17 السلام عليكم يمكنك تفعيل خاصية Sorted للأداة ListBox وسيتم الترتيب تلقائيا بمجرد أي إضافة RE: فلترة ايميلات/filter id - 3asfa~mdmra - 04-01-17 (03-01-17, 11:33 PM)مساعدة كتب : السلام عليكم مازبط RE: فلترة ايميلات/filter id - مساعدة - 04-01-17 جوابك غير كاف لمعرفة ما حصل معك. لقد طبقتها على التالي احمد عماد خالد ابراهيم حنان وتم ترتيبها تلقائيا بعد تفعيل خاصية Sorted للأداة ListBox ضع أمثلة أخرى بدلا من الصورة RE: فلترة ايميلات/filter id - silverlight - 04-01-17 اضف السطر هذا بعد السطر الذي يسبقه PHP كود : Dim strings As String() = (From item As String In s.Split(" "c).AsParallel() Select item).ToArray() RE: فلترة ايميلات/filter id - 3asfa~mdmra - 05-01-17 (04-01-17, 01:04 AM)silverlight كتب : اضف السطر هذا بعد السطر الذي يسبقه طبقت ماتم وضعة ولم ينجح
سوف اضع المشروع وانت بعد اذن منك
حدد لي مشكلة وشكرأ
RE: فلترة ايميلات/filter id - مساعدة - 05-01-17 تفضل الكود كود : Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click RE: فلترة ايميلات/filter id - 3asfa~mdmra - 05-01-17 يسسسسسسسسسسسسسسسسسسسسسلمو |