Find og klik i streng

strText="Now Playing:</font>" & strDinVariabel & "</font></font></td>"

strDinVariabel = "yonsongs - The Instrumenta - Bright star - too far"
strText="Now Playing:</font>" & strDinVariabel & "</font></font></td>"
Respons.write strText

Jammen, jeg kender jo ikke værdien af strDinVariabe. Det er noget tekst, som jeg har grappet fra en anden side....

Jeg kunne forestille mig at en replace-funktion kunne gøre det, men ved ikke, hvordan man får den til at starte ved "Now Playing:<font></" og slutte ved "</font></font></td>"

jeg har brug for en funktion, som finder værdien "Now Playing<font>", hvorefter det kopierer teksten (sangtitlen) indtil den kommer til "</font></font></td>" hvor den slutter.

<%
Dim strTekst, intFirst, intLast
strTekst = "Now Playing:</font> Procyonsongs - The Instrumenta - Bright star - too far</font></font></td>"

intFirst = Instr(strTekst,"</font>") + 7
intLast = Instr(strTekst,"</font></font></td>")

Response.Write Mid(strTekst,intFirst,(intLast-intFirst))

%>

Var det noget?

Ja, men hvad gør jeg så, når der er mange sangtitler? Så skal jeg vel have gang i en løkke, som sorterer de allerede udskrevne sangtitler fra, så de ikke udskrives igen. Jeg vil nemlig gerne have udskrevet alle sangtitler, som jeg har grabbet.

(Jeg smider lige 30 points oveni)

(Hvorfor søren kan jeg ikke længere forhøje pointene...... ???)

Set regex = New RegExp
regex.Global = True
regex.Pattern = "Playing:</font>(.*?)</font>"
Set match = regex.Execute(str)

For Each title In match
    Response.Write regex.Replace(title, "$1") & "<br>"
Next

Fedt, det virker, som det skal. Men hvordan får jeg den til at udskrive linket til playlisten - f.eks:

/sbin/shoutcast-playlist.pls?rn=8048959&file=filename.pls

før at den har udskrevet titlen? (Altså noget dobbelt match)

Kode, som den skal grabbe fra:

<tr>
      <td width="35" nowrap align="center" bgcolor="#001E5A"><font face="Arial, Helvetica" size="1" color="#FFFFFF"><b>1</b></font></td>
      <td width="10" nowrap align="center" bgcolor="#001E5A">&nbsp;</td>
      <td nowrap align="center" bgcolor="#001E5A"><a href="/sbin/shoutcast-playlist.pls?rn=8048959&file=filename.pls"><img src="/images/tunein.gif" border="0" width="49" height="15"></a></font></td>
      <td width="10" nowrap align="center" bgcolor="#001E5A">&nbsp;</td>
      <td width="100%" align="left" bgcolor="#001E5A"><font face="Arial" size="2" color="#FFFFFF"><font size="1"><b>[Easy World New age Newage]</font></b> <a id="listlinks" target="_scurl" href="www.goldoldies.com">Goldradio Network !!  Best Music  24/7  Chat Room at www.Goldoldies.com (Stereo) Ambient</a><br>
<font size="1"><font color="#FF0000">Now Playing:</font> Procyonsongs - The Instrumenta - Bright star - too far</font></font></td>
      <td nowrap align="center" width="10" bgcolor="#001E5A">&nbsp;</td>
      <td nowrap align="center" bgcolor="#001E5A"><font face="Arial, Helvetica" size="2" color="#FFFFFF">64/200</font></td>
      <td nowrap align="center" width="10" bgcolor="#001E5A">&nbsp;</td>
      <td nowrap align="center" bgcolor="#001E5A"><font face="Arial, Helvetica" size="2" color="#FFFFFF">96</font></td>
      <td nowrap align="center" bgcolor="#001E5A" width="10">&nbsp;</td>
    </tr>

Nå, jeg fik det til at virke. Oprettede bare to arrays, som jeg smed matchene ind i til senere udskrivning.

Tryk svar squashguy og mange tak for hjælpe begge :-D

okay