---
title: "Trimma bort citationstecken"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/182100-trimma-bort-citationstecken"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "devotion"
published: "2010-01-21T09:47:36.000Z"
updated: "2010-01-21T11:12:31.000Z"
replies: 4
views: 634
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/182100-trimma-bort-citationstecken"
---

# Trimma bort citationstecken

## #1 — devotion, 2010-01-21T09:47Z

Hej,

Jag har följande funktion:

```

'Funktion som lägger uppdragsnumret före varje rad i exportfilen samt trimmar bort radbrytningar och tillåter endast 70 tecken per rad.
function ConvertString(sTaskNr, sText)
	dim sLength, sFirstChar, index
	dim a, n, k, r, str, re
	
	sLength = 70
	sFirstChar = 2
	
	n = array()
	k = 0
	r = 0
	index = 0
	str = sTaskNr & ";"
	
	set re = new regexp
	re.global = true
	re.pattern = "(?:<br>)+"
	sText = re.replace(sText, " ")
	set re = nothing
	
	sText = replace(sText, ";", "")
	
	a = split(sText)
	
	while index <= ubound(a)
		if sFirstChar + r + len(a(index)) > sLength then
			str = vbcrlf & sTaskNr & ";"
			r = 0
			sFirstChar = 2
		end if
		
		r = r + 1
		sFirstChar = sFirstChar + len(a(index))
		redim preserve n(k)
		n(k) = str & a(index)
		k = k + 1
		index = index + 1
		str = ""
	wend
	
	ConvertString = join(n)
	
end function
```

Hur modifierar man den att även trimma bort " , dvs byta ut citationstecken, mot tom sträng?

Mvh
Henrik

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

## #2 — voigtann1, 2010-01-21T09:52Z

Kör bara en vanlig Replace:
Replace(str, """", "")

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

## #3 — devotion, 2010-01-21T10:21Z

> **[voigtann1 skrev:](https://www.webforum.nu/p/1495273)**
>
> Kör bara en vanlig Replace:
> Replace(str, """", "")

Aha, du gav mig ett uppslag :)  

Men borde det inte vara så här då:

```
'Funktion som lägger uppdragsnumret före varje rad i exportfilen samt trimmar bort radbrytningar och tillåter endast 70 tecken per rad.
function ConvertString(sTaskNr, sText)
	dim sLength, sFirstChar, index
	dim a, n, k, r, str, re
	
	sLength = 70
	sFirstChar = 2
	
	n = array()
	k = 0
	r = 0
	index = 0
	str = sTaskNr & ";"
		
	set re = new regexp
	re.global = true
	re.pattern = "(?:<br>)+"
	sText = re.replace(sText, " ")
	set re = nothing
	
	'Ta bort semikolon
	sText = replace(sText, ";", "")
	'Ta bort citationstecken
	sText = replace(sText, """", "")
	
	a = split(sText)
	
	while index <= ubound(a)
		if sFirstChar + r + len(a(index)) > sLength then
			str = vbcrlf & sTaskNr & ";"
			r = 0
			sFirstChar = 2
		end if
		
		r = r + 1
		sFirstChar = sFirstChar + len(a(index))
		redim preserve n(k)
		n(k) = str & a(index)
		k = k + 1
		index = index + 1
		str = ""
	wend
	
	ConvertString = join(n)
	
end function
```

Dvs

```
'Ta bort citationstecken
sText = replace(sText, """", "")
```

Mvh
Henrik

    :)

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

## #4 — voigtann1, 2010-01-21T10:45Z

ja, med str menar jag att det skall vara en sträng och jag tog för givet att du vet att Replace retunera en sträng.

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

## #5 — devotion, 2010-01-21T11:12Z

> **[voigtann1 skrev:](https://www.webforum.nu/p/1495279)**
>
> ja, med str menar jag att det skall vara en sträng och jag tog för givet att du vet att Replace retunera en sträng.

Jo, jag blev lite förvirrad, eftersom det finns en variabel som heter just 'str'

 :)   

Det funkar fint iaf...  :bire

Mvh
Henrik

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/182100-trimma-bort-citationstecken