Underoverskift med ...

Eksempel:

overskrift> Eksperten.dk styrer her
nyheden> Eksperten har i disse dage...

Ja det er muligt eks.vis:

<%
Function CutString (YouString, intCut)
if len(YouString) > intCut then
  posstart=instr (intCut, YouString, \" \")
  if (posstart <> 0) then
    CutString = Left(YouString, posstart) & \"...\"
    Exit Function
  end if
end if
CutString = YouString
End function
%>

response.write CutString (\"lang test som skal klippes\", 8)

Den første function klipper i første mellemrum efter intCut.

Denne function klipper i mellemrumet lige inden intCut, denne giver din maximalt intCut + 3 som længde (3 fra ...):

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

Jeg laver laver lige et eks:

YouString = \"En tekst som bliver klippet\"
intStr = 15  (l i bliver)
Første function giver : En tekst som bliver...
Anden function giver : En tekst som...

Men da jeg skal hente teksten fra en database, så er det vel bare at ud skifte YouString med: <%=RS(\"youstring\")%> ???

/labisama

du kan ligge functionen i toppen af filen og kalde den på denne måde, de 200 er bare et eks.:

response.write CutString (rs(\"DIT_FELT\"),200)

hvis det kun er et sted du skal bruge det kan du lave koden på  denne måde uden functions kald:

YourString = rs(\"DIT_FELT\")
intCut = 22
if len(YourString) > intCut then
  posstart=instr (intCut, YourString, \" \")
  if (posstart <> 0) then
    YourString = Left(YourString, posstart) & \"...\"
  end if
end if

Response.Write YourString

Sorry...fatter ikke så meget efter du også skrev den sidste kommentar :(

Pleas giv mig et kort eksempel af intCut:
Alle nyhederne står under hinanden fra databasen med en overskift, et billede og intCut under overskrift...

Altså hvordan skal det så se ud siden du skriver \"hvis det kun er et sted du skal bruge det..\", men her er det jo flere gange?

/labisama

intCut bruges til at bestemme hvor mange karakter som skal udskrives.

Her er et eks på en fil:

<%
Function CutString (YouString, intCut)
if len(YouString) > intCut then
  posstart = InStrRev(YouString, \" \",intCut)
  if (posstart <> 0) then
    CutString = Left(YouString, posstart) & \"...\"
  Exit Function
  end if
end if
CutString = YouString
End function
%>
<html>
<head>
<title>...</title>
</head>
<body>

<%
Response.Write CutString (\"Hej en test som klipper tekst\",12) & \"<br>\"
Response.Write CutString (\"Hej en test som klipper tekst\",34) & \"<br>\"
%>
</body>
</html>

Outputtet bliver:

Hej en test ...
Hej en test som klipper tekst

du har sikket et loop som udskriver fra din database.

do while not rs.EOF
  response.Write rs(\"Overskrift\") & \"<br>\"
  response.Write rs(\"underOverskrift\") & \"<br>\"
  rs.movenext
loop

Ved dem du ønsker at klippe skal du kalde cutstring:

do while not rs.EOF
  response.Write rs(\"Overskrift\") & \"<br>\"
  response.Write CutString(rs(\"underOverskrift\"),200) & \"<br>\"
  rs.movenext
loop

Fuck du er for fed :)....laaangtid spildt men her er svaret jo!

Mange tak, har du ikke et ICQ nr. eller noget jeg kan kontakte dig på ved sådan nogen store spørgsmål igen?

/labisama

Hej eagleeye!!!

DOH!!!.....har problemer sådan er mit site ikke bygget op så det passer til.

Her er et udsnit fra mit site:
strSQL = \"select top 5 * from nyheder ORDER BY id DESC\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"<font face=\"\"Arial\"\" size=\"\"2\"\">Databasen er tom.</font>\"
else
Do Until rs.EOF
%>
                  <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
                    <tr>
                      <td colspan=\"2\"><b><%=RS(\"overskrift\")%></b> / <font size=\"1\"><%=RS(\"dato\")%></font></td>
                    </tr>
                    <tr>
                      <td valign=\"top\" rowspan=\"2\"><img src=\"http://www.mitdomæne.dk/artikel-images/<%=RS(\"billede\")%>\" w idth=\"85\" height=\"50\" border=\"1\"></td>
                      <td valign=\"top\"><%=RS(\"underoverskrift\")%></td>
                    </tr>
                    <tr>
                      <td valign=\"top\" align=\"right\">[<A HREF=\"nyhed.asp?id=<%=RS(\"id\")%>\">Læs</A>]</td>
                    </tr>
                  </table>
<hr noshade size=\"2\" color=\"#FFFFFF\">
<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>

Hvordan vil du få det ind så?

/labisama

sorry det havde jeg ikke set.

du ligge functionen ind i toppen af asp filen:
Jeg går ud fra at underoverskrift skal klikkes, jeg har sat den til 200 karater som skal vises:

<%
Function CutString (YouString, intCut)
if len(YouString) > intCut then
  posstart = InStrRev(YouString, \" \",intCut)
  if (posstart <> 0) then
    CutString = Left(YouString, posstart) & \"...\"
  Exit Function
  end if
end if
CutString = YouString
End function
%>
<html>
<head>
<title>...</title>
</head>
<body>
<% \'her er din kode
strSQL = \"select top 5 * from nyheder ORDER BY id DESC\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"<font face=\"\"Arial\"\" size=\"\"2\"\">Databasen er tom.</font>\"
else
Do Until rs.EOF
%>
                  <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
                    <tr>
                      <td colspan=\"2\"><b><%=RS(\"overskrift\")%></b> / <font size=\"1\"><%=RS(\"dato\")%></font></td>
                    </tr>
                    <tr>
                      <td valign=\"top\" rowspan=\"2\"><img src=\"http://www.mitdomæne.dk/artikel-images/<%=RS(\"billede\")%>\" w idth=\"85\" height=\"50\" border=\"1\"></td>
                      <td valign=\"top\"><%=CutString(RS(\"underoverskrift\"),200)%></td>
                    </tr>
                    <tr>
                      <td valign=\"top\" align=\"right\">[<A HREF=\"nyhed.asp?id=<%=RS(\"id\")%>\">Læs</A>]</td>
                    </tr>
                  </table>
<hr noshade size=\"2\" color=\"#FFFFFF\">
<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>

Fuck du er fed! :)

Mange tak

Eller er du..jeg er heletiden for hurtig ude!

Nyt problem:
Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a005e\'

Null er brugt ugyldigt: \'InStrRev\'

/cutstring.asp, linje 5

Please hjælp igen..., men ellers så bare drop det, hvis det er helt umuligt er gået over til nyt system!

Jeg tror måske det fordi fu ikke har angivet en max længde.
Sådan bruges CutString:
CutString(string, MAX_LÆNGDE)
string er den streng som skal klippes.
MAX_LÆNGDE er antal karakter string skal klippes ved.
Eks:
CutString(rs(\"overskrift\",200)