A voir également:
- Algorithme nombre de mot dans une phrase
- Inverser les mots dans une phrase ✓ - Forum Java
- Melangeur de mot ✓ - Forum Visual Basic
- Mot aléatoire ✓ - Forum C
- Générateur de nombre ✓ - Forum PHP
- Mélangeur de mot - Forum PHP
2 réponses
Ce code devrait t'aider, il compte les espaces en prenant pour acquis que les mots tels "L'intégrale" compte pour 1 plutôt que deux mot, c'est donc seulement un début de solu.
Dim iCmpt As Integer
Dim iPos As Integer
Dim iLng As Integer
Dim strPhrase As String
iCmpt=0
strPhrase = "Comme un ange au nez rouge, tu conduira dans le ciel..."
iLng = Len(strPhrase)
If iLng = 0 Then
MsgBox "Chaine nulle"
Exit Sub
'Else
End If
iPos = 0
Do
iPos = iPos + 1
iPos = InStr(iPos, strPhrase, Chr$(32), vbBinaryCompare)
If iPos > 0 Then iCmpt = iCmpt + 1
Loop Until iPos = 0
iCmpt = iCmpt + 1 'Il y as toujours au moins 1 mot
Msgbox "Il y as " & Str$(iCmpt) & " mots." 'Devrait être 11 :)
Dim iCmpt As Integer
Dim iPos As Integer
Dim iLng As Integer
Dim strPhrase As String
iCmpt=0
strPhrase = "Comme un ange au nez rouge, tu conduira dans le ciel..."
iLng = Len(strPhrase)
If iLng = 0 Then
MsgBox "Chaine nulle"
Exit Sub
'Else
End If
iPos = 0
Do
iPos = iPos + 1
iPos = InStr(iPos, strPhrase, Chr$(32), vbBinaryCompare)
If iPos > 0 Then iCmpt = iCmpt + 1
Loop Until iPos = 0
iCmpt = iCmpt + 1 'Il y as toujours au moins 1 mot
Msgbox "Il y as " & Str$(iCmpt) & " mots." 'Devrait être 11 :)