Tælle ord i en tekstboks
Hej jeg har brug for at tælle antallet af ord i en tekstboksNedenstående kode virker også hvis ordene står efter hinanden men ikke hvis de står under hinanden som her
ord1
ord2
ord3
Er der en som vil/kan hjælpe mig.
På forhånd tak
Min kode er:
Sub AddWords()
Dim strWhole
Dim x
Dim i
Dim currentLetter
Dim prevLetter
Dim total
Dim pris
strWhole = Trim(form1.txtString.value) ' Remove leading and trailing spaces of string if any.
if strWhole = "" Then ' The text box is empty.
MsgBox "Du har ikke skrevet noget tekst"
Exit Sub
End if
x = Len(strWhole) ' Store the total number of letters In the string.
total = 1 ' Start the count at one.
' Loop through the String two letters at a time. if the current letter is a space, and the previous
' letter was Not a space, Then another word is counted.
For i = 2 To x
currentLetter = mid(strWhole, i, 1)
prevLetter = mid(strWhole, i - 1, 1)
if currentLetter = Chr(32) and prevLetter <> Chr(32) Then
total = total + 1
End if
Next
MsgBox "antal ord: " & total
End Sub
