Hi,
Ich w�rde nach der Zeichenkette 'scr="' suchen und dann �berpr�fen was kommt.
Input #DateiNr, Zeile
iPos = Instr(1, lcase(Zeile), "scr=""")
Do While iPos>0
Input #DateiNr, Zeile
iEnde = Instr(iPos+len("scr="""), Zeile, """")
Puffer = lcase(mid$(Zeile,iPos,7))
if Puffer<>"http://"; and Puffer<>"mailto:"; then
' einf�gen ... Von http://....
end if
iPos = Instr(iPos, lcase(Zeile), "scr=""")
Loop
Problemf�lle sind dann aber <a src = "bla bla"> etc!
Grobes Schema! Nicht so gr�ndlich durchdacht und schon gar nicht getestet:
Gru�
Heiko Richler
Systemingenieur
Georg-Simon-Ohm-Fachhochschule N�rnberg
Fachbereich Informatik
http://web1.informatik.fh-nuernberg.de/heiko.richler/
> -----Urspr�ngliche Nachricht-----
> Von: Gerald B�ck [mailto:[EMAIL PROTECTED]]
> Gesendet: Dienstag, 30. April 2002 13:02
> An: ASP Diskussionsliste fuer Anfaenger
> Betreff: [aspdebeginners] Links absolutieren[Scanned]
>
>
> Ich m�chte in einem aus einer Datenbank geladenen
> html-Dokument die Links absolutieren, das hei�t zb aus
> scr="test.asp" scr="www.test.at/test/test2/test.asp" machen.
> Kennt dazu vielleicht jemand eine Komponente oder ein Beispielscript?
>
> thx
> Gerald
>
>
> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> | [aspdebeginners] als
> [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
> | Sie knnen sich unter folgender URL an- und abmelden:
> |
> http://www.aspgerman.com/aspgerman/listen/anme> lden/aspdebeginners.asp
>
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
