Eigen smiley script bouwen, dus hulp nodig.

[anoniem]

ok mensen here we go.......ik heb dus een website waarvan content voor 95% uit de db komt. nou wil ik met behulp van VBScript functie/method .replace de string :D vervangen met teeth.gif ik heb van alles geprobeerd maar het lukt niet!!! de code:(die plaats ik dus binnen asp (VBS code op mn site.) Function ReplaceTest(patrn, replStr) Dim regEx, str1 ' Create variables. str1 = mijnInhoud Set regEx = New RegExp ' Create regular expression. regEx.Pattern = patrn ' Set pattern. regEx.IgnoreCase = True ' Make case insensitive. ReplaceTest = regEx.Replace(str1, replStr) ' Make replacement. End Function document.write(ReplaceTest(":D", "<img src='teeth.gif'>")) dan response.write mijnInhoud bvd dank btw ik ben geen programmeur ik ben een lamer newb dus vergeef me mijn foutuh!

[anoniem]

[quote:82d2ea825b] [b:82d2ea825b]Op 04-03-2002 14:54, schreef computernerd:[/b:82d2ea825b] btw ik ben geen programmeur ik ben een lamer newb dus vergeef me mijn foutuh! [/quote:82d2ea825b] Fijn dat het het zelf effe vermeld :grin: Er gaan inderdaad een aantal zaken fout in je code. Onderstaande zal al beter moeten werken. (Ik heb wel even de vrijheid genomen om de aanpak van de functie aan te passen) [code:1:82d2ea825b] <% Function ReplaceTest(sReplaceIn, sReplaceThis, sWithThis) Dim regEx Set regEx = New RegExp regEx.Pattern = sReplaceThis regEx.IgnoreCase = True regEx.Global = True sReplaceIn = regEx.Replace(sReplaceIn, sWithThis) ReplaceTest = sReplaceIn Set regEx = Nothing End Function sTekst = "in deze tekst staat dus een smilie :grin:" sTekst = ReplaceTest(sTekst, ":D", "<img src='teeth.gif'") response.write sTekst %> [/code:1:82d2ea825b] De functie retourneert dus de omgezette string. Deze kan je rechtstreeks wegschrijven met [i:82d2ea825b]response.write ReplaceTest(...)[/i:82d2ea825b] of zoals in het voorbeeld eerst toewijzen aan een variabele.

[anoniem]

Goed, ik kan me hier natuurlijk ontzettend vergissen, maar vbscript heeft toch standaard een replace functie. Waarom zou je deze herschrijven ? [code:1:cf3c02c90a] sTekst = "Tekst met smiley :smile:" sTekst = Replace(sTekst, ":)", "<Img Src=""smile.gif"">" Respone.write(sTekst) [/code:1:cf3c02c90a] Ik gebruik hetzelfde op mijn site.. Elja

[anoniem]

Je hebt helemaal gelijk, Elja. Een simpele string replace is hier beter op z'n plaats (zal ook sneller zijn). Maar, ja, dan hebben we ook meteen een werkend voorbeeldje met het reqexp object. :smile:

[anoniem]

ja weet ik dat vbscript replace functie heeft. alleen was ik dus op microsoft site en daar was een voorbeeld. dus heb ik die gecopieerd :grin: btw ik heb dat geprobeerd(alleen replace zonder regExp), maar dat werkte ook al niet! Ik gebruik hetzelfde op mijn site.. lol, bedoel je met smilies of watte? Ik dacht dat ik alleen zo slim was :grin::D:D , damn!!!! [ Dit Bericht is bewerkt door: computernerd op 2002-03-05 13:11 ]

[anoniem]

Ohja, sorry.. heb er wat tikvoutjes in zitten. Zo moet ie wel werken, hem 'm ditmaal getest. [code:1:4df9ad1f76] <% sTekst = "Tekst met smiley :smile:" sTekst = Replace(sTekst, ":)", "<Img Src=""smile.gif"">") Response.write(sTekst) %> [/code:1:4df9ad1f76] En dan moet je de smile natuurlijk weer omzetten in de code.. Elja [edit] En smileys op een site is natuurlijk niet echt orgineel meer wel vrolijkt de boel wel op he.. [/edit] _________________ [url]www.mydiary.nl/[/url] [ Dit Bericht is bewerkt door: Elja Trum op 2002-03-07 09:47 ]

[anoniem]

<% sTekst = "Tekst met smiley " sTekst = Replace(sTekst, ":)", "<Img Src=""smile.gif"">") Response.write(sTekst) %> ok mensen deze werkt maar!!!! ik wou dus meerdere smilies mogelijk maken dus....deed ik dit: (btw elja thanks homie!) sTekst = verkrijgStuffUitDeDatabase sTekst = Replace(sTekst, ":)", "<Img Src=""smile.gif"">") sTekst = Replace(sTekst, ":D", "<Img Src=""teeth.gif"">") Response.write(sTekst) zoals computerminnend nederland ziet (:D) wil ik dus meerder smilies op mn site mogelijk maken maar ik krijg steevasr t eerste smiley afgedrukt en geen tweede (en evt. derde vierde...) alé mensen moet ik hier een array van bouwe? dus myArray = new Array(":D", ":)", ":S") iets in die trand? bvd

[anoniem]

[quote:d6c4f08cf4] [b:d6c4f08cf4]Op 07-03-2002 19:38, schreef computernerd o.a.:[/b:d6c4f08cf4] ...zoals computerminnend nederland ziet (:D) wil ik dus meerder smilies op mn site mogelijk maken maar ik krijg steevasr t eerste smiley afgedrukt en geen tweede (en evt. derde vierde...) alé mensen moet ik hier een array van bouwe? dus myArray = new Array(":D", ":)", ":S") [/quote:d6c4f08cf4] Nee, een array is nergens voor nodig. De code die je hier laat zien is overigens helemaal in orde. Dus er moet iets fout zitten in een ander deel van je code (of eventueel in je test-string). De enige reden die ik kan bedenken om een array te gebruiken is om bij grote aantallen smilies de code wat korter te krijgen. Maar dan zal je in de array ook de paden naar de smilies op moeten slaan.

[anoniem]

dus deze code is in orde?: sTekst = verkrijgStuffUitDeDatabase sTekst = Replace(sTekst, ":)", "<Img Src=""smile.gif"">") sTekst = Replace(sTekst, ":D", "<Img Src=""teeth.gif"">") Response.write(sTekst) volgens mij is deze code niet in orde

[anoniem]

hebbez!!! Dim sTekst1, sTekst2 sTekst1 = Replace(strStory, ":D", "<img src='s/teeth.gif'>") sTekst2 = Replace(sTekst1, ":S", "<img src='s/confused.gif'>") Response.write sTekst2 lol. :grin::D:D