[asp] regexp, vbcrlf tellen

[TeeDee]

hoi,

ik ben bezig om "enters" te tellen vanuit een textarea d.m.v. de volgende code:

code:

' check hier op chr(10), chr(13) en vbnewline.
boodschap = request.form("boodschap")
boodschapenter = Replace("boodschap", CHR(10)&CHR(13)&vbnewline, vbcrlf)

strPattern = vbcrlf
Set objRE = New RegExp
objRE.IgnoreCase = False
objRE.Global = True
objRE.Pattern = strPattern
Set vervang = objRE.Execute(boodschapenter)
For i = 0 to 15 - Int(vervang.Count)
  x = x + 1
Next

Set vervang = nothing
Set objRE = nothing

if x > 15 then
response.write "Entercheck: fout<br>"
else
response.write "Entercheck: goed<br>"
end if

Ik krijg alleen het vage vermoeden dat ie niet telt. Hij blijft maar terug komen met "Entercheck: goed" Ook al voer ik 30 enters in.
Ik krijg dus ook geen foutmelding.

Ziet iemand mijn foutje? Ik weet dat een RegExp niet zo'n zuinige methode is, dus mocht iemand een andere weten om de vbcrlf te tellen... graag

[mhbwessels]

Denk je niet dat je beter een html code kunt zoeken? Dus in plaats van strPattern = vbcrlf strPattern = "<br>".

Tenminste als ik zo snel je code kon begrijpen.....

[TeeDee]

kan evt. ook. Heb ik ook geprobeerd, maar lukt ook niet.

[mhbwessels]

Dat had ik ook wel al verwacht, maar je weet maar nooit. Kun je niet eens bij google zoeken naar Examples van RegExp?

Ik weet uit ervaring dat daar enorm veel tussen staat is echt een aanrader.

[TeeDee]

I know, maar volgens mij loop ik spaak op het "Count" gedeelte. Ik denk dattie _niet_ count.

En dat is dus precies de bedoeling...

Maar ik zal nog eens rondsnuffelen met google.

Tenzij jij iets anders weet om uit te vogelen hoeveel enters erin staan. (Regexp is toch een beetje "te" voor dit denk ik)

[mhbwessels]

Weet je wat ik ga ook eens zoeken in een aantal boeken die ik heb. Misschien dat ik wat vind!

Laat effe horen als je wat vind wil je? Ik ben nu ook wel benieuwd wat de beste manier is.

[TeeDee]

will do

[4of9]

ik denk dat je een for each lus moet gebruiken

dus iets van:

code:

strPattern = vbcrlf
Set objRE = New RegExp
objRE.IgnoreCase = False
objRE.Global = True
objRE.Pattern = strPattern

Set vervang = objRE.Execute(boodschapenter)

For each objREmatch in objRE
  x = x + 1
  Int(vervang.Count)
Next

ofzo iets...

[TeeDee]

ik heb nu een "misschien" ranzige oplossing:

code:

strPattern = vbCrlf
Set objRE = New RegExp
objRE.IgnoreCase = False
objRE.Global = True
objRE.Pattern = strPattern
aantalenters = FormatNumber(objRE.Execute(boodschapenter).Count, 0)
response.write "Het aantal enters is: "&aantalenters&"<br>"

if aantalenters >"16" then
response.write "Entercheck: fout<br>"
else
response.write "Entercheck: goed<br>"
end if

Set vervang = nothing
Set objRE = nothing

en die werkt perfecto.

[Gert]

code:

Set RE = new RegExp
...
Set Matches = RE.Execute( String )
x = Matches.Count

[TeeDee]

Op dinsdag 21 mei 2002 15:17 schreef Gert het volgende:

code:

Set RE = new RegExp
...
Set Matches = RE.Execute( String )
x = Matches.Count

Kan idd ook (misschien ook iets netter ) thanks

[robjanssen]

How about this one.

code:

' check hier op chr(10), chr(13) en vbnewline.
boodschap = request.form("boodschap")
strPattern = vbcrlf
lngPos = 1
x = 0
while instr(lngPos, strPattern, boodschap) <> 0
  x = x + 1
  lngpos = instr(lngPos, strPattern, boodschap)
wend

if x > 15 then
response.write "Entercheck: fout<br>"
else
response.write "Entercheck: goed<br>"
end if

[Verwijderd]

Ook wel ranzig:

code:

x=Split(boodschap,vbCr & vbLf)
If UBound(x)>15 Then MsgBox "foutje"