Antal teng

inputStr = rs("nyheden")
MAX_WORD_COUNT = 20
wordCount = 0
newArr = split(inputStr," ")
outputStr = ""
do while (wordCount < UBOUND(newArr)) AND (wordCount < MAX_WORD_COUNT)
  outputStr = outputStr & newArr(wordCount) & " "
  wordCount = wordCount + 1
loop

Response.Write outputStr

mvh.
www.questis.dk

<% response.write ( rsbilleder("danskTekst"), 50 ) %>

klas -> rsbilleder er det dit rs? også et eller noget eks. rs("etelleranet")

hm.... foresten er det eneste du skal ændre i den af min:

rs("nyheden") til det du skal udskrive

questis -> er klas ikke nemrer elelr det der...

hvis du ukritsik vi havde 50 tegn så benyt LEFT..

response.write LEFT(request.form("navn"),50)

eller fra recordset:
response.write LEFT(rs("kolonnenavn"),50)

eagleeye -> hvis nu jeg vil kun have ud skrive 50 men hele ordet? og komerm der nolge ...

Så skal der lidt mere kode til men denne function kan gøre det:



Function CutString (YourString, intCut)
if len(YourString) > intCut then
  posstart = InStrRev(YourString, " ",intCut)
  if (posstart <> 0) then
    YourString = Left(YourString, posstart) & "..."
    Exit Function
  end if
end if
CutString = YourString
End function

Response.write CutString(rs("kolonnnenavn"),50)

ups sådan her:

Function CutString (YourString, intCut)
if len(YourString) > intCut then
  posstart = InStrRev(YourString, " ",intCut)
  if (posstart <> 0) then
    CutString = Left(YourString, posstart) & "..."
    Exit Function
  end if
end if
CutString = YourString
End function

I det jeg skrev skal du ændre det til dit eget RS . . Og som eagleeye skrev - så kan det godt passe at der skal et LEFT ind - Det var der også i min egen kode, men jeg tænkte at det var noget Align"left" - Så jeg fjernede det inden jeg postede det  ;o)

eagleeye -> den virker meget lang...

drop det med om det er langt, det kan sgu da være lige fedt

man kan vist ikke lave det meget kortere....

okey jeg for ikke kigget på det i dag =( jeg håber jeg for leget med det i morgen....