این جمله چند تا کلمه داره ؟!

[mehran8]

سلام

می شه یه برنامه بذارید که تعداد کلمات موجود در یک جمله رو مشخص کنه ؟

example :
in the name of god
تعداد کلمات : 5

Mer30

[Hossein Bazyan]

با دستور split


Dim MyString as string
Dim iCount as byte
MyString = "in the name of god"
MyArray = Split(MyString, " ", -1, 1)
' MyArray(0) contains "in".
' MyArray(1) contains "the".
' MyArray(2) contains "name".
' MyArray(3) contains "of".
' MyArray(4) contains "god".
For iCount = 0 to 4
MsgBox MyArray(iCount)
Next iCount

[BOB]

سلام
در ساده ترین شکل در یک حلقه تعداد فاصله‌ها (Space) را در جمله بشمارید.

[sohrab o]

یا به یه شکل دیگه از تابع len و mid میتونید استفاده کنید که خیلی به نسبت روش اول سخته

[romina2006]

Private Sub Command1_Click()
Dim Pos As Long, N As Long, Str As String
Str = Text1.Text
For I = 1 To Len(Trim(Str))
If InStr(Trim(Str), " ") Then
Pos = InStr(Trim(Str), " ")
Str = Mid(Trim(Str), Pos + 1)
N = N + 1
End If
Next I
Text2.Text = N + 1
If Text1.Text = "" Then Text2.Text = "0"
End Sub

[mehran8]

از همه شما متشکرم دوستان