Hvormange gange indgår bestemt ord i tekst?

strStreng = "Hej med dig det er vel dig der er mig eller er det dig øhh!"
strOrd = "dig"
arrStreng = Split(strStreng, " ")

For i = 0 To arrStreng.UBound
  If arrStreng(i) = strOrd Then
      ingAntal = intAntal + 1
  End If
Next

//>Rune

Hov, lige nogle rettelser!

strStreng = "Hej med dig det er vel dig der er mig eller er det dig øhh!"
strOrd = "dig"
arrStreng = Split(strStreng, " ")

For i = 0 To arrStreng.UBound
  If arrStreng(i) = strOrd Then
      intAntal = intAntal + 1
  End If
Next

MsgBox(strOrd & " indgår " & intAntal & " gange!")

//>Rune

Ja undskyld Rune, men jeg får altså en fejl når jeg kører din kode, men jeg har tilladt mig at bruge noget af den :O)

Private Sub Command1_Click()
strstreng = "Hej med dig det er vel dig der er mig eller er det dig øhh!"
strord = "dig"
arrStreng = Split(strstreng, " ")
res = InStr(1, strstreng, strord, vbTextCompare)
MsgBox (strord & " indgår " & res & " gange!")

End Sub


- Mikker

ØHHHhhhhhh!

arrStreng = Split(strstreng, " ")

Er naturligvis ikke nødvendig i den sammenhæng..

Sætter-nissen har været på spil igen.

Glædelig jul til alle

- Mikker

OG! så er det iøvrigt noget sludder jeg har fået skrevet ned. Sådan går det når man  ikke tænker sig om. :O(

Prøver lige igen

- Mikker

Sure thing :o)
Bare det virker!

//>Rune

Rune, du havde ret, men måske en smule for meget fart på?
DET kunne jeg ALDRIG finde på :O)

Private Sub Command1_Click()
strStreng = "Hej med dig det er vel dig der er mig eller er det dig øhh!"
strOrd = "dig"
arrStreng = Split(strStreng, " ")
For i = 0 To UBound(arrStreng)
  If arrStreng(i) = strOrd Then
      intantal = intantal + 1
  End If
Next
MsgBox (strOrd & " indgår " & intantal & " gange!")
End Sub


- Mikker

Tak, for hjælpen

Det var lige det jeg skulle brude.


Peter Lang

bruge

Glad for at kunne være til en smule nytte :O)

RIGTIG GLÆDELIG JUL

- Michael