---
title: "Tvinga fram radbyte"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8701-tvinga-fram-radbyte"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bj"
published: "2001-03-25T08:24:00.000Z"
updated: "2002-03-02T13:47:18.000Z"
replies: 13
views: 285
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/8701-tvinga-fram-radbyte"
---

# Tvinga fram radbyte

## #1 — Bj, 2001-03-25T08:24Z

Hur skall man "stoppa" de som har kul och t.ex. bara skriver en lång jäkla rad utan mellanslag i textfältet. Detta fördärvar ju utseendet på en gästbok. Jag har satt tabellen till width 500 men den fortsätter i sidled tills "ordet" tar slut.

Permalänk: https://www.webforum.nu/p/8701

## #2 — Nickemannen, 2001-03-25T09:30Z

\<TextArea WRAP="Virtual"\> Kanske fungerar...
eller så kan du bara ta bort de orden som är över 30 characters långa

Permalänk: https://www.webforum.nu/p/261827

## #3 — SPiN, 2001-03-25T09:37Z

```
sText = "här kommer ett jääääättelångt ord"
arrText = split(sText, " ");

for i = 0 To uBound(arrText)
     if Len(arrText(i)) > 50 then
          newText = newText & " " & Left(arrText(i), 25)
          newText = newText & " " & Right(arrText(i), Len(arrText(i))-25)
     else
          newText = newText & " " & arrText(i)
     end if
next
```

Något sådant borde funka... Strängen med den formaterade texten finns nu i variabeln newText.

Permalänk: https://www.webforum.nu/p/261828

## #4 — Palleman, 2001-03-25T10:51Z

Först en liten funktion:

```
<%
function fixatecken(str)
fixatecken = Replace(str, vbCrLf, "<BR>" & vbCrLf, 1, -1, 1)
End function
%>
```

Sedan plockar du ut informationen ur databasen eller formuläret:

```
<%=fixatecken(RecSet("FÄLT"))%>
alt.
<%=fixatecken(Request.Form("FÄLT"))%>
```

Lycka till! :)

Permalänk: https://www.webforum.nu/p/261829

## #5 — Bj, 2001-03-26T13:08Z

Jag får det inte att funka. Kanske ngn kan visa på medföljande kod.

```
&nbsp;&nbsp;&nbsp;&nbsp;<b><%=rsRubrik("titel")%></b></td>
    </tr>
    <tr>
      <td width="100%">Inlagt av:&nbsp;<%=rsRubrik("namn")%></td>
    </tr>
    <tr>
      <td width="100%"><% response.write(rsRubrik("mess"))%><br>
	&nbsp;&nbsp;&nbsp;&nbsp;<a href="admin/raderarubrik.asp?ID=<%=rsRubrik("rubrikID")%>"><i>Radera Ditt inlägg</i></a></td>
    </tr>
    <tr>
      <td width="100%"></td>
    </tr>
  </table>
  </center>
</div>
```

Permalänk: https://www.webforum.nu/p/261830

## #6 — SPiN, 2001-03-26T13:35Z

Okey, typ nåt sånt här kanske:

```
<%
'### Min funktion
function doIt(textSomSkaFixas) {
     arrText = split(textSomSkaFixas, " ")
     for i = 0 To uBound(arrText)
          if Len(arrText(i)) > 50 then
               newText = newText & " " & Left(arrText(i), 25)
               newText = newText & " " & Right(arrText(i), Len(arrText(i)-25)
          else
               newText = newText & " " & arrText(i)
          end if
     next

     doIt = newText
end function

'### Fixa till det
%>
<b><%=rsRubrik("titel")%></b></td>
</tr>
<tr>
<td width="100%">Inlagt av: <%=rsRubrik("namn")%></td>
</tr>
<tr>
<td width="100%"><% =doIt(rsRubrik("mess"))%><br>
<a href="admin/raderarubrik.asp?ID=<%=rsRubrik("rubrikID")%>"><i>Radera Ditt inlägg</i></a></td>
</tr>
<tr>
<td width="100%"></td>
</tr>
</table>
</center>
</div>
```

Då fixas rsRubrik("mess") till, men inga andra poster. Lägg till doIt()-funktionen på de poster du vill göra nåt åt.

Permalänk: https://www.webforum.nu/p/261831

## #7 — Bj, 2001-03-26T13:51Z

Tack.
Men nu får jag följande fel.

Ogiltigt tecken
function doIt(textSomSkaFixas) {
\-------------------------------^

Om jag tar bort det sista tecknet där blir det följande felmeddelande:

')' förväntas. 
newText = newText & " " & Right(arrText(i), Len(arrText(i)-25)
\--------------------------------------------------------------^

Hmmm?

Permalänk: https://www.webforum.nu/p/261832

## #8 — SPiN, 2001-03-26T14:03Z

Hehe ooops för mycket Java i hjärnan ;)

Ta bort { och lägg till en ) på raden du får felmeddelande :)

Permalänk: https://www.webforum.nu/p/261833

## #9 — Bj, 2001-03-26T14:10Z

Jag gjorde allt den testen innan jag skrev sist, ;) 
Jag får då detta meddelande:

Programsats förväntas. 
function doIt(textSomSkaFixas) )
\-------------------------------^

Permalänk: https://www.webforum.nu/p/261834

## #10 — SPiN, 2001-03-26T14:14Z

\[redigerat\]Hmmm trodde jag kom på det, men det gjorde jag juh inte...
Hur som helst ska det inte vara ett ) där :)
Ta bort det genast ;)\[/redigerat\]

Men jag insåg just att om ett ord är längre än 75 tecken kommer ordet bara brytas efter de första 25 tecknen... Resten av ordet kommer att skrivas utan mellanslag.

Återkommer när jag löst det... Eller om nån annan kommer på någon lösning :)

Permalänk: https://www.webforum.nu/p/261835

## #11 — Vide, 2001-03-26T14:14Z

Antalet ( skall ju matcha antalet )... :)

Permalänk: https://www.webforum.nu/p/261836

## #12 — SPiN, 2001-03-26T14:20Z

Din rad verkar se ut så här:

newText = newText & " " & Right(arrText(i), Len(arrText(i)-25)

När den borde se ut så här:

newText = newText & " " & Right(arrText(i), Len(arrText(i))-25)

Permalänk: https://www.webforum.nu/p/261837

## #13 — Bj, 2001-03-26T14:32Z

Jajamen Spin.
Det funkar exakt som du säger! Gör man bara som man blir tillsagd så...  ;)
Jepp den bryter rader vid 25 tecken för tillfället. Men det finns ju en hel del tecken att öka på denna då tabellen är på widht 550.
Vi får se om du löser den biten också. Tack så länge.

Permalänk: https://www.webforum.nu/p/261838

## #14 — fundrusse, 2002-03-02T13:47Z

knepigt

Jag kikade lite på den modulen...

Men om den långa raden är över 100, så bryter den ju vid 25. fast den raden som kommer blir ju 75..

den ska ju bryta den oxå!

Permalänk: https://www.webforum.nu/p/616034

---

Tråden på webben: https://www.webforum.nu/amne/asp/8701-tvinga-fram-radbyte