Hej

Jag har nu kodat ett nyhetskript som förmodligen är som de flesta andra. HAr adminsystem och att internetadresser blirlänkar o.s.v

Men nu skulle jag vilja ha en till funktion, att man kan infoga bilder precis som man kan göra här.


Har tänkt det så här: Man laddar för upp bilden på servern(en speciellt avdelad mapp) och att man sedan länkar till bilden i den mappen. Men nu är frågan hur ska jag lyckasmed att få bilden att visa sig i nyhetskriptet?

Jag går bet på sig, så ni får gärna komma med förslag.

mitt förslag är att när du laddar upp bilderna, sparas sökvägen i en databas, tillsammans med datum för uppladding, ett id (från en räknare), samt en rubrik

sedan har du en sida där alla bilderna listas, med id rubrik och datum

sedan gör du så att när du skriver [img=142] så anroppas en sub, som öppnar databsen för bilderna, och tar fram sökvägen till bilden, utifrån id:et, och sedan skriver ut bilden med sökvägen som vanlig html

anvädn regxp för att få ut numret ur [img=142]

kanske inte så pedagogiskt förklarat, men hoppass d förstår

Det är inte riktigt vad jag söker, tyvärr men det var en bra idé.

Det jag håller på och försker med är följande:

txt = Replace(txt,"[c]","<font color='red'>")
txt = Replace(txt,"[/c]","</font>")
txt = Replace(txt,"[b]","<b>")
txt = Replace(txt,"[/b]","</b>")
txt = Replace(txt,"[i]","<i>")
txt = Replace(txt,"[/i]","</i>")
txt = Replace(txt,"[bild](.*?)[/bild]","<img src=""$1"">")

Får inget felmeddelande, så detmåste väl bara var något litet fel?Eller?

Tacksam för hjälp

är det detta eller nått liknande du är ute efter:

<code>
txt = "text text text [bild] bildnamn.jpg [/bild] text text text"
imgStart = instr(1, txt, "[bild]") + 6 'hittar bild-taggen, + 6 är att få rätt siffra där själva bildnamnet börjar och inte [b...
imgEnd = instr(1, txt, "[/bild]") 'hittar stället där [/bild börjar, eller slutet på bildnamnet
imgNameLen = imgEnd - imgStart 'längden på bildnamnet så att du vet vart du ska peta in dom riktiga img-taggarna
imgName = mid(txt, imgStart, imgNameLen) 'letar rätt på det exakta bildnamnet
txt = Replace(txt, imgName, "") 'tar bort bildnamnet från texten nu när du har det i en egen variabel
imgName = trim(imgName) 'tar bort eventuella mellanslag innan och efter bildnamnet
txt = Replace(txt, "[bild]", "<img src='rättSökväg/" & imgName & "'>") 'petar in img-taggen på rätt ställe
txt = Replace(txt, "[/bild]", "") 'tar bort [/bild]
</code>

Använder du digav Regular Expressions?
Om inte så fungerar inte din logik i replace delen...

/Thomas

Det är precis vad jag söker tack så mycket, dock så får jag problem med detta: imgName = mid(txt, imgStart, imgNameLen)


Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'Mid'


Men jag använder mid på andra ställen i koden på samma sätt, så jag förstår inte varför det blir fel justdär. Någon som har någon idé?

Det är precis vad jag söker tack så mycket, dock så får jag problem med detta: imgName = mid(txt, imgStart, imgNameLen)


Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'Mid'


Men jag använder mid på andra ställen i koden på samma sätt, så jag förstår inte varför det blir fel justdär. Någon som har någon idé?