---
title: "Ta ut ospecifierat antal tecken i sträng"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/98149-ta-ut-ospecifierat-antal-tecken-i-sträng"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Melitta"
published: "2004-02-25T03:58:17.000Z"
updated: "2004-02-25T14:25:15.000Z"
replies: 7
views: 343
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/98149-ta-ut-ospecifierat-antal-tecken-i-sträng"
---

# Ta ut ospecifierat antal tecken i sträng

## #1 — Melitta, 2004-02-25T03:58Z

Hellu..
Håller på och donar lite med ett script här. Problemet jag har är att ta ut typ "göra" från 
"en massa text man kan :link:göra:/link: vad man vill med"
med hjälp av :link: och lägga "göra" i en egen variabel. Hur skulle detta kunna gåtill?

Mvh Henke

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

## #2 — LR^evil.sid, 2004-02-25T08:42Z

Kanske:

```
TxtStr= "en massa text man kan : link :göra: /link : vad man vill med"
Var = Mid(TxtStr, InStr(TxtStr, ": link :")+6, InStr(InStr(TxtStr, ": link :")+6, TxtStr, ": /link :")-1)
```

Fast utan mellanslag vid kolon

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

## #3 — J.N., 2004-02-25T08:43Z

HEJ!

Det låter som regexp!

Är inte så insatt i de kodexempel som finns på wF, men har läst att koden för att göra länkar av \[link\]-taggarna finns.
Det du vill göra är samma sak, titta i kodbiblioteket alltså!

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

## #4 — Melitta, 2004-02-25T11:59Z

jo jag har testat med båda alternativen och på LR^evil.sid's funktion (som jag gjorde en likadan själv innan jag postade och fråga) fick jag ut en 20 tecken efter : /link : osså.
Har testat med regexp men med det kan man väll inte ta ut ord? Bara ersätta strängar eller?

Ska testa med LR^evil.sid's lilla kod snutt och se om det är n+ått jag missat i min.
Tack iaf :)

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

## #5 — J.N., 2004-02-25T12:56Z

HEJ!

Nädå, du kan ta ut strängar också, kolla [match](http://www.devguru.com/Technologies/vbscript/quickref/Matches_Collection.html).

Testa lite till, posta annars igen med koden.

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

## #6 — Melitta, 2004-02-25T13:57Z

Får fortfarande ingen stil på det, testat med match i ett par timmar nu men inte kommit nån vart.

```
private Function Formatera(strText)
Dim recArray

recArray = split(strText,"<item>")

for i = 0 to ubound(recArray)

'output = Mid(strAllInfo, 1, InStr(strAllInfo, "'")-1)
'strTitle = Mid(recArray(i), InStr(recArray(i), "<title>")+7, InStr(trim(recArray(i)), "</title>")-1)
strUrl = Mid(recArray(i), InStr(recArray(i), "<link>")+6, instr(instr(recArray(i), "<link>")+6,recArray(i), "</link>")-1)
'strDesc = Mid(recArray(i), InStr(recArray(i), "<description>")+13, InStr(recArray(i), "</description>")-1)
'strTest = strTest & "<a href="""& strUrl &""">"& strTitle &"</a><br />"& strDesc &"<hr noshade>"
next
Formatera = strUrl
end function

strText = readFile()
response.write Formatera(strText)
```

Det som kommer ifrån readFile() ser ut:

```
		<item>
			<title>Toyota förnekar intresse för Scaniaköp</title>
			<link>[url]http://www.dn.se/DNet/jsp/polopoly.jsp?d=145&a=237391[/url]</link>
			<description>Toyota tillbakavisar Dagens industris uppgifter om att biljätten skulle vara intresserade av att köpa aktier i Volvoägda Scania. Volvo i sin tur valt att inte kommentera spekulationerna.</description>
		</item>
		<item>
			<title>En av många rubriker.</title>
			<link>[url]http://www.devguru.com/Technologies/vbscript/quickref/Matches_Collection.html[/url]</link>
			<description>Hej hopp lingon ***** osså vidae.</description>
		</item>
```

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

## #7 — LR^evil.sid, 2004-02-25T14:14Z

```
<%
	TxtStr = "En massa text man kan <link<göra</link< vad man vill med"
	x = InStr(TxtStr, "<link<")+6
	y = (InStr(x, TxtStr, "</link<")) - (x)
	Var = Mid(TxtStr, x, y)
	Response.Write var
%>
```

Trodde inte jag skulle behöva göra allt själv ; )
Detta fungerar bara du byter ut \< mot :

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

## #8 — Melitta, 2004-02-25T14:25Z

Tackar :) Klarade det dock på ett något omständigare sätt :)

```
for i = 0 to ubound(recArray)

strtitle = Mid(recArray(i), InStr(recArray(i), "<title>"))
arrtitle = split(strtitle,"</title>")
strtitle = mid(arrtitle(0),instr(arrtitle(0),"<title>")+7)
Erase arrtitle 

strUrl = Mid(recArray(i), InStr(recArray(i), "<link>"))
arrurl = split(strUrl,"</link>")
strUrl = mid(arrurl(0),instr(arrurl(0),"<link>")+6)
Erase arrUrl 

strDesc = Mid(recArray(i), InStr(recArray(i), "<description>"))
arrDesc = split(strDesc,"</description>")
strDesc = mid(arrDesc(0),instr(arrDesc(0),"<description>")+13)
Erase arrDesc 

strTest = strTest & "<a href="""& strUrl &""">"& strTitle &"</a><br />"& strDesc &"<hr noshade>" & vbcrlf
next
Formatera = strTest
end function

strText = readFile()
response.write Formatera(strText)
```

Tack iaf :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/98149-ta-ut-ospecifierat-antal-tecken-i-sträng