Madness.nl | Scripts - Eerste xx aantal karakters

Hoofdmenu

•  Home
•  ASP Tips
•  Artikelen
•  ASP Lessen
•  Scripts
•  Opleidingen
•  Resources
•  Madness Forum
•  Nieuws
•  Adverteren?

Members

Inloggen
Registreer je nu!
Wachtwoord vergeten?

Laatste reacties

26-11 ASP en formulieren
09-06 ASP en databases
14-03 SQL de basis
28-02 Formulier > E-mail
07-08 Nieuwe versie Madne...

Madness.nl Forum

21:41 Te mooi om waar te ..
08:47 application
08:46 Domein Hosting
08:45 USB webserver
08:45 Eigen Scripts
08:44 Database paging
10:21 Even voorstellen?
10:18 Re: It agree, it is..
10:16 ASp.NET MVC
20:42 GPS-applicatie VB v..

Eerste xx aantal karakters

Terug naar scripts

Auteur: Highzone
Geplaatst op: 27-2-2004 11:56:46
Laatste update: 27-2-2004 12:01:36
Aantal keer bekeken: 19942
Download script (zip file)

Eerste xx aantal karakters

Omschrijving: Neem de eerste bijv 200 karakters van een tekst en voegt er ... op het einde aan toe. Heeft een paar betere ingebouwde eigenschappen.

Script:

Pagina: maxaantal.asp

<%
' Show first 200 characters of the text, whole words if possible
Response.Write TextPreview(HIER_TEXT, 200 )

And here is the function itself:

' TextPreview function
'
' Returns first portion of the text up to nChars characters
' Returns only whole words when possible
'
' strText - text
' nChars - number of characters to limit preview to
'
Function TextPreview(strText, nChars)
Dim nPos

    ' Uncomment next line to replace line breaks with spaces
' strText = Replace(strText, vbCrLf, " ")

' Check if it's longer than limit
    If Len(strText) > nChars And nChars > 4 Then
        ' Find the end of last whole word that we can use
        nPos = InStrRev(Left(strText, nChars - 3), " ")

        If nPos > 0 Then
           ' Take whole words only
            TextPreview = Left(strText, nPos) & "..."
        Else
            ' No spaces were found - take what we can
            TextPreview = Left(strText, nChars - 4) & " ..."
        End If
    Else
        ' Take nChars from the text
        TextPreview = Left(strText, nChars)
    End If
End Function
%>

Reacties

Reacties: Eerste xx aantal karakters (Aantal reacties: 4 )
» Nieuwe reactie	View Mode : \| \|

Door: Plopeye

Feb 10, 13:35

Zou dit ook bruikbaar zijn om de eerste 2 cijfers uit een postcode te extraheren en deze vervolgens weer in een string te stoppen ?
Dit is iets wat ik zeer binnenkort namelijk nodig zal zijn... En nu kan ik wel zelf het wiel uit gaan vinden maar waarom zou ik als er al iemand is die dit heeft uitgevonden...

(Reply...)

Door: bertdevil

Sep 20, 11:17

Dit script werkt goed

Thx

(Reply...)

Door: denz

Jul 21, 22:07

Wellicht een domme vraag.
Is het ook mogelijk deze functie toe te passen op een text die uit een database komt.

Bijvoorbeeld een product overzicht (meerdere producten onder elkaar), waarbij de omschrijving na 200 karakters wordt afgebroken?

(Reply...)

Door: Highzone

Jul 22, 20:16

ja, natuurlijk. Daarom zit het scriptje juist in een functie, zodat je dit steeds kunt herbruiken en niet steeds het hele script moet hercopiëren.
Het verschil met andere voorbelden is dat deze enkel de tekst afbreekt op het einde van een woord. Dus ga je geen situaties hebben van "Toen de regen neerk... " In plaats van zo een blunder heb je nu "Toen de regen neerkwam..."
Zie je het verschil ?
Hoe moet je die functie gebruiken ? Copy en plak het script tussen de <head>'s van je pagina.
Wat je doet als je een recordset opvraagt : TextPreview(rs("tekst"), 200 )
Dit doe je waar je ook maar wilt op de pagina, zoveel als je wilt. Je verander het cijfer naar 150 of 320, dit is zoals je wilt

(Reply...)

Scripts

Overzicht
Script insturen

Zoeken

Zoekterm(en):