---
title: "Klippa ut från sträng"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/122924-klippa-ut-från-sträng"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "PsyDonia"
published: "2005-02-21T16:33:10.000Z"
updated: "2005-02-24T13:42:13.000Z"
replies: 4
views: 333
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/dotnet/122924-klippa-ut-från-sträng"
---

# Klippa ut från sträng

## #1 — PsyDonia, 2005-02-21T16:33Z

jag vill klippa ut ett värde som är mellan två olika tecken.

ex.
Jag har en text

```
blablabla massa text massa text massa text
ännumera text och desto mera text
<< detta ska klippas ut >> sen har vi massa text till
blablabla massa text massa text massa text
ännumera text och desto mera text
<< detta ska också klippas ut >> sen har vi massa text till
```

jag vill att den ska gå igenom och klippa ut allt som är mellan \<\< och \>\>
och adda det till en listbox.
det som ska klippas ut böjar alltid med \<\< och ska sluta där det är \>\>

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

## #2 — Joh, 2005-02-22T20:13Z

```
' Variabeln text innehåller texten du ska leta i
Dim startPos As Long, endPos As Long

Do
	startPos = InStr(1, text, "<<")
	If startPos > 0 Then
		endPos = InStr(startPos, text, ">>")
		If endPos > 0 Then
			List1.AddItem Mid$(text, startPos + 2, startPos - endPos - 4)
			Mid$(text, startPos, startPos - endPos) = ""
		Else  'Om det inte finns något slut använder vi resten av strängen
			List1.AddItem Mid$(text, startPos + 2)
			Mid$(text, startPos, Len(text) - startPos) = ""
		End If
	Else
		Exit Do
	End If
Loop
```

Otestat! Det är mycket möjligt att du får ändra vissa siffror.

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

## #3 — PsyDonia, 2005-02-22T22:32Z

tack ska testa.

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

## #4 — Jesper T, 2005-02-23T09:35Z

Varför inte använda VBScript.RegExp, med ett lämpligt pattern? 
ex.

```
Dim regxp As Object
    Set regxp = CreateObject("VBScript.RegExp")
    regxp.IgnoreCase = True
    regxp.Global = True
    regxp.Pattern = "<<(.*?)>>"
   Text1.Text = regxp.Replace(Text1.Text, "")
```

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

## #5 — Joh, 2005-02-24T13:42Z

> **Jesper T skrev:**
>
> Varför inte använda VBScript.RegExp, med ett lämpligt pattern? 
> ex.
>
> ```
> Dim regxp As Object
>     Set regxp = CreateObject("VBScript.RegExp")
>     regxp.IgnoreCase = True
>     regxp.Global = True
>     regxp.Pattern = "<<(.*?)>>"
>    Text1.Text = regxp.Replace(Text1.Text, "")
> ```

För att min kod inte kräver att man har någonting installerat och för att koden blir onödigt krånglig om hon ska lägga till det hon hittar i en lista också som hon faktiskt sa att hon ville. ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/122924-klippa-ut-från-sträng