maks. ord eller tegn skal vises

<%= left(rs("Kolonne"),ANTAL ORD)%>

Nu har jeg denne her, hvordan ændre jeg den?
<%=(Recordset1.Fields.Item("tekst").Value)%>

Fx.

<%
  arrTxt = Split(objRs("feltnavn"), " ")

  For i = LBound(arrTxt) To UBound(arrTxt)
    strTxt = strTxt & " " & arrTxt(i)
  Next

  Response.Write(strTxt)
%>

//>Rune

<%
  arrTxt = Split(Recordset1.Fields.Item("tekst").Value, " ")

  For i = LBound(arrTxt) To UBound(arrTxt)
    strTxt = strTxt & " " & arrTxt(i)
  Next

  Response.Write(strTxt)
%>

//>Rune

<%= left(Recordset1("tekst"),150)%>

150 = antal tegn der skal vises

medions>>undskyld hvis det lyder dumt men hvor definere jeg "maks antal ord" ?

Fun22> Læs nu hvad han spørger om, det er HELE ORD han vil ha', ikke kun 15 tegn!!

//>Rune

du kan måske lave noget i denne stil.

Function cutNews(strIn, words)
arr = split(strIn, " ")
for i = 0 To words - 1
  strOut = strOut & arr(i) & " "
next
cutNews = strOut
End Function

du kalder så function sådan her:
her vil jeg gerne have min nyhed <%= cutNews(Recordset1.Fields.Item("tekst").Value, 5)%>

Hov, undskyld, det er her:

<%
  intMax = 15
  arrTxt = Split(Recordset1.Fields.Item("tekst").Value, " ")

  For i = LBound(arrTxt) To intMax
    strTxt = strTxt & " " & arrTxt(i)
  Next

  Response.Write(strTxt)
%>

//>Rune

medions> så kan han jo skrive 200 tegn, eller hvor manger der skal til 15 ord.

Det er åbenlyst også det, der er spørgers hensigt!

Function cutNews(strIn, words)
arr = split(strIn, " ")
for i = 0 To (words - 1)
  strOut = strOut & arr(i) & " "
next
cutNews = strOut
End Function

netro> Hvad mener du?

fun22> Hvis nu det er en forskellig tekst der er der, så kan du jo aldrig vide hvor mange tegn 15 ord indeholder!

//>Rune

nej, men om det er lige 15 ord eller 14 et halvt...

Så kan han jo bare sætte '... læs mere' efter, og lave det til et link.

men nok om det. Nu gider jeg ikke diskutere det mere, da det jo er op til musti776 at vælge...

medions jeg får denne fejl
Error Type:
Microsoft VBScript runtime (0x800A0009)
Subscript out of range: 'i'
/opgave/default.asp, line 159

fun22, jeg kan bruge begge to, har fået din til at virke men vil også lige have medions

medions -> Jeg mener, at spørgsmålet er ret éntydigt, og derfor forstår jeg ikke, hvorfor fun22 bliver ved med at fable om tegn i stedet for ord.

Det er fordi der er mindre end 15 ord i den streng der kom ud...

Så skal du gøre sådan her:

  intMax = 15
  strTxt = "Dette er en test hvor jeg tester et par ord eller to"
  arrTxt = Split(strTxt, " ")
 
  If UBound(arrTxt) <= 15 Then
        For i = LBound(arrTxt) To UBound(arrTxt)
            strTxt = strTxt & " " & arrTxt(i)
        Next
  Else
        For i = LBound(arrTxt) To intMax
            strTxt = strTxt & " " & arrTxt(i)
        Next
  End If

  Response.Write(strTxt)

//>Rune

netro> Ahh okay, jeg skulle lige se hører hvem din kommentar var til ;o)

//>Rune

Altså alt i alt sådan her:

  intMax = 15
  strTxt = Recordset1.Fields.Item("tekst").Value
  arrTxt = Split(strTxt, " ")
 
  If UBound(arrTxt) <= 15 Then
        For i = LBound(arrTxt) To UBound(arrTxt)
            strTxt = strTxt & " " & arrTxt(i)
        Next
  Else
        For i = LBound(arrTxt) To intMax
            strTxt = strTxt & " " & arrTxt(i)
        Next
  End If

  Response.Write(strTxt)

//>Rune

medions > Jeg fatter ikke at du skriver: "Læs nu hvad han spørger om, det er HELE ORD han vil ha', ikke kun 15 tegn!!"

Prøv engang at læs overskriftet på dette spm.(maks. ord eller tegn skal vises), før du slynger skøre ting ud.

Thomas

For mig at se er det underordnet, da vi er nødt til at splitte strengen op ord for ord, for at undgå halve ord i slutningen. Af samme grund kan vi ikke nøjes med en Left(x, n).

nu virker det

jeg takker mange gange :)