--- title: "RegExp - Tillåt lite koder liknande HTML." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/169754-regexp-tillåt-lite-koder-liknande-html" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Akerlundh" published: "2008-03-09T21:41:38.000Z" updated: "2008-03-10T11:24:54.000Z" replies: 16 views: 786 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/169754-regexp-tillåt-lite-koder-liknande-html" --- # RegExp - Tillåt lite koder liknande HTML. ## #1 — Akerlundh, 2008-03-09T21:41Z Hejsan. Jag har läst lite arliklar om regexp nu och sökt lite i forumet. Det är några tecken jag vill att man ska kunna använda i mitt nyhetsscript. Men jag har fastnat totalt i koden nu. Detta är allt jag har fått fram, men vad jag har förstått så måste det finnas mer saker för att den ska fungera. Något i stil med function i början utav koden. ``` With New RegExp .Global = True .IgnoreCase = True .Pattern = "\[i\]([\w\W]*?)\[/i\]" strValue = .Replace(strValue,"$1") .Pattern = "\[u\]([\w\W]*?)\[/u\]" strValue = .Replace(strValue,"$1") .Pattern = "\[img\]([\w\W]*?)\[/img\]" strValue = .Replace(strValue,"") .Pattern = "\[red\]([\w\W]*?)\[/red\]" strValue = .Replace(strValue,"$1") End With ``` Någon som kan hälpa mig att vidar utveckla koden. Och gärna förklara hur jag ska använda den ihop med denna lilla kod snutt. ``` <%=objRS("värde")%> ``` Permalänk: https://www.webforum.nu/p/169754 ## #2 — voigtann1, 2008-03-09T21:52Z ``` With New RegExp strValue = replace(strValue,"<", "<") strValue = replace(strValue,">", ">") .Global = True .IgnoreCase = True .Pattern = "\[i\]([\w\W]*?)\[/i\]" strValue = .Replace(strValue,"$1") .Pattern = "\[u\]([\w\W]*?)\[/u\]" strValue = .Replace(strValue,"$1") .Pattern = "\[img\]([\w\W]*?)\[/img\]" strValue = .Replace(strValue,"") .Pattern = "\[red\]([\w\W]*?)\[/red\]" strValue = .Replace(strValue,"$1") End With ``` borde räcka (ej RegExp)... eller vill du plocka bort alla html taggar innan du kör dom andra scripten?eller vill du tillåta vanliga html taggar (som du själv bestämmer?) red. Missförstod dig ``` Function MakeHTML(strValue) With New RegExp .Global = True .IgnoreCase = True .Pattern = "\[i\]([\w\W]*?)\[/i\]" strValue = .Replace(strValue,"$1") .Pattern = "\[u\]([\w\W]*?)\[/u\]" strValue = .Replace(strValue,"$1") .Pattern = "\[img\]([\w\W]*?)\[/img\]" strValue = .Replace(strValue,"") .Pattern = "\[red\]([\w\W]*?)\[/red\]" strValue = .Replace(strValue,"$1") End With MakeHTML = strValue End Function Response.Write MakeHTML(Recset("something")) ``` Permalänk: https://www.webforum.nu/p/2087117 ## #3 — Akerlundh, 2008-03-09T22:06Z /red Så här skriver jag istället. Så denna koden fungerar då och gör även så att man inte kan använda några andra html uttryck? Och då även så att det blir automatiskt radbryte? (Ändrade lite i koden) ``` Function MakeHTML(strValue) With New RegExp strValue = replace(strValue,"<", "<") strValue = replace(strValue,">", ">") strValue = replace(str, vbCrLf, "
") .Global = True .IgnoreCase = True .Pattern = "\[i\]([\w\W]*?)\[/i\]" strValue = .Replace(strValue,"$1") .Pattern = "\[u\]([\w\W]*?)\[/u\]" strValue = .Replace(strValue,"$1") .Pattern = "\[img\]([\w\W]*?)\[/img\]" strValue = .Replace(strValue,"") .Pattern = "\[red\]([\w\W]*?)\[/red\]" strValue = .Replace(strValue,"$1") End With MakeHTML = strValue End Function Response.Write MakeHTML(Recset("something")) ``` Permalänk: https://www.webforum.nu/p/2087120 ## #4 — voigtann1, 2008-03-09T22:26Z ja om du vill ersätta alla \ taggar till "inget" så får du göra ett RegExp uttryck för det. dvs: "\hej\" på dig blir "hej på dig": Högst upp efter With ``` .Pattern = "]+>" strValue = .Replace(strValue,"") ``` Permalänk: https://www.webforum.nu/p/2087123 ## #5 — Akerlundh, 2008-03-09T22:40Z Okej. Nu får jag detta felet Körningsfel i Microsoft VBScript fel '800a005e' Ogiltig användning av Null: 'replace' Och raden det är fel på ser ut så här. ``` strValue = replace(strValue,"<", "<") ``` Jag testade tabort den raden innan men då skriver den inte ut något ifrån den kolumnen jag valt. Jag skriver ut allt igenom denna koden ``` <%=MakeHTML(objRS("news"))%> ``` Permalänk: https://www.webforum.nu/p/2087124 ## #6 — voigtann1, 2008-03-09T22:43Z För ditt ObjRs innehåller ingen data: ``` <%=MakeHTML(objRS("news") & "")%> ``` Permalänk: https://www.webforum.nu/p/2087126 ## #7 — Akerlundh, 2008-03-09T22:46Z Opps, gjorde en miss där! Men nu innehåller det data men skriver inte ut något endå! /red Skriver jag ut det vanligt utan att använda Replace så skriver det ut data. Permalänk: https://www.webforum.nu/p/2087128 ## #8 — voigtann1, 2008-03-09T22:47Z du skriver fel: ``` strValue = replace(str, vbCrLf, "
") ``` str finns inte = tomt: ``` strValue = replace([b]strValue[/b], vbCrLf, "
") ``` Permalänk: https://www.webforum.nu/p/2087129 ## #9 — Akerlundh, 2008-03-09T22:50Z Ajdå! Vad mycket missar. Men nu verkar allt stämma. men om jag skriver så visar den ingenting utav det, verkar som den hoppar över Permalänk: https://www.webforum.nu/p/2087130 ## #10 — voigtann1, 2008-03-09T22:52Z för det första så förstår jag inte hur din funktion klara sig: ``` .Pattern = "\[img\]([\w\W]*?)\[/img\]" strValue = .Replace(strValue,"") ``` Den koden borde inte fungera: ``` .Pattern = "\[img\]([\w\W]*?)\[/img\]" strValue = .Replace(strValue,"") ``` Permalänk: https://www.webforum.nu/p/2087131 ## #11 — Akerlundh, 2008-03-09T22:55Z > **voigtann1 skrev:** > > för det första så förstår jag inte hur din funktion klara sig: > > > ``` > .Pattern = "\[img\]([\w\W]*?)\[/img\]" > strValue = .Replace(strValue,"") > ``` > > Den koden borde inte fungera: > > > ``` > .Pattern = "\[img\]([\w\W]*?)\[/img\]" > strValue = .Replace(strValue,"") > ``` Jag hade inte skrivit med "" utan med '' så därför den funderade förmodligen. Men den du skrev nu gör ingen skillnad. Permalänk: https://www.webforum.nu/p/2087132 ## #12 — voigtann1, 2008-03-09T22:56Z Visa källa och se vad som händer vad skickar du in till funktionen och vad skrivs ut från funktionen? Permalänk: https://www.webforum.nu/p/2087134 ## #13 — Akerlundh, 2008-03-09T22:57Z > **voigtann1 skrev:** > > Visa källa och se vad som händer vad skickar du in till funktionen och vad skrivs ut från funktionen? Hur menar du nu? Att ja ska visa källan i typ IE eller FF och kolla om koden skrivs ut ? Är lite lost nu! Permalänk: https://www.webforum.nu/p/2087136 ## #14 — voigtann1, 2008-03-09T23:05Z Ja.. Visa källa för att se vad som skrivs ut. Jag testade: asdas![](http://www.webforum.nu/images/wfstandard/logo_webforum.gif) och det fungerade för mig: ``` Function MakeHTML(strValue) strValue = replace(strValue,"<", "<") strValue = replace(strValue,">", ">") strValue = replace(strValue, vbCrLf, "
") With New RegExp .Global = True .IgnoreCase = True .Pattern = "\[i\]([\w\W]*?)\[/i\]" strValue = .Replace(strValue,"$1") .Pattern = "\[u\]([\w\W]*?)\[/u\]" strValue = .Replace(strValue,"$1") .Pattern = "\[img\]([\w\W]*?)\[/img\]" strValue = .Replace(strValue,"") .Pattern = "\[red\]([\w\W]*?)\[/red\]" strValue = .Replace(strValue,"$1") End With MakeHTML = strValue End Function ``` ``` Response.Write MakeHTML("asdas[img]http://www.webforum.nu/images/wfstandard/logo_webforum.gif[/img]") ``` Permalänk: https://www.webforum.nu/p/2087138 ## #15 — Akerlundh, 2008-03-09T23:08Z Nu funkar det för mig. Dock visar han inte bilden men den finns med i källkoden så nu är det bara någon liten finjustering som behövs! Tack för hjälpen! Permalänk: https://www.webforum.nu/p/2087140 ## #16 — voigtann1, 2008-03-10T09:08Z vad blir fel? Hur ser texten ut innan funktionen körs och hur ser texten ut efter att funktionen har körts? Permalänk: https://www.webforum.nu/p/2087168 ## #17 — Akerlundh, 2008-03-10T11:24Z > **voigtann1 skrev:** > > vad blir fel? Hur ser texten ut innan funktionen körs och hur ser texten ut efter att funktionen har körts? Det funkade sen. Startade om FF sen laddade den bilden riktigt. Tack för hjälpen! Permalänk: https://www.webforum.nu/p/2087200 --- Tråden på webben: https://www.webforum.nu/amne/asp/169754-regexp-tillåt-lite-koder-liknande-html