معرفة عدد الكلمات فى حقل نصى

اخي الفاضل

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

يفضل وضع قاعدة البيانات هنا في المنتدى وحتى لو كانت بها اي بيانات عشوائية حتى نستطيع مساعدتك

بالتوفيق

تفضل

count words field.rar

اولا شكرا اخى الفاضل على الرد

ولكن سارفق لك قاعدة البيانات حيث قمت بالتنفيذ ولكن النتيجة خاطئة برجاء التصويب 

حيث هذة بيانات واقعية وارجو معرفة عدد المواد الدراسية علما بان لغة عربية هى مادة واحدة اى لا يعد المسافات 

وجزاكم الله خيرا

a.rar

اذا زادت المسافات بين الكلمات يختلف العدد ( تم معالجة الأمر )

اذا وجدت كلمة لغة مرة أو أكثر يختلف العدد ( تم معالجة الأمر )

جرب المرفق

count words field 2.rar

جارى التجريب على كمية كبيرة من البياانات 

وجزاكم الله خيرا

وجزاكم مثله

وأخبرني بالنتيجة وبأي تعديل

 الاخ العزيز امير 2008

السلام عليكم

بعد التجريب تم ملاحظة الاتى

النتائج صحيحية بنسبة 99% ولكن هناك خطأ فى 

لغة عربية    لغة انجليزية يعطى 3 بدلا من 2

 رياضيات   لغة انجليزية  يعطى 3 بدلا من 2

اى انة عندما ينتهى بالغة الانجليزية يعطى الرقم +1

برجاء الرد والافادة

كلاهما يتعلق بعدد المسافات بين كل مادة والتي تليها

والحل السابق يدعم وجود مسافة أو مسافتين على الأكثر بين الكلمة والتي تليها

وهذا التعديل التالي بالمرفق يدعم حتى ثلاثة مسافات

جرب وأخبرني بالنتيجة سريعاً

count words field 3.rar

حتى الان شغال تمام بس ياريت لو الاستعلام كان بدون الدالة CountInstances الموجودة فى الموديول لان الاستعلام سوف استخدمه فى vb.net

وجزاكم الله خيراً

أكيد ممكن لكن زي مانت شايف الكود عاوز تركيز ووقت

ولكي تستغني عن الدالة يجب أن تأخذ كودها الأساسي في كود الاستعلام

ياريت لو أحد الزملاء عنده حل سريع

لكن أكيد vb.net متوفر فيه أكواد تقوم بالمهمة حاول تبحث في منتداه

بحثت كثيرا ولم اجد حل ياريت لوحد يعمل الاستعلام بدون الدالة اكون شاكر كثيرا

طيب

افتح مشروع جديد في فيجوال بيسك دوت نت ( أنا جربت على 2005)

واعمل زر أمر اسمه Button1

واعمل مربع نص اسمه T1

واعمل مربع نص آخر T2

واكتب الكود ده
 :

Imports System.Text.RegularExpressions
Public Class Form1

    Public Function CountWords(ByVal value As String) As Integer
        ' Count matches.
        Dim collection As MatchCollection = Regex.Matches(value, "\S+")
        Return collection.Count
    End Function


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        T2.Text = CountWords(t1.text)
    End Sub
End Class

اكتب في مربع T1 مجموعة كلمات

واضغط على زر الأمر Button1

سوف تظهر عدد الكلمات في T2

طبعا هناك تعديلات أخرى لكن المهم البداية وانت عليك الباقي

count words.rar

اخى الفاضل امير 2008

شكرا جزيلا على اهتمامك بالموضوع

ولكن انا اريد استعلام من قاعدة البيانات وليس من textbox ويتم تنفيذه من خلال vb.net

اى ان الاستعلام السابق ممتاز ويفى بالغرض وهو الموجود فى القاعدة count words field 3 ولكن لا يتم تنفيذة فى vb بسب الدالة CountInstances 

اى المطلوب استعلام بدون الدالة فقط هذا هو المطلوب

بارك الله بك اخي الكريم : أمير 

على المشاركة والمتابعة

تفضل اخي الكريم

عد الكلمات في الإستعلام بدون اي دوال خارجيه

الكلمات المعدودة هي  ( دين + علوم + دراسات + رياضيات + (  لغة عربية  )   +   (   لغة انجليزية )  )  6 كلمات

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

فهي سهلة وبسيطة ولا يوجد بها اي تعقيد ولا نحتاج فيها لأي دوال خارجية 

ولا تتقيد بأي مسافات سواء في بداية الكلمة او في وسطها او في نهايتها 

za-CountOfWords.rar

بالتوفيق

وبارك فيكي أستاذتنا

جميلة فكرة الاستعلام

وأعتقد تؤدي الغرض بالنسبة لمسميات المواد الدراسية

جزاك الله خيرا يا اخت زهرة

تمام كدة 

وجارى التجريب