Søgning og strengmanipulering

ser dit tag ALTID sådan ud: "<IMG align=baseline src=..." ? så kan du jo gøre noget i den her retning:

intStart = InStr(string, "<IMG")
intSlut = InStr(intStart, string, ">")
strBillede = Mid(string, intStart+22, Len(string)-intSlut)

dette finder det første billede (forhåbenligt... ellers skal der bare tilrettes lidt med tallene), og så kan du lave en for-løkke der finder de resterende img tags, og det tilhørende billede...

ups... Len(string)-intSlut skal vist ved nærmere eftertanke være intSlut-(intStart+22))


hvis dit img tag ikke altid ser sådan ud, men src'en altid er det sidste property kan du gøre noget i den her retning

intStart = InStr(string, "<IMG")
intStart = InStr(intStart, string, "src")
intSlut = InStr(intStart, string, ">")
strBillede = Mid(string, intStart+22, intSlut-(intStart+22))

Det virker rockergodt! Kan du SÅ se at give et svar, så jeg kan give point... :-)
Kan du give et lillebitte hint til, hvordan jeg laver for-løkken?

Jeg synes i øvrigt, at jeg også skylder dig 100 points for http://www.eksperten.dk/spm/297192 !

Mon ikke det her burde kunne gøre det?

intStart = InStr(string,"<IMG")
If intStart > 0 Then
    intStart = InStr(intStart, string, "src")
    intSlut = InStr(intStart, string, ">")
    strBillede = strBillede & Mid(string, intStart+22, intSlut-(intStart+22)) &"<br"
        Count = 1
    Do While intStart > 0
        intStart = InStr(intStart+1,strTekst,"<IMG")
        intSlut = InStr(intStart, string, ">")
        strBillede = strBillede & Mid(string, intStart+22, intSlut-(intStart+22)) &"<br"
        Count = Count +1
    Loop
    Response.Write "der blev fundet "& Count &" billeder"
Else
Response.Write "Der var ikke noget billede"
End If

Det der sker er at vi aller først tjekker om der overhovedet er noget billede. Hvis der er det skriver vi det ud, og sætter count til 0. Når det er gjort laver jeg en loop, som kører så længe der findes et billede, og i denne linje
intStart = InStr(intStart+1,strTekst,"<IMG")
sørger jeg for at gå 1 bogstav frem for hver gang, ellers vil vi jo få fat i det samme billede hver gang.

det var det svar ;)

Glædelig jul

Stort :-) ... og godt nytår!

tak for det, og i lige måde :)

Nu har jeg i praksis afprøvet loopet, og uanset hvad jeg prøver, så får jeg følgende fejlmeddelelse:

Invalid procedure call or argument: 'InStr'

- og meddelelsen peger på

intSlut = InStr(intStart, streng, ">") som synderen.....

Hvad kan være galt?

der manglede et lille tjek på intStart... det virker nu

http://www.burningice.dk/sjov/findpictures.asp

<%
str = "adsfsdæf <img baseline=""hej"" src=""test.jpg"">asdsdfsd<img src=""asdf.jpg"">sdfsdf<img src=""hej.gif"">"

intStart = InStr(str,"<img")
If intStart > 0 Then
    intStart = InStr(intStart, str, "src")
    intSlut = InStr(intStart, str, ">")
    strBillede = strBillede & Mid(str, intStart+5, intSlut-(intStart+6)) &"<br>"
    Count = 1

    Do While intStart > 0
    intStart = InStr(intStart, str, "<img")
    If intStart > 0 Then
        intStart = InStr(intStart, str, "src")
            intSlut = InStr(intStart, str, ">")
            strBillede = strBillede & Mid(str, intStart+5, intSlut-(intStart+6)) &"<br>"
            Count = Count + 1
    Else
        Exit Do
    End If
    Loop

    Response.Write "Der blev fundet "& Count &" billede(r)<br>"& strBillede
    Response.Write "String: "& str
Else
Response.Write "Der var ikke noget billede"
End If
%>

... og en lidt smartere måde at gøre det på... en lille funktion der kalder sig selv

<%
str = "adsfsdæf <img baseline=""hej"" src=""test.jpg"">asdsdfsd<img src=""asdf.jpg"">sdfsdf<img src=""hej.gif"">"

intStart = InStr(str,"<img")
If intStart > 0 Then
    intStart = InStr(intStart, str, "src")
    intSlut = InStr(intStart, str, ">")
    strBillede = strBillede & Mid(str, intStart+5, intSlut-(intStart+6)) &"<br>"
    Count = 1

    Do While intStart > 0
    intStart = InStr(intStart, str, "<img")
    If intStart > 0 Then
        intStart = InStr(intStart, str, "src")
            intSlut = InStr(intStart, str, ">")
            strBillede = strBillede & Mid(str, intStart+5, intSlut-(intStart+6)) &"<br>"
            Count = Count + 1
    Else
        Exit Do
    End If
    Loop

    Response.Write "Der blev fundet "& Count &" billede(r)<br>"& strBillede
    Response.Write "String: "& str
Else
Response.Write "Der var ikke noget billede"
End If
%>

det går godt... NOT... her er den


Function FindPictures(str, start)
intStart = InStr(start, str,"<img")
If intStart > 0 Then
    intStart = InStr(intStart, str, "src")
    intSlut = InStr(intStart, str, ">")
    Response.Write Mid(str, intStart+5, intSlut-(intStart+6)) &"<br>"
    Count = Count + 1
    FindPictures str, intSlut
End If
End Function

FindPictures str, 1

Tusind tak... Nu spiller det!