---
title: "Två sidor"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6438-två-sidor"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "AG"
published: "2000-08-23T14:11:00.000Z"
updated: "2000-08-27T10:49:00.000Z"
replies: 9
views: 348
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/6438-två-sidor"
---

# Två sidor

## #1 — AG, 2000-08-23T14:11Z

Att avsluta en text efter x antal tecken är ju inte så svårt. Det jag nu undrar är hur man klipper åt andra hållet alltså.

Jag har en text på 2500 tecken, efter 1000 tecken vill jag att det skall komma fram en text typ, Läs vidare, så långt inga problem.
Men hur gör jag nu på nästa sida för att visa dessa de resterande 1500 tecknen, och kan man göra så att den typ klipper vid punkt eller nåt sånt, så att Läs viadre inte kommer mitt i ett ord eller mening?

Måste ju bli nån typ av omgjord klippning men jag vet inte hur.

Andreas

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

## #2 — Vide, 2000-08-23T14:56Z

Right funkar så...

Right(text,1500)

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

## #3 — AG, 2000-08-23T15:00Z

Jo det var min första tanke också men problemet är ifall texten har mer eller mindre än 2500 tecken.
Hade typ tänkt lösa det så på första sidan visas 1000 tecken och på den andra sidan resterande tecken, vilket då blir svårt.
Sen skulle det ju vara bra om den kunde klippa vid punkt eller nåt sånt

Andreas

\[Redigerat av AG den 23 aug 2000\]

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

## #4 — emission, 2000-08-23T16:16Z

Knåpade ihop en liten funktion som du kan använda för att hitta "klippunkten". Bara att kolla vad 

getstrpos(strängen,önskatställe) blir, och kör left och mid, med värdet.

```
function getstrpos(strIn,intLength)
   if len(strIn)<=intLength then
      getstrpos=-1
   else
      mpos=instrrev(strIn,".",intLength,1)
      if mpos>0 then
         getstrpos=mpos
      else
         getstrpos=intLength
      end if
   end if
end function
```

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

## #5 — AG, 2000-08-23T21:29Z

Jag får tacka Gunnar, frågan är nu bara hur jag visar de resterande tecknen på sidan efter. Alltså klippa bort de första 1000 tecknen, med Gunnars funktion som bas, så att den verkligen börjar sen i följande mening?

Andreas

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

## #6 — emission, 2000-08-24T07:33Z

Som jag skrev. Använd mid.

mid(strängen,10) hämtar alla tecken från plats 10 till slutet.

bara att använda samma getstrpos som i första läget, men lägg på 1.

mid(strängen,getstrpos(1000)+1)

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

## #7 — AG, 2000-08-26T15:42Z

Får felet:

Körningsfel i Microsoft VBScript fel '800a01c2' 

Fel antal argument eller felaktig egenskapstilldelning.: 'getstrpos'

```
text = artikel("artikeltext")
artikel = left(text,getstrpos(27))
```

Koden annars är som den som emission klippte in, har testat runt ganska friskt.

Andreas

\[Redigerat av AG den 26 aug 2000\]

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

## #8 — emission, 2000-08-26T16:37Z

getstrpos tar två argument. Den måste ju få en sträng att hantera. :) Missade det själv i mitt exempel ovan.

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

## #9 — AG, 2000-08-26T16:40Z

Dvs vad skall jag göra, har ju testat ganska mycket:)

Andreas

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

## #10 — emission, 2000-08-27T10:49Z

artikel = left(text,getstrpos(text,27))

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/6438-två-sidor