Find billeder i HTML

Skal det være ASP ? Tror det ville være nemmere at lave en funktion for de i java som returnere værdien i en streng..
Hvad skal det da bruges til ?

Ja det skal være i asp, da det skal kombineres med Jmail, for HTML'en (inkl. billeder) skal sendes som en e-mail og derfor skal billederne attaches til mailen og SRC-indholdet skal udskriftet med noget andet en den originale sti & navn.

F.eks. vil <img src="image/image1.gif"> skulle skiftes ud med <img src="cid:2098098904502@192.168.1.1">

Det betyder altså, at jeg skal have bruge en stump kode der kan loope og finde hver gang der i HTML koden står src="...", hvorefter jeg skal indsætte noget i retningen af:

contentId = jmail.AddAttachment( FundneImageFil )
HTMLstr = replace (HTMLstr, FundneImageFil, "cid:" & contentId )

jeg er desværre bare ikke super god til at lave en funktion der kan læse igennem en tekst streng :-(

Ups, det er vist lidt sent, der skulle stå:
contentId = jmail.AddAttachment(Server.MapPath(FundneImageFil))

Javel ja...!! Hmmm... kan lige sove på det.. p.t har jeg ingen ideer udover at lave en "søgemaskine" som gennemgår det hele..!!
hvis du keder dig kan du jo prøve at lave det i java og dernæst smide det i et hidden field og sende det vider til asp'en og jmailen det kan lade sig gøre... har arbejdet med det her til aften... bare kun hvor den skulle replace billeder...!!

Tror også selv jeg vil sove lidt på det ... klokken er jo mange :-|

Nu er jeg meget usikker, men kan man ikke bruge en URL-erstatnings-funktion-tims?

<%
Function ConvertText(TheTextMessage)
  TheText = TheTextMessage

  TheText = Replace(TheText, "src='", "src=""")
  TheText = Replace(TheText, "src=", "src=""")
  TheText = Replace(TheText, "SRC='", "src=""")
  TheText = Replace(TheText, "SRC=", "src=""")
  TheText = Replace(TheText, "'", """")

  URL = Split(TheText, "src=""")
  For I = 0 to UBound(URL)
  If I > 0 then
    UrlLen = InStr(1, URL(I), " ", vbTextCompare)
    If UrlLen = 0 Then
    UrlLen = Len(URL(I))
    Else
    UrlLen = UrlLen - 1
    End If
    TheURL = mid(URL(I), 1, UrlLen)
    URL(I) = Replace(URL(I), TheURL, "src=""" & DitIdHalloej)
  End If
  Next

  ConvertText = Join(URL)

end function
%>


Hurtigt uestet eksempel, men ideen er vist god nok.

Godt forslag, men jeg skal ikke bare erstatte SRC-delen jeg skal først have trukket filnavnet og stien ud , behandle denne og dernæst erstatte den med noget andet.

Variablen TheURL indeholder stien til filnavnet + en " til at afslutte med.

f.eks.: images/logo.gif"

Håber det kan hjælpe dig

Gryn, tak for dit forslag. Jeg havde vist ikke læst koden helt igennem. Jeg prøver lige om det virker, og hvis det gør, får du selvfølgelig dine points :-)

Jubii, det virkede (med lidt modifikationer). Her er den endelige kode:

TheText = HTMLbody
TheText = Replace(TheText, "src='", "src=""")
TheText = Replace(TheText, "src=", "src=""")
TheText = Replace(TheText, "SRC='", "src=""")
TheText = Replace(TheText, "SRC=", "src=""")
TheText = Replace(TheText, "'", """")

URL = Split(TheText, "src=""")
For I = 0 to UBound(URL)
    If I > 0 then
        UrlLen = InStr(1, URL(I), " ", vbTextCompare)
        If UrlLen = 0 Then
            UrlLen = Len(URL(I))
        Else
            UrlLen = UrlLen - 1
        End If
        TheURL = mid(URL(I), 1, UrlLen)
        'response.write "<p><b>" & TheUrl & "</b><br>"
        UrlLenght = len(TheURL)
        TrimUrl = left(TheURL, UrlLenght - 1)
        TrimUrl = right(TrimUrl, UrlLenght - 2)
        'response.write "<b>" & TrimUrl & "</b></p>"
        contentId = jmail.AddAttachment(Server.MapPathTrimUrl))
        TheText = Replace(TheText, TheURL, "cid:" & contentId & """")
    End If
Next
HTMLbody = TheText

Gryn: Du får mine points. Mange tak for hjælpen!!

Tak for point :-)