---
title: "Fyrkant efter text (radmatning)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/173601-fyrkant-efter-text-radmatning"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "devotion"
published: "2008-08-24T14:08:17.000Z"
updated: "2008-09-17T09:51:10.000Z"
replies: 8
views: 1405
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/173601-fyrkant-efter-text-radmatning"
---

# Fyrkant efter text (radmatning)

## #1 — devotion, 2008-08-24T14:08Z

Hej,

Jag vet inte om detta är helt rätt forum, om inte, flytta till rätt, tack!

Jag har läst in en textfil till en tabell. är jag tittar i Windowsapplikationen, så avslutas testxten med en liten fyrkant. Markerar jag den och klistrar in den i notepad, blir det en radmatning. Likadant i Word.

Bifogad bild visar hur det ser ut i applikationen.

Hur kan jag få bort det?

Mvh
Henrik

Bilagor:

- [fyrkant.png](https://www.webforum.nu/a/18980.png)

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

## #2 — devotion, 2008-08-25T14:40Z

Ingen? :)

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

## #3 — Peter S, 2008-08-25T16:45Z

```
function trim(value)
  set re = new regexp
  re.pattern = "(?:^(?:\s|\n|\r)+)|(?:(?:\s|\n|\r)+$)"
  re.global = true
  trim = re.replace(value, "")
end function

mystring = trim(mystring)
```

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

## #4 — devotion, 2008-08-25T18:01Z

Aha!

Kan man göra detta direkt i SQL-server, eller får jag göra det mha vb-script? :)

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

## #5 — Peter S, 2008-08-25T19:01Z

Antingen skriver man en UDF som sköter detta, eller så i applikationen. Jag skulle nog filtrera bort det innan det skickas in i databasen.

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

## #6 — devotion, 2008-08-25T19:08Z

Problemet är att det redan "hamnat" i databasen...... :e

Men, ett lite vb-script som fixar biffen kanske....

Mvh
Henrik

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

## #7 — devotion, 2008-08-27T10:22Z

Då kanske denna skulle haman i något ännat finfint forum, då jag löste det med en funktion i vb-script!

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

## #8 — @nders, 2008-08-27T10:30Z

Jag flyttar väl från SQL då, om du berättar hur lösningen blev. :)

mvh

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

## #9 — devotion, 2008-09-17T09:51Z

Så här gjorde jag:

```

'*************************************************************

option explicit
'Funktion som tar bort radmatningstecken
function trimVbCrLf(value)
	dim re
	set re = new regexp
	re.pattern = "(?:^(?:\s|\n|\r)+)|(?:(?:\s|\n|\r)+$)"
	re.global = true
	trimVbCrLf = re.replace(value, "")
end function

'*********************************
' main()
'*********************************
sub main()

	dim sSQL, Conn, Rs
	dim sTask, lId
	
	'Skapa objekt
	Set Conn=CreateObject("ADODB.Connection")
	Conn.Open Application.sDbConnectionString
	
	Set Rs=CreateObject("ADODB.Recordset")
	
	sSQL= "SELECT [Id], [Task] FROM [tblContractTemplate]"
	
	Rs.Open sSQL, Conn
	
	'Om det inte finns några poster, avsluta suben
	If Rs.EOF then exit sub
	
	'tömma variabeln
	sSQL=""
	
	'Loopa ut alla uppdragsidena
	while Not Rs.EOF
		lId=Rs("Id")
		sTask=trimVbCrLf(Rs("Task"))
		sSQL= sSQL & "UPDATE tblContractTemplate SET Modified = GetDate(), Task = '" & sTask & "' WHERE [Id] = " & lId & ";"
		Rs.MoveNext
	wend
	Conn.Execute sSQL,,128
	
	'Förstöra objekten
	Rs.Close
	Set Rs=Nothing
	Set Conn=Nothing
	
	'Klart!
	MsgBox "Radbrytningar har tagits bort!"
	Call Refresh()
	
end sub
```

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

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/173601-fyrkant-efter-text-radmatning