Ej tillåta fler än 2st radbryt på rad...

rp = vbCrLf & vbCrLf & vbCrLf
Replace(<inlägg>, rp, "")

Kanske funkar...

[Redigerat av rymdknark den 17 apr 2001]

LYFTER!!

För nu börjar det krisa sig.. :(

Hoppas att någon fattar vad jag menar med mitt ovanstående inlägg...

------------------
Det är lättare att leva ett rikt liv som ung, när man vet att det väntar ett som gammal
E-post

Funkar inte rymdknarks metod?

------------------
Vide rox = new Vide();
rox.learn("C#");
webeye.nu

men det är väl bara om någon skriver 3st radbryt på rad som den tar bort allihop..!?! Eller har jag fatat det hela mkt fel..? :(

------------------
Det är lättare att leva ett rikt liv som ung, när man vet att det väntar ett som gammal
E-post

Mjo, iofs... testa med ett RegExp:

texten = "din text"
objRegExp.pattern = vbcrlf & "{3,}"
texten = objRegExp.replace(texten, "")

------------------
Vide rox = new Vide();
rox.learn("C#");
webeye.nu

Nu försvinner ALLA radbrytningar... :(

Måste väl gå att göra på något sätt så att OM det är mer än 3 radbrytningar på rad, MINSKA ner det till endast 1

------------------
Det är lättare att leva ett rikt liv som ung, när man vet att det väntar ett som gammal
E-post

[Redigerat av JAreMANNEN den 03 sep 2001]

Jag återkommer, tänkte fel.

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 03 sep 2001]

Jag tror inte att det är problemet. Säg snarare till de som masspostar att sluta upp annars anmäler du dem... banna deras IP, banna deras domän :e , släng kakor efter personer som masspostar exempelvis över 20 rader...

------------------
"It's not where ya from it's where ya at"

[Redigerat av Pace den 03 sep 2001]

Problemet är att de som besöker sidan oftast är i skolan, och jag kan jue inte banna flera skolor... :)

------------------
Det är lättare att leva ett rikt liv som ung, när man vet att det väntar ett som gammal
E-post

Hackade ihop ett skript

dim j,l,nj,cr
j = instr(post,VbCrLf)
l = len(post)
do while j > 0
   if  j + 4 >= l then exit do
   cr = 1
   j = j + 2
   do while mid(post,j,2) = VbCrLf
      cr = cr + 1
      j = j + 2
   loop
   if  cr >= 3 then
       post = mid(post,1,j-2*cr) & mid(post,j-1)
       l = l - 2*(cr-1)
       j = j - 2*(cr-1)
   end if
   nj = instr(mid(post,j),VbCrLf)
   if nj = 0 then exit do
   j = j + nj - 1
loop

Men jag tror också att det inte hjälper i längden. Det täpper till ett hål men det finns en hel del till.

------------------
essentitia preter non sans multiplicandum

Den koden raderar OCKSÅ alla radbrytningar... huh.. :q :(

------------------
Det är lättare att leva ett rikt liv som ung, när man vet att det väntar ett som gammal
E-post

Har du enbart radbrytningar i inlägget? Jag testar det fallet och återkommer förhoppningsvis.

red: fungerar.
------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 03 sep 2001]

mope, jag har lite smileys och text emellan...

------------------
Det är lättare att leva ett rikt liv som ung, när man vet att det väntar ett som gammal
E-post

Jag tycker att det fungerar för mig. Ersätter du vbcrlf med <br> innan du skriver ut?

------------------
essentitia preter non sans multiplicandum

Annat regexp?

Dim reManyLines, texten
texten = "din text" & vbCrLf & "rad två" & vbCrLf & vbCrLf  & vbCrLf & "rad tre" & vbCrLf & "sista raden"
reManyLines = new RegExp
reManyLines.pattern = "(\r\n){3,}"
texten = reManyLines.replace(texten, vbCrLf)

------------------
God, root, what is difference? /Pitr

[Redigerat av spango den 03 sep 2001]

Tack för det, ska kolla direkt när jag kommer hem ikväll!

------------------
Det är lättare att leva ett rikt liv som ung, när man vet att det väntar ett som gammal
E-post