حساب المسافات فى نص

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

هذه مجرد فكرة خطرت على بالي بمجرد رؤيتي للسؤال اعتقد انها تفي بالغرض لكن انصح بتطويرها لاعتمادها على Loops وقد تستغرق وقت فى حساب المسافات للنصوص الطويلة

Option Explicit

Public Function SumSpaces(ByVal Expression As String) As Long
  Dim lngLoop As Long
  Dim TmpVal As String
  For lngLoop = 1 To Len(Expression)
    TmpVal = Mid(Expression, lngLoop, 1)
    If TmpVal = " " Then
      SumSpaces = SumSpaces + 1
    End If
  Next lngLoop
End Function

Private Sub Command1_Click()
  Label1.Caption = SumSpaces(Text1.Text)
End Sub

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

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

عدد المسافات.zip

اشكر الاخوة لافاضل واسف لتاخرى بالرد

افاض الله عليكم من العلم وجعلكم عونا للمسلمين

السلام عليكم

جرب هذا البرنامج

word.rar