Del Lang Streng

f.eks.:

<% Response.Write(Left(rs("tabelfelt"),50)) %>

- så kan du jo rette tallet så det passer med din tabel.

/Goose

- eller lidt mere avanceret:

<%
If len(rs("tabelfelt")) > 50 Then
Response.write(left(rs("tabelfelt"),50) & "...")
Else
Response.Write rs("tabelfelt")
end if
%>

/Goose

Hvad gør den så, får jeg så ikke kun de første 50 tegn ud ??

Jeg vil gerne have det hele ud

Vi er enige om at en Tabel er sådan en man bruger uden en database ikke!

For det ligner at du har et record set i dit svar

Jeg læser en lang streng ind fra en fil, denne streng ønsker jeg at opdele sådan at min tabel ikke blive rykket mærkeligt

Strengen kan sagtens være på 300 karaktere!

Så fostår jeg ikke dit spørgsmål.
Hvis du indsætter noget tekst i en tabel (html går jeg ud fra), så skulle den da geren lave linieombrydning og ikke røre ved din opsætning ??

Har du ikke en url ?

/Goose

Du skal bare først finde ud af hvor mange karakter der går på dine 100px...hvis nu vi siger 100karakterer så deler du den sådan her
<%
max = 100
pointer = 1
tekst = "meget lang tekst på 5000 eller andet karakterer"
for i=1 to len(tekst)
  if pointer = max then
    nyTekst = nyTekst & "<br/>
    pointer = 1
  else
    nyTekst = nyTekst & mid(tekst,i,1)
    pointer = pointer + 1
  end if
next
response.write "Ny tekst med linje skift pr max tegn : "&nyTekst
%>

og der manglede lige en "
--
<%
max = 100
pointer = 1
tekst = "meget lang tekst på 5000 eller andet karakterer"
for i=1 to len(tekst)
  if pointer = max then
    nyTekst = nyTekst & "<br/>"
    pointer = 1
  else
    nyTekst = nyTekst & mid(tekst,i,1)
    pointer = pointer + 1
  end if
next
response.write "Ny tekst med linje skift pr max tegn : "&nyTekst
%>

Mange takker for svaret, er det sådan at man kan få den til at dele ved slut på ord, istedet for mit i ordet hvis man har nået grænsen

hm jaaa,, jeg har godt nok ikke testet det men du bør jo kunne tjekke på om der er tale om et mellemrum " " hvilket så vil sige at ordet er slut
---
<%
max = 100
pointer = 1
tekst = "meget lang tekst på 5000 eller andet karakterer"
for i=1 to len(tekst)
  if pointer >= max then
    if mid(tekst,i,1) <> " " then
      nyTekst = nyTekst & mid(tekst,i,1)
      pointer = pointer + 1
    else
      nyTekst = nyTekst & "<br/>"
      pointer = 1
    end if
  else
    nyTekst = nyTekst & mid(tekst,i,1)
    pointer = pointer + 1
  end if
next
response.write "Ny tekst med linje skift pr max tegn : "&nyTekst
%>