PRE gebruiken maar na 50 characters een BR plaatse

[DroomDoos]

Hallo allemaal,

 

Ik wil een uitgelezen string met <PRE> laten weergeven, maar na 50 karakters moet een <BR> komen (automatisch)

Is dit mogelijk?

 

p.s. ik gebruik ASP

 

DroomDoos

[Gast]

Ja dat kan lees eerst de eerste 50 charaters in, in een andere string bijv:

 

Newstr = Mid(orgstring, 1, 50)

Response.Write Newstr & "<br>"

orgstring = right(orgstring,len(orgstring)-50)

 

Loop maken en nog ff testen waarneer je geen data meer hebt klaar.

 

Rebel

[DroomDoos]

Damn, waarom ziet het er elke keer weer zo simpel uit als jij het typt <img src="/ubbthreads/images/graemlins/smile.gif" alt="" /> Hahaha, ga weer aan de slag. Thnx again Rebel87

[DroomDoos]

Ja, werkt:

bodyTXT = Request.Form("messagebody")

 

DO WHILE len(bodyTXT)> 50

Newstr = Mid(bodyTXT, 1, 50)

Response.Write Newstr & "<br>"

bodyTXT = right(bodyTXT,len(bodyTXT)-50)

Loop

Response.Write(bodyTXT)

 

 

 

Is het nu ook nog te maken dat hij een soort van wrap doet bij spaties?

Of stel ik veel te veel vragen <img src="/ubbthreads/images/graemlins/anoniem.gif" alt="" />

 

Rob

[Gast]

Zo zie je maar het leven is niet zichtloos.

 

Ehhhh wrap

 

Zoek in de tekst naar 2 spaties " " met zoektxt = Replace(zoektxt, " ", " ")

doe dit net zolang totdat hij niks meer vindt dan geeft hij namelijk een errorresult.

Nu staan er dus alleen nog enkele spaties in de tekst.

 

Hier vindt je de exacte syntax http://www.asp-help.com/getstarted/ms/vbscript/142.asp

 

Suc6

 

Rebel

[DroomDoos]

Deze begrijp ik niet helemaal... 2 spaties?

Ik snap dat ik moet gaan kijken naar de laatste spatie en deze moet vervangen door een <BR> maar hoe kan ik nou zien dat ik bij de laatste spatie ben? Of kan ik ook vanaf achter beginnen met de replace functie... Ofzoiets.

 

<img src="/ubbthreads/images/graemlins/lezen.gif" alt="" />

[Gast]

Ok ff een kink in de kabel.

 

Met trim functie trim(regeltxt) haal je alle spaties aan het einde en begin weg maar niet tussen de text.

Met replace vervang je alle dubbele spaties totdat er alleen enkele overblijven ook tussen de text.

 

dus "ik loop" wordt met replace "ik loop"

met trim " ik loop " wordt "ik loop"

 

samen eerste trim daarna replace " ik loop " wordt "ik loop"

 

Suc6

 

Rebel

[Gast]

Hetzelfde gebeurt met dit forum zodat mijn voorbeeld in het water valt.:-)

 

Rebel

[DroomDoos]

Ja hier worden dubbele spaties ook vervangen door enkele maar dat is niet helemaal wat ik zoek denk ik.

Ik wil mijn tekst die getypt wordt in een textarea met pre laten wegeven met maximaal 50 karakters per regel, maar hij moet kunnen afbreken bij de laatste spatie.

Dus dan zou ik moeten krijgen

"DIT IS EEN VOORBEELD TEKST EN HIER WORDT OVERGEGAAN

NAAR DE VOLGENDE REGEL"

 

En niet

"DIT IS EEN VOORBEELD TEKST EN HIER WORDT OVERGEGAAN NA

AR DE VOLGENDE REGEL"

 

Benieuwd of het forum dit beeld niet vernacheld....

[Gast]

Ok nu begrijp ik je.

 

Wat mogelijk is als je de 50 characters extract van de orginele tekst of er op de 50ste knip positie geen character staat anders dan een spatie.

Zo ja lees dan van 50 terug tot de eerste spatie onthoud deze postie en plaats een <BR> lees van de knippositie weer 50 characters enzovoort.

 

Gebruik hiervoor bijv InstrRev(string1, string2[, start[, compare]]) deze geeft de positie terug van de eerste spatie vanaf het eind van de string naar 1.

 

Zo krijg jee een mooooooie tekst.

 

Moet toch lukken lijkt me.

 

Rebel