RegExp med <ul><li>noget</li></uo>

Dog ikke RegExp hele vejen men det bruges til at finde hvor

og

er, er det noget?:

<%

str = "

" & vbCrLf & "punkt1" & vbCrLf & "punkt2" & vbCrLf & "punkt3" & vbCrLf & "

"

Set regEx = New RegExp
regEx.Global = true
regEx.IgnoreCase = true
regEx.Pattern = "\[list\](.*\s*)*\[\/list\]"
RegEx.Global = true
Set Matches = RegEx.Execute(str)
For Each Match in Matches
  strM = Match.Value
  strM = replace(strM,"

"&vbCrLf,"<ul><li>")
  strM = replace(strM,vbCrLf&"

","</li></ul>")
  strM = replace(strM,vbCrLf,"</li><li>")
  str = Replace(str,Match.Value,strM)
Next
Set RegEx = Nothing
Response.Write "<br><br>"
Response.Write str
%>

Jeg kan ikke helt gennemskue den, jeg skal have sat den ind i det RegExp jeg har i forvejen, som er rimlig simpelt:

Set regEx = New RegExp
regEx.Global = true
regEx.IgnoreCase = True
regEx.Pattern = "(\[b\])(.+)(\[\/b\])"
message = regEx.Replace(message, "<b>$2</b>")

[osv..]

Jeg har derfor prøvet at erstatte dine str, med message:

regEx.Pattern = "\[list\](.*\s*)*\[\/list\]"
RegEx.Global = true
Set Matches = RegEx.Execute(message)
For Each Match in Matches
messageM = Match.Value
messageM = replace(messageM,"

"&vbCrLf,"<ul><li>")
messageM = replace(messageM,vbCrLf&"

","</li></ul>")
messageM = replace(messageM,vbCrLf,"</li><li>")
message = Replace(message,Match.Value,messageM)
Next

Men når man skriver:

test1
test2
test3
test4
test5

Kommer det ud på samme måde igen.

og

er med små bogstaver som du skriver her?

Hvis man skriver list med stort vil det faktisk ikke helt virker så skal det være sådan her:

Set regEx = New RegExp
regEx.Pattern = "\[list\](.*\s*)*\[\/list\]"
regEx.IgnoreCase = true
regEx.Global = true
Set Matches = RegEx.Execute(message)
For Each Match in Matches
messageM = Match.Value
messageM = replace(messageM,"
"&vbCrLf,"<ul><li>",1,-1,1)
messageM = replace(messageM,vbCrLf&"
","</li></ul>",1,-1,1)
messageM = replace(messageM,vbCrLf,"</li><li>")
message = Replace(message,Match.Value,messageM)
Next

og

er med små bogstaver som du skriver her? - Ja alt med småt

Den gør stadig intet ved det, den siger også at messageM er en udefineret variabel, burde den ikke være defineret ved message og Match?

Det er rigtigt sat sammen?

Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = true
regEx.Pattern = "\[list\](.*\s*)*\[\/list\]"
Set Matches = RegEx.Execute(message)
For Each Match in Matches
  messageM = Match.Value
  messageM = replace(messageM,"
"&vbCrLf,"<ul><li>",1,-1,1)
  messageM = replace(messageM,vbCrLf&"
","</li></ul>",1,-1,1)
  messageM = replace(messageM,vbCrLf,"</li><li>")
  message = Replace(message,Match.Value,messageM)
Next
regEx.Pattern = "(\[b\])(.+)(\[\/b\])"')
message = regEx.Replace(message, "<b>$2</b>")
[...]
Set regEx = Nothing

Har du en Option Explicit i toppen af koden så skal du huske at lave Dim'e dem.

Ja. Lige nu er `Dim message, regEx, Match, Matches, messageM´

Der skulle ikke være noget galt i den kode du har vist og den virker fint for mig.. Det lyder lidt underlidt.
Det virker faktisk ikke hvis der ikke er et return (vbCrLf) inden

Sådan, det var fordi jeg havde glemt, at jeg har message = Replace(message, vbCrLf, "<br>") lidt længere oppe :\

Smider du et svar?

Er der reference på w3schools (eller hvor) til RegExp?

Ok :)
Det tror jeg ikke, jeg kan ikke lige se det, men jeg bruger MS side:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsobjregexp.asp

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vtoriobjects.asp

Hvis jeg så fx skriver:

blablablabla

bla
bla
bla
bla
bla
bla

blablablabla

Tager det ufattelig lang tid, hvis den ikke er timet out, for at opdatere det?

Det lyder mærkeligt for der er ikke noget loop som skulle få den til at hænge..

Jeg ved ikke om det vil ændre noget men du kan evt prøvé at nedlægge regEx objectet imellem hvert pattern (hvis det driller), dog ville jeg så tror det går langsommere.

Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = true
regEx.Pattern = "\[list\](.*\s*)*\[\/list\]"
Set Matches = RegEx.Execute(message)
..
..
..
Set regEx = Nothing
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = true
regEx.Pattern = "(\[b\])(.+)(\[\/b\])"')
message = regEx.Replace(message, "<b>$2</b>")
..
..

Nu fik jeg en fejl:

Active Server Pages error 'ASP 0113'

Script timed out

addpost.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

Så det må næsten være et loop der kører igen og igen.

Den kommer ikke hvis man kun har nogle få i

, kan det være en fejl, der gør at hvis der er for mange, vil den aldrig slutte?

Hvis jeg lukker den lige efter den del med list, og starter en ny bagefter virker det vidst fint :)

Eller den kan klare lidt flere, men vil stadig lave fejl :(

Hmm det ser ud til at det er fordi det tager lang tid, kan man gøre noget ved det?

Det er underligt, jeg har prøvet med mange i listen (25) og det taget ikke 1 sekund at loade siden.

Meget mystisk, i dag kører det fint jeg havde enda prøvet at genstarte den i går, testet på 4 forskellige maskiner (2 af dem rigtige webserver hvoraf den ene er hosted proffessionelt (betalt)) :|

Så der er ihvertfald ikke noget galt med scriptet :)