Funktion der kan tjekke om der kun er mellemrum i en streng

If Len(Trim(streng)) = 0 Then

Ja, nu sagde jeg mellemrum, men den skulle helst også tjekke for "hårde" mellemrum ( )...

<% If trim(rs("navn")) = "" then
response.write ("der er ikke noget indhold")
end if %>

k-asp-er  --> Den tjekker da kun for " ", ligesom tmceu's...

Jeg havde ikke set dit næstsidste indlæg

Det er ok:)

if len(streng) = 0 then
    'Strengen er helt tom
else
    If Len(Trim(streng)) = 0 Then
        'indeholder kun mellemrum
    else
        'den er ok
    end if
end if

kan du ikke bare tilføje en

replace(minStreng,"&nbsp;","")

til tmceu´s fremgangsmåde

f.eks.:

test = replace(minStreng,"&nbsp;","")
test = trim(test)
if test = "" then SÅ ER DER BALLADE !!!

Den er da tricky

isdan ---> Tak, men det er sådan set allerede blevet sagt to gange i forskellige afskygninger ;)

Men krogstrups ser ud til at virke

Og det gør den

:-)

krogstrup ---> Jo, men den skal også erstatte "&sp;" så. Det var defor, jeg overvejede noget RegExp, der tjekkede for indhold af A-Z og 0-9 f.eks.
Men ellers må det blive:

If Len(Trim(replace(replace(minStreng,"&sp;",""),"&nbsp;",""))) = 0 Then
  Tabt tur...
End If

Jeg er bare ikke klar over, om der findes andre koder for mellemrum end de beskrevne...

Nææ, sådan:

If Len(Trim(replace(replace(minStreng,"&nbsp;",""),"&sp;",""))) = 0 Then
  Tabt tur...
End If

&nbsp;

Jeg har bikset en lille funktion sammen som tester stringen, og erstatter f.eks. &nsbp; med "".

str er strengen med data der skal søges i.
pat er det regulære udtryk.
rep er det der skal erstattes med.

Det kunne f.eks. se sådan ud:
RegEx("&nbsp;&sp;","(&nbsp;)|(&sp;)+","")

<%
    Function RegEx(str,pat,rep)
        Set reg = New regexp
        reg.Pattern = pat
        reg.Global = True
        reg.IgnoreCase = True
        RegEx = reg.Replace(str,rep)
        Set reg = Nothing
    End Function

    strResult = RegEx("&nbsp;&sp;","(&nbsp;)|(&sp;)+","")

    If Len(strResult) = 0 Then
        Response.Write "Taber"
    Else
        Response.Write strResult
    End If
%>

Whatever - ja, det var sådan noget, jeg eftersøgte!! Mange tak :)
Og også tak til Jer andre og undskyld, hvis spørgsmålet var lidt uklart formuleret...

Og lige et tillægsspørgsmål - hvor finder jeg en (dansk) vejledning i Regular Expression? Det kunne jeg nemlig godt tænke mig at blive meget bedre til!

Jeg fik lavet mig denne til "highlight" af e-mailadresser.

regEx.Pattern = "[a-z0-9\.\-\_]+\@[a-z0-9\.\-\_]+\.[a-z]{2,}"

Hvis det ikke er for meget at forlange, vil jeg gerne høre, om der er noget, jeg ikke har taget hensyn til.