Tæl ord i SPLIT funktionen

Jeg har en funktion som kan tælle ord i en streng:
<%
Function countWords(ByVal str)
  If IsNull(str) Then Exit Function
  Dim RegEx
  Set RegEx = New RegExp
  RegEx.Pattern = "\s+"
  RegEx.Global = True
  countWords = UBound(Split(RegEx.Replace(Trim(Replace(str,vbCrLf," "))," ")," ")) + 1
End Function
%>

Et lille eksempel:
<% 
str = "Hej dette er en test." 
antalOrd = countWords(str)
Response.Write (antalOrd)
%>


Hvis du bruger funtionen bliver din if sætning sådan her:

<% If countWords(Dyrliste(i)) = 1 Then %>

Hvis du allerede har brugt split() funktionen på strengen (så du har et array), kan du bruge uBound() funktionen. Den tæller antal elementer i et array:

antal = uBound(Dyrliste)

eagleeye: Jeg får fejlen: syntaksfejl i Function countWords(ByVal str)

fennec: Ja jeg har brugt split() funktionen, men ubound() ville ikke så meget tælle 1 ord i array'en.

Jeg vil der til sige, at jeg bruger en databaseID så der er tal der kommer til at stå i dyrliste(i), men alligevel skal den tælle tallene.

Hvad indeholder dyrliste?  Er det et array med tal?
hvordan laver du array?

eagleeye: Ja der er med tal og jeg laver der som følgende:

URL'en : /indhegning?DyrID=2-4-6-88

Derefter følger denne kode:

dyrliste = Split(dyrID, "-")

For i = 0 to Ubound(dyrliste)
Set rstSimpleP = cnnSimpleP.Execute("SELECT * FROM dyr WHERE dyrID = " & dyrliste(i) & " ")
Udskrivdyrliste()
Next

Der er så hvis jeg kun har ET ID. f.eks ?DyrID=3, 1 udskrivning at jeg skal have den lange TD ellers den korte TD.

Ok på den måde men så ville jeg mene dette virker, Ubound tæller antal items i arrayet +1 fordi første item har værdien 0.

<% If  int(Ubound(Dyrliste)+1) = int(1) Then %>
  <td height="200">&nbsp;</td>
<% ELSE %>
  <td height="10">&nbsp;</td>
<% End If %>

Jeg får denne fejl i den øverste sætning:

Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0408'

Tegnet er ugyldigt

<% If  int(Ubound(Dyrliste)+1) = int(1) Then %>

hum så prøv sådan her jeg kan ikke umiddelbart set nogle ugyldige tegn:

<% If Ubound(Dyrliste)+1 = 1 then %>

Jeg takker. Kigger lige lidt selv på den.