--- title: "Visa formaterad text" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/153593-visa-formaterad-text" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "WebbisNet" published: "2006-11-10T15:16:44.000Z" updated: "2006-11-10T20:09:08.000Z" replies: 6 views: 511 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/153593-visa-formaterad-text" --- # Visa formaterad text ## #1 — WebbisNet, 2006-11-10T15:16Z För vip medlemmar kan man formatera texten genom att skriva den inom () och {} de som är vip kan se den formaterade texten men den som inte är vip ser inte den formaterade texten de ser bara ex (här är lite text) jag vill att även icke vip ska kunna se den formaterade texten utan att kunna formatera den, just nu så funkar bara att de inte kan formatera ``` <%If showAll("vip") = 1 Then textToCheck=convertLink(replace(maketext(makeHtml(showAll("klotterText"))),vbCrLf,"
")) &"" Else textToCheck=replace(showAll("klotterText"),vbCrLf,"
") &"" End If ``` ``` if showAll("vip") = int(1) then function maketext(byVal inpt) Dim inp:inp=inpt inp = Replace(inp,"","

",1,-1,1) inp = Replace(inp,"","

",1,-1,1) inp = Replace(inp,"<äggkorg>","

",1,-1,1) inp = Replace(inp,"","

",1,-1,1) inp = Replace(inp,"{","",1,-1,1) inp = Replace(inp,"}","",1,-1,1) inp = Replace(inp,"(","",1,-1,1) inp = Replace(inp,")","",1,-1,1) inp = Replace(inp,"","<marquee>",1,-1,1) inp = Replace(inp,"blue","white",1,-1,1) inp = Replace(inp,"",""&showAll("username")&"",1,-1,1) inp = Replace(inp,"","Hej på er alla, hur är det med er?",1,-1,1) inp = Replace(inp,"","Kom igen nu och lajva lite mera *ler*",1,-1,1) inp = Replace(inp,"","

",1,-1,1) inp = Replace(inp,"","

",1,-1,1) maketext = inp end function end if ``` Permalänk: https://www.webforum.nu/p/153593 ## #2 — doggelito, 2006-11-10T16:06Z inte för att jag förstår vad du menar men lite kan jag väl påpeka! :) man lägger aldrig en iftagg runt en function. detta för att functionen i sig kommer ingen åt att kunna använda, den aktiveras bara där du vill det i koden. sen ang. din fråga, är det funktionen du bifogat som alla ska använda? ``` If showAll("vip") = 1 Then textToCheck=convertLink(replace(maketext(makeHtml(showAll("klotterText"))),vbCrLf,"
")) &"" Else textToCheck=replace(maketext(showAll("klotterText")),vbCrLf,"
") &"" End If function maketext(byVal inpt) Dim inp:inp=inpt inp = Replace(inp,"","

",1,-1,1) inp = Replace(inp,"","

",1,-1,1) inp = Replace(inp,"<äggkorg>","

",1,-1,1) inp = Replace(inp,"","

",1,-1,1) maketext = inp end function ``` Permalänk: https://www.webforum.nu/p/1894699 ## #3 — WebbisNet, 2006-11-10T16:10Z Funktionen jag bifogade kan bara VIP använda och eftersom formateringen bara ska ske på ett ställe så funkar den bra, vill bara att ickeVIP inte ska kunna formatera text utan bara kunna se den formaterade texten precis som VIP-medlemmar självklart kan göra > **doggelito skrev:** > > inte för att jag förstår vad du menar men lite kan jag väl påpeka! :) > man lägger aldrig en iftagg runt en function. > detta för att functionen i sig kommer ingen åt att kunna använda, den aktiveras bara där du vill det i koden. > > sen ang. din fråga, är det funktionen du bifogat som alla ska använda? > > > ``` > If showAll("vip") = 1 Then > textToCheck=convertLink(replace(maketext(makeHtml(showAll("klotterText"))),vbCrLf,"
")) &"" > Else > textToCheck=replace(maketext(showAll("klotterText")),vbCrLf,"
") &"" > End If > > > > > > function maketext(byVal inpt) > Dim inp:inp=inpt > inp = Replace(inp,"","

",1,-1,1) > inp = Replace(inp,"","

",1,-1,1) > inp = Replace(inp,"<äggkorg>","

",1,-1,1) > inp = Replace(inp,"","

",1,-1,1) > inp = Replace(inp,"{","",1,-1,1) > inp = Replace(inp,"}","",1,-1,1) > inp = Replace(inp,"(","",1,-1,1) > inp = Replace(inp,")","",1,-1,1) > inp = Replace(inp,"","<marquee>",1,-1,1) > > inp = Replace(inp,"blue","white",1,-1,1) > inp = Replace(inp,"",""&showAll("username")&"",1,-1,1) > inp = Replace(inp,"","Hej på er alla, hur är det med er?",1,-1,1) > inp = Replace(inp,"","Kom igen nu och lajva lite mera *ler*",1,-1,1) > inp = Replace(inp,"","

",1,-1,1) > inp = Replace(inp,"","

",1,-1,1) > maketext = inp > end function > ``` Permalänk: https://www.webforum.nu/p/1894701 ## #4 — doggelito, 2006-11-10T16:21Z jag är ledsen men jag fattar nog ändå inte vad du är ute efter! :q > **WebbisNet skrev:** > > Funktionen jag bifogade kan bara VIP använda Så, om funktionen: maketext formaterar inputtexten kan du då inte bara visa inputtexten rakt av då? eller är det vissa delar av inputtexten du vill visa? Permalänk: https://www.webforum.nu/p/1894705 ## #5 — WebbisNet, 2006-11-10T16:26Z makeText gör att man formatera och se den formaterade texten för VIP, men är man inte vip ska man bara kuna se den formaterade texten utan att kunna formatera den Permalänk: https://www.webforum.nu/p/1894706 ## #6 — doggelito, 2006-11-10T19:01Z > **WebbisNet skrev:** > > är man inte vip ska man bara kuna se den formaterade texten utan att kunna formatera den Tyvärr, men jag fattar ändå inte riktigt! Men jag får känslan av att du slagit ihop två olika funktioner i en, dels när en användare skriver något, dels när en användare ser något. Fråga 1: Använder du maketext till båda dessa? Så här har jag fattat det: Scenario: 1\. En användare skriver text med div. kodtaggar i en textarea och sparar till databas, tex.: blabla\balabla\blabla Fråga 2: Vill du formatera denna text, om ja, varför? 2\. Användaren har sparat informationen till databasen och vill se den. Fråga 3: Är det här du kör maketext-funktionen för att formatera dina taggar? Om ja, varför kan du inte köra maketext för alla här, oavsett vip eller inte? Du har en massa andra funktioner som du använder: convertlink, showall, makehtml, har dessa med din fråga att göra? Permalänk: https://www.webforum.nu/p/1894749 ## #7 — emission, 2006-11-10T20:09Z > **WebbisNet skrev:** > > makeText gör att man formatera och se den formaterade texten för VIP, men är man inte vip ska man bara kuna se den formaterade texten utan att kunna formatera den Precis, så kör bara funktionen om texten kommer från en vip, annars inte. Permalänk: https://www.webforum.nu/p/1894773 --- Tråden på webben: https://www.webforum.nu/amne/asp/153593-visa-formaterad-text