Plukke data ud af streng II

Prøv med den her:

sogStart    = "<span class=""text"">"
sogSlut        = "</span>"
theText     = strTemp
strCount     = UBound(split(theText, sogStart))

For counter = 1 to strCount
    theStart     = inStr(theText,sogStart)
    theEnd         = inStr(theText,sogSlut)
    theCount     = theEnd - theStart
    theResult     = Mid(theText,theStart + 1,theCount - 1)
    theText     = right(theText,len(theText) - theEnd)
    response.write Mid(theResult,Len(sogStart)) & "<br>"
Next

Ups - det var et svar - hvis du kan bruge det.

Hej
Kan det formuleres i en enkelt linie såsom denne:
regEx.Pattern = "((http://www\.tester\.dk\/test\.asp\?id=)(\w)+(&item=)(\w)

Som jeg blot kan smide ind i nedenstående.
Så holder jeg det dynamisk nemlig.

Function RegExpTjek(strng)
    Dim regEx, Match, Matches  ' Create variable.
    Set regEx = New RegExp  ' Create a regular expression.
    regEx.Pattern = "((http://www\.tester\.dk\/test\.asp\?id=)(\w)+(&item=)(\w)+)"  ' Set pattern.
    regEx.IgnoreCase = True  ' Set case insensitivity.
    regEx.Global = True  ' Set global applicability.
    Set Matches = regEx.Execute(strng)  ' Execute search.
    For Each Match in Matches  ' Iterate Matches collection.
      RetStr = RetStr & " ; " & Match.Value
    Next
    RegExpTjek = RetStr
  End Function

...jeg så jo i forrige dialog at du havde styr på de patterns der :)

Hej nozio
Jeg ønsker en løsning der bygger på regExp da jeg samlet set vil have et dynamisk modul der kan fodres med noget data og så spytte mit resultat ud.

Hvis jeg alligevel bliver nødt til at benytte din ovenstående løsning skal jeg nok smide nogle points

Du kan omskrive funktion sådan her, måske den skulle hedde noget andet:


<%
Function RegExpTjek(strng)
    Dim regEx, Match, Matches  ' Create variable.
    Set regEx = New RegExp  ' Create a regular expression.
    regEx.Pattern = "<span class=""text"">(.*?)</span>"  ' Set pattern.
    regEx.IgnoreCase = True  ' Set case insensitivity.
    regEx.Global = True  ' Set global applicability.
    Set Matches = regEx.Execute(strng)  ' Execute search.
    For Each Match in Matches  ' Iterate Matches collection.
      if RetStr <> "" then RetStr = RetStr & ";"
      RetStr = RetStr & Match.Value
    Next
    RegExpTjek = RetStr
  End Function
%>

<%
'Lille eks:
str = "<span class=""text"">Tekst 1</span>"
str = str & "<span class=""text"">Tekst 2</span>"
str = str & "<span class=""text"">Tekst 3</span>"

Response.Write RegExpTjek(str)
%>

Thx det er sq altid rart at få besøg af dig :)