Split af streng

VB console application demo:

Rem eksemplet stammer fra regneark
Dim tabel
    tabel = Split(Range("A1"), ">")
    antal = UBound(tabel)
   
    For f = 1 To UBound(tabel) Step 2
        a = Replace(tabel(f), "</a", "")
        MsgBox a
    Next f

Ved du, hvilke variabler / attributter, der kan optræde i strengen
For så kan det jo gøres med blot Javascript, fx ved brug af jQuery.

Mit forslag:

<%
s = "<a href=""/Forms/R0710.aspx?id=63283"" target=""_blank"">Administrativ bistandsloven</a><a href=""/Forms/R0710.aspx?id=63283"" target=""_blank"">132</a><a href=""/Forms/R0710.aspx?id=63283"" target=""_blank"">26-02-1992</a><a id=""ctl00_MainContent_ResultGrid1_ctl02_HyperLink2"" href=""/Forms/R0710.aspx?id=63283"" target=""_blank"">Lov om gensidig administrativ bistand i sager om direkte og indirekte skatter mellem stater, der er medlem af Europarådet eller OECD</a>"
Set reo = New RegExp
reo.Pattern = "(?:<[^>]*>)([^<>]*)(?:</[^>]*>)"
reo.Global = True
Set mm = reo.Execute(s)
For Each m in mm
  Response.Write m.SubMatches(0) & "<br>" & vbCrLf
Next
Set mm = Nothing
Set reo = Nothing
%>

Hej Arne

Deter godt nok smart, men jeg må indrømme jeg ikke kan forstår koden, hvordan virker den? er det "(?:<[^>]*>)([^<>]*)(?:</[^>]*>)"
der fjerner noget der er i mellem eller hvordan

Der er mange som mener at regex er tæt beslægtede med hiroglyffer!

:-)

(?:  )  skal være der men kommer ikke med i det man hiver ud
(    )  skal være der og kommer med i det man hiver ud
<[^>]*>  en < efterfulgt af 0-mange tegn som ikke er > efterfulgt af en >
[^<>]*    0-mange tegn som ikke er hverken < eller >
</[^>]*>  en < efterfulgt en / efterfulgt af 0-mange tegn som ikke er > efterfulgt af en >

Tak for din forklaring, så lærte jeg det

saa smider jeg et svar

arne_v: tusind tak for hjælpen... og undskyld at jeg først svarer nu.

Hej Arne,

Håber at du vil hjælpe mig lidt igen.

Jeg prøver at splitte denne streng:

<td><a href="/Forms/R0710.aspx?id=63283" target="_blank">Administrativ bistandsloven</a></td><td><a href="/Forms/R0710.aspx?id=63283" target="_blank">132</a></td><td nowrap="nowrap"><a href="/Forms/R0710.aspx?id=63283" target="_blank">26-02-1992</a></td><td><a id="ctl00_MainContent_ResultGrid1_ctl02_HyperLink2" href="/Forms/R0710.aspx?id=63283" target="_blank">Lov om gensidig administrativ bistand i sager om direkte og indirekte skatter mellem stater, der er medlem af Europarådet eller OECD </a></td>



Ud fra dit script oven for prøver jeg med:

    s = streng

    Set reo = New RegExp
    reo.Pattern = "(?:<td[^>]*>)([^<>]*)(?:</td[^>]*>)"
    reo.Global = True
    Set mm = reo.Execute(s)

    For Each m in mm
        Response.Write m.SubMatches(0) & "<br>" & vbCrLf
    Next

    Set mm = Nothing
    Set reo = Nothing


Men jeg får ingenting ud...

Kan du hjælpe mig?

På forhånd 1000 tak.

fandt ud af det...