styring af antal tegn i en streng!

Response.write(Left(tekst, 100))

<%
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
%>

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

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...

hvad så hvis jeg vil vise de næste hundrede i strengen og kan jeg starte med at tælle antal tegn.

Hvordan vælger man at se hele teksten er det et link?

<A href=\"side.asp\"><%= CutString %></A>

det er bare en underside hvor jeg henter en tekst fra en database og siger response.write rs(\"tekst\").

jeg kan ikke få din funktion til at virke! Hvad er intStr i funktionen? mener du intcut eller instr?

<A href=\"side.asp\"><%= CutString(\"En tekst som bliver klippet\",15) %></A>
Er det bare dette?

intCut er hvor mange karakter som skal vises.

response.write CutString(rs(\"tekst\"), 100)

den vil ikke virke - hvis jeg f.eks bare skriver dette:
response.write CutString(rs(\"broedtekst\"),100)
så skriver den at typerne ikke stemmer overens!

jeg mener:

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

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

hvad gør jeg galt? den kommer ikke med nogen fejlmeddelse

Den første virker fint for mig:

<%
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
%>

<%= CutString(\"En tekst som bliver klippet\",15) %>

Husk ikke at have Option Explicit på.

ok, problemet var at den ikke kunne tage dette:
CutString(rs(\"tekst\"),100)
så jeg gjorde sådan istedet:
tekst = rs(\"broedtekst\")
CutString(tekst,100)%>

Iøvrigt: Kan man gøre dette så det er linier istedet for tegn?

den anden function skal være og ikke som jeg skrev første gang:

<%
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
%>

hvordan kan jeg læse de udskrive midterteksten, dvs. fra tegn 100 til tegn 200?

Hvordan kan jeg få vist fra tegn 100 til tegn 200?

den lette løsning er:
dinStr = mid(dinStr,100,(200-100))

Eller sådan noget:

Function CutString (YouString, intStart, intCut)
if len(YouString) > intCut then
  if len(YouString) > intStart then
    if intStart > 1 then
      posstart = InStr(intStart,YouString," ")
    else
      posstart = 1
    end if
    posslut = InStrRev(YouString, " ", intCut)
    if (posslut > posstart) then
      CutString = Mid(YouString, posstart, (posslut-posstart)) & "..."
      Exit Function
    end if
  end if
end if
CutString = YouString
End function

response.write CutString(dinStr,100,200)