+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : معرفة عدد الكلمات ضمن نص معين (/showthread.php?tid=5919)
معرفة عدد الكلمات ضمن نص معين - RaggiTech - 17-10-12
كاتب الموضوع : AhmedEssawy
تعتمد الفكرة على تقسيم النص من خلال حرف المسافة Space أو من خلال الشرطة "-" أو خلافه ، حيث يتم تقسيم النص باستخدام Split وعدد الكلمات في هذا النص هو عدد العناصر في المصفوفة Array الناتجة .كود :
Public Function GetWordCount(ByVal Text As String) As Long
Text = Trim(Replace(Text, "-" & vbNewLine, ""))
'Replace new lines with a single space
Text = Trim(Replace(Text, vbNewLine, " "))
'Collapse multiple spaces into one single space
Do While Text Like "* *"
Text = Replace(Text, " ", " ")
Loop
'Split the string and return counted words
GetWordCount = 1 + UBound(Split(Text, " "))
End Function