--- title: "HJÄLP! problem med regexp!" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/104808-hjälp-problem-med-regexp" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "goovie" published: "2004-06-02T11:22:10.000Z" updated: "2004-06-02T13:50:20.000Z" replies: 10 views: 308 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/104808-hjälp-problem-med-regexp" --- # HJÄLP! problem med regexp! ## #1 — goovie, 2004-06-02T11:22Z jag har försökt nu i två dagar att fixa så man kan använda taggar som man kan använda när man skriver i artiklar, gästböker m.m. för att få tjock stil på texten när man skriver text mellan taggarna som t.ex. **de här taggarna** jag har testat massor men inte fått dett att funka: scriptet är taget från joakimweb: [scriptet](http://www.joakimweb.se/webbutv/skriptarkiv/visa.asp?id=7) Permalänk: https://www.webforum.nu/p/104808 ## #2 — Jesper T, 2004-06-02T11:34Z Välkommen till WF goovie! Permalänk: https://www.webforum.nu/p/1360141 ## #3 — goovie, 2004-06-02T11:48Z i vilken av filerna ska jag ha regexp i, jag har testat att ha de i båda samtidigt. Permalänk: https://www.webforum.nu/p/1360146 ## #4 — Palle, 2004-06-02T12:04Z En variant.. Lägg regexp-koden i en funtion som du kan återanvända, anropa sedan funktionen där du vill skriva ut din behandlade text. ``` [red]<% Function makeOutput(str) str = trim(str) If Len(str) > 0 Then str = Replace(str, "<", "<") 'Convert html-code to safe-code str = Replace(str, ">", ">") 'Convert html-code to safe-code str = Replace(str, vbCrLf, "
") 'Convert form-brakes to html-brakes Set regExp = new regExp regExp.Global = True regExp.IgnoreCase = True regExp.Pattern = "\[b\]" : str = regExp.Replace(str, "") 'Convert to STRONG-style regExp.Pattern = "\[/b\]" : str = regExp.Replace(str, "") regExp.Pattern = "\[i\]" : str = regExp.Replace(str, "") 'Convert to ITALIC-style regExp.Pattern = "\[/i\]" : str = regExp.Replace(str, "") regExp.Pattern = "\[u\]" : str = regExp.Replace(str, "") 'Convert to UNDERLINE-style regExp.Pattern = "\[/u\]" : str = regExp.Replace(str, "") Set regExp = Nothing End If makeOutput = str End Function %> ... <%= makeOutput("String to convert..") %>[/red] ``` Permalänk: https://www.webforum.nu/p/1360149 ## #5 — goovie, 2004-06-02T12:29Z jag gjorde som du sa (tror jag), jag hittade raden: \<%text = server.htmlencode(RecSet("innehall"))%\> \<%= Replace(text,vbCrLf,"\")%\> och testade med: \<%= makeOutput("\<%text = server.htmlencode(RecSet("innehall"))%\>") %\> \<%= Replace(text,vbCrLf,"\")%\> och jag fick ett felmeddelande vad gjorde jag fel? Permalänk: https://www.webforum.nu/p/1360160 ## #6 — Jesper T, 2004-06-02T12:34Z ``` <%= makeOutput(RecSet("innehall"))%> ``` r/ Såg att radbrytningsreplacen redan fanns där... Permalänk: https://www.webforum.nu/p/1360162 ## #7 — Palle, 2004-06-02T12:35Z **Byt ut detta:** ``` [red]<%text = server.htmlencode(RecSet("innehall"))%> <%= Replace(text,vbCrLf,"
")%>[/red] ``` **Mot detta:** ``` [red]<%= makeOutput(RecSet("innehall")) %>[/red] ``` Permalänk: https://www.webforum.nu/p/1360165 ## #8 — Jesper T, 2004-06-02T12:38Z Palle, detta: ``` str = Replace(str, "<", "<") 'Convert html-code to safe-code str = Replace(str, ">", ">") 'Convert html-code to safe-code ``` Borde väl kunna ersättas av, str = server.htmlencode(str)? Permalänk: https://www.webforum.nu/p/1360166 ## #9 — goovie, 2004-06-02T12:48Z Tack för hjälpen, det funkar nu, men hur fixar jag det sen när jag ska fixa länkar. och när jag ändå är på farten kan jag väl fråga hur ska man koda så att man kan välja om en artikel ska visas, som på gruvsjo länkskript där man måste godkänna först, så att den visas. jag hittade Recset namn, av, datum Permalänk: https://www.webforum.nu/p/1360172 ## #10 — Palle, 2004-06-02T12:51Z Jesper T \>\> Jo, om man så vill.. dock har det en tendens att bli helt fel om man jobbar med *extended characters* och UTF-8. ;) ex. med *Server.HTMLEncode*: Våra öbor här på Öland äro jättesnälla! ex. utan *Server.HTMLEncode*: Våra öbor här på Öland äro jättesnälla! Permalänk: https://www.webforum.nu/p/1360175 ## #11 — Jesper T, 2004-06-02T13:50Z > **Palleman skrev:** > > Jo, om man så vill.. dock har det en tendens att bli helt fel om man jobbar med extended characters och UTF-8 ...var inte så petig nu. ;) Goovie du kan testa detta tillägg. ``` <% Function makeOutput(str) str = trim(replace(str,"http://","")) If Len(str) > 0 Then str = Replace(str, "<", "<") 'Convert html-code to safe-code str = Replace(str, ">", ">") 'Convert html-code to safe-code str = Replace(str, vbCrLf, "
") 'Convert form-brakes to html-brakes Set regExp = new regExp regExp.Global = True regExp.IgnoreCase = True regExp.Pattern = "\[b\]" : str = regExp.Replace(str, "") 'Convert to STRONG-style regExp.Pattern = "\[/b\]" : str = regExp.Replace(str, "") regExp.Pattern = "\[i\]" : str = regExp.Replace(str, "") 'Convert to ITALIC-style regExp.Pattern = "\[/i\]" : str = regExp.Replace(str, "") regExp.Pattern = "\[u\]" : str = regExp.Replace(str, "") 'Convert to UNDERLINE-style regExp.Pattern = "\[/u\]" : str = regExp.Replace(str, "") regExp.Pattern = "\[URL\]([^\[]*)\[/URL\]" str = regExp.Replace(str, "http://$1") Set regExp = Nothing End If makeOutput = str End Function %> ``` Permalänk: https://www.webforum.nu/p/1360210 --- Tråden på webben: https://www.webforum.nu/amne/asp/104808-hjälp-problem-med-regexp