---
title: "Citat funktion? Citera ngn som citerat någon."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/127027-citat-funktion-citera-ngn-som-citerat-någon"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "znyder"
published: "2005-04-25T07:09:28.000Z"
updated: "2005-04-25T08:41:58.000Z"
replies: 2
views: 295
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/127027-citat-funktion-citera-ngn-som-citerat-någon"
---

# Citat funktion? Citera ngn som citerat någon.

## #1 — znyder, 2005-04-25T07:09Z

Hej :D
Med tanke på rubriken så har jag Stoora problem med detta...

Jag använder denna kod:

```
objRegExp.Pattern = "\[CITAT=(.*?)](.*?)\[/CITAT\]"
str = objRegExp.Replace(str, "<BR><FONT COLOR=""" & color9 & """>Citat av <A HREF=""profil.asp?anv_namn=$1"">$1</A><BR>$2</FONT>")
```

 

Om jag citerar någon så blirre megabra.
Men om jag citerar någon som redan har citerat någon, ex kod:

> Jag det är nästan som om detta citat är bättre lämpat.
>
>
> > JAG E MYCKET BÄTTRE

Och då blir det helt f\*\*\*\*d up... 
Någon som har någon juste kod? För jag har INGEN aning om hur man ska göra...

Permalänk: https://www.webforum.nu/p/127027

## #2 — znyder, 2005-04-25T07:10Z

Såhär ser det ut om jag kör ett "dubbel citat".

```
Citat
[citat2]hej, jag är bäst och jag är verkligen Znyder men måste testa ett script som jag skrev. 

HAHA![/citat] 

DUBBEL HAHA
```

Nu fick jag lägga till en 2 i citat eftersom WF använder samma kod...

Permalänk: https://www.webforum.nu/p/1599312

## #3 — znyder, 2005-04-25T08:41Z

Löste det själv, kanske inte världens bästa kod...

```
Function link(mess,antalet)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true

For i = 1 To antalet
objRegExp.Pattern = "\[citat\](.*|\s)\[\/citat\]"
mess = objRegExp.Replace(mess,"<blockquote><B style=""font-size: 9px"">Citat: </b><hr class=""mess4"" size=""1""><I>$1</I><hr class=""mess4"" size=""1""></blockquote>")

objRegExp.Pattern = "\[citat=(.*)\](.*|\s)\[\/citat\]"
mess = objRegExp.Replace(mess,"<blockquote><B style=""font-size: 9px"">$1</b> <font style=""font-size: 9px"">skrev: </font><hr class=""mess4"" size=""1""><I>$2</I><hr class=""mess4"" size=""1""></blockquote>")
Next

link = mess
End Function
```

Sen räknade jag ut hur många CITAT det var i svaret...
AJA ;D

Permalänk: https://www.webforum.nu/p/1599346

---

Tråden på webben: https://www.webforum.nu/amne/asp/127027-citat-funktion-citera-ngn-som-citerat-någon