---
title: "Bort med mellanslag!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/70782-bort-med-mellanslag/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "fredrik99"
published: "2003-03-11T21:27:20.000Z"
updated: "2003-08-10T20:21:32.000Z"
replies: 26
views: 616
page: 2
pages: 2
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/70782-bort-med-mellanslag"
---

# Bort med mellanslag!

_Sida 2 av 2._

## #21 — fredrik99, 2003-08-10T16:27Z

Nu efter en tid har källkoden ändrats, men trim-funktionen "vill inte" funka. Databasen innehåller nästan bara mellanslag.

Kanske någon som har några minuter över? :)

```

<%
function BinToText(varBinData, intDataSizeInBytes)
const adFldLong = 128
const adVarChar = 200
set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
objRS.Open
objRS.AddNew
objRS.Fields("txt").AppendChunk(varBinData)
tmp = objRS("txt").Value
objRS.Close
BinToText = tmp
end function

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.adressen.se/hej.txt", False

objHTTP.Send
strHTML = BinToText(objHTTP.responseBody,35000)
Set objHTTP = Nothing

Set objRegExp1 = New regexp
strReplace1 = ""
objRegExp1.Global = true
objRegExp1.IgnoreCase = true
objRegExp1.Pattern = "<tr(.*)>"
strHTML2 = objRegExp1.Replace(strHTML, strReplace1)
Set objRegExp1 = Nothing

Set objRegExp2 = New regexp
strReplace2 = ""
objRegExp2.Global = true
objRegExp2.IgnoreCase = true
objRegExp2.Pattern = "</tr(.*)>"
strHTML3 = objRegExp2.Replace(strHTML2, strReplace2)
Set objRegExp2 = Nothing

Set objRegExp3 = New regexp
strReplace3 = ""
objRegExp3.Global = true
objRegExp3.IgnoreCase = true
objRegExp3.Pattern = "<td(.?)>"
strHTML4 = objRegExp3.Replace(strHTML3, strReplace3)
Set objRegExp3 = Nothing

Set objRegExp4 = New regexp
strReplace4 = ";"
objRegExp4.Global = true
objRegExp4.IgnoreCase = true
objRegExp4.Pattern = "</td>"
strHTML5 = objRegExp4.Replace(strHTML4, strReplace4)
Set objRegExp4 = Nothing

str=strHTML5
set r = new regexp
r.ignorecase = true
r.global = true
r.pattern = "<a.*?>(.*?)<\/a>" 
strHTML6 = r.replace(str, "$1")

Set objRegExp6 = New regexp
strReplace6 = ";"
objRegExp6.Global = true
objRegExp6.IgnoreCase = true
objRegExp6.Pattern = "<IMG SRC=(.*)"
strHTML7 = objRegExp6.Replace(strHTML6, strReplace6)
Set objRegExp6 = Nothing

Set objRegExp7 = New regexp
strReplace7 = ""
objRegExp7.Global = true
objRegExp7.IgnoreCase = true
objRegExp7.Pattern = "</FONT>"
strHTML8 = objRegExp7.Replace(strHTML7, strReplace7)
Set objRegExp7 = Nothing

Set objRegExp8 = New regexp
strReplace8 = ""
objRegExp8.Global = true
objRegExp8.IgnoreCase = False
objRegExp8.Pattern = "<TD Class(.*)"
strHTML9 = objRegExp8.Replace(strHTML8, strReplace8)
Set objRegExp8 = Nothing

array1 = split(strHTML9,";")
array1(0) = Replace(trim(array1(0)),VbCrlf,"") 
array1(0) = Replace(array1(0),chr(9),"")
array1(1) = Replace(trim(array1(1)),VbCrlf,"") 
array1(1) = Replace(array1(1),chr(9),"")
array1(2) = Replace(trim(array1(2)),VbCrlf,"") 
array1(2) = Replace(array1(2),chr(9),"")
array1(3) = Replace(trim(array1(3)),VbCrlf,"") 
array1(3) = Replace(array1(3),chr(9),"")
array1(4) = Replace(trim(array1(4)),VbCrlf,"") 
array1(4) = Replace(array1(4),chr(9),"")
array1(5) = Replace(trim(array1(5)),VbCrlf,"") 
array1(5) = Replace(array1(5),chr(9),"")
%>
```

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

## #22 — solbulle, 2003-08-10T16:47Z

Har du en skarp länk till en sådan textfil som du arbetar mot?

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

## #23 — fredrik99, 2003-08-10T16:50Z

Javisst :E

[Länk](http://www.ringsjo.nu/wf/om3.txt)

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

## #24 — solbulle, 2003-08-10T19:11Z

Skippa alla replacerader o lägg det i en funktion.

```
array1 = split((strHTML9),";")

For I = 0 to ubound(array1)
	response.write cleanup(array1(I)) & "<br>"
Next

Function cleanup(str)

str = trim(Replace(str,chr(9),""))
str = Replace(str,chr(10),"")
str = Replace(str,chr(13),"")
cleanup = Replace(str,chr(32),"")

End function
```

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

## #25 — fredrik99, 2003-08-10T19:50Z

Bara ett problem, jag vill bara ta bort mellanrum i början och i slutet, inte i mitten i variablen.

Exempel
\----Lars-Nilsson-----

\- = Mellanrum

Blir:
LarsNilsson

Går detta att fixa?

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

## #26 — Sebbe, 2003-08-10T20:02Z

Använd bara Trim("    Anders Nilsson    ") istället för Replace("    Anders Nilsson    ", " ", ""). :)

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

## #27 — fredrik99, 2003-08-10T20:21Z

Red.

Dundertack till alla som har hjälpt mig :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/70782-bort-med-mellanslag/page2  
Föregående sida: https://www.webforum.nu/amne/asp/70782-bort-med-mellanslag.md