تقسيم سلسلة نصية إلى كلمات

إقرأ الموضوع البحث عن الكلمات والنصوص المقتبسة, باستخدام Regular Expressions ففيه جواب سؤالك. كما ستستفيد من الموضوع

التحقق من السلاسل النصية والأرقام والتواريخ, باستخدام Regular Expressions. وإن واجهت صعوبة بعدها ضع الكود الذي توصلت إليه وسنتعاون في تصحيحه

شكرا على ردك السريع جزاك الله خيرا

ساعمل ما قلته واردلك الخير ان شاء الله

لا شكر على واجب أخي

ولكن إن توفقت للحل الصحيح يرجى وضعه هنا حتى يستفيد الجميع

و ان ما وصلت للحل الصحيح ؟؟ :)

خليك واثق من نفسك رح تصل للحل الصحيح بس لاتجرب الأكواد هنا قبل محاولتك للوصول للحل الصحيح بنفسك

سوف أضع لك عدة أمثلة أعتقد أن كلا منها يمثل إجابة صحيحة لسؤالك عليك اختيار ما يناسبك منها أو الجمع بين أكثر من واحدة للحصول على النتائج

أولا ستحتاج للاستيراد التالي في بداية الملف قبل كل شئ

Imports System.Text.RegularExpressions

حل رقم 1

' الحل الأبسط
		Me.ListBox1.Items.Clear()
		Dim pattern As String = "\w+"
		For Each m As Match In Regex.Matches(Me.TextBox1.Text, pattern)
			Me.ListBox1.Items.Add(m.Value)
		Next

حل رقم 2

' إزالة بعض الكلمات من النتائج
		Me.ListBox1.Items.Clear()
		Dim pattern As String = "\b(?!(the|a|an|and|or|on|of|with)\b)\w+"
		For Each m As Match In Regex.Matches(Me.TextBox1.Text, pattern)
			Me.ListBox1.Items.Add(m.Value)
		Next

حل رقم 3

' اعتبار مايوجد ضمن التنصيص كلمة واحدة
		Me.ListBox1.Items.Clear()
		Dim pattern As String = "(?<q>[""']).*\k<q>|\w+"
		For Each m As Match In Regex.Matches(Me.TextBox1.Text, pattern)
			Me.ListBox1.Items.Add(m.Value)
		Next

حل رقم 4

' إزالة الأرقام من النتائج
		Me.ListBox1.Items.Clear()
		Dim pattern As String = "(?<q>[""']).*\k<q>|[\w-[0-9_]]+"
		For Each m As Match In Regex.Matches(Me.TextBox1.Text, pattern)
			Me.ListBox1.Items.Add(m.Value)
		Next

انظر المرفقات مثال يتضمن جميع الحلول

WindowsApplication12.zip

اخي الكريم محمد جزاك الله كل خير على تعاونك معي و بارك الله في علمك.

اخى العزيز لقيت حلا من خلال دالة split

و هذا هو الكود :

Dim row1 As String


Dim row2() As String


row2 = row1.Split(New [Char]() {" "c}, 8, StringSplitOptions.RemoveEmptyEntries

اخي العزيز لدي ملاحظة وهي الطريقة التى تكتب بها الكود في مشاركاتك تلخبط بعد الشىء الكلام المكتوب

فتلاحظ ان نهاية السطر يأتي في الاول اتمنى لو تجد حلا لهذه المشكلة حتى يسهل قراءة الكودتقبل خالص تحياتي

يسعدني أنك وجدت الحل كما تريد

وبالنسبة لموضوع كتابة الكود سأرى ما يمكن فعله