---
title: "Ersätta tecken i FSO"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/184687-ersätta-tecken-i-fso"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2010-09-21T13:50:43.000Z"
updated: "2010-09-21T16:18:07.000Z"
replies: 8
views: 681
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/184687-ersätta-tecken-i-fso"
---

# Ersätta tecken i FSO

## #1 — WebbisNet, 2010-09-21T13:50Z

Håller på med en asp-sida och ska leka lite med fso.....problemet är att jag inte får till en ersättning av vbCrLf till \<p\>

```
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")

Set f=fs.OpenTextFile(Server.MapPath("/textfiles/omMig.txt"), 1)
Response.Write(f.ReadAll)

strReplace = Replace(strText, vbCrLf, "<p>")

Set objFile = objFSO.OpenTextFile("/textfiles/omMig.txt", ForWriting)
objFile.WriteLine strReplace
f.Close

Set f=Nothing
Set fs=Nothing
%>
```

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

## #2 — voigtann1, 2010-09-21T13:56Z

var kommer strText ifrån?

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

## #3 — WebbisNet, 2010-09-21T14:00Z

> **[voigtann1 skrev:](https://www.webforum.nu/p/1517734)**
>
> var kommer strText ifrån?

En liten miss där, rättade till det men jag får 
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/default.asp, line 37

line 37 är
Set objFile = objFSO.OpenTextFile("/textfiles/omMig.txt", ForWriting)

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

## #4 — voigtann1, 2010-09-21T14:01Z

objFSO har du inte satt heller, du är nog ute efter ditt **fs** objekt där?

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

## #5 — WebbisNet, 2010-09-21T14:06Z

> **[voigtann1 skrev:](https://www.webforum.nu/p/1517737)**
>
> objFSO har du inte satt heller, du är nog ute efter ditt **fs** objekt där?

```
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")

Set f=fs.OpenTextFile(Server.MapPath("/textfiles/omMig.txt"), 1)
Response.Write(f.ReadAll)

strReplace = Replace(strReplace, vbCrLf, "<p>")
Set f=fs.OpenTextFile("/textfiles/omMig.txt", ForWriting)
f=fs.WriteLine strReplace
f.Close

Set f=Nothing
Set fs=Nothing
%>
```

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/default.asp, line 38

f=fs.WriteLine strReplace
\---------------^

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

## #6 — voigtann1, 2010-09-21T14:09Z

```
f.WriteLine strReplace
```

WriteLine retunera inget, och OpenTextFile är ett objekt så det gå inte att skriva över på det sätt du försöker.

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

## #7 — WebbisNet, 2010-09-21T14:17Z

> **[voigtann1 skrev:](https://www.webforum.nu/p/1517741)**
>
> ```
> f.WriteLine strReplace
> ```
>
> 
> 
> WriteLine retunera inget, och OpenTextFile är ett objekt så det gå inte att skriva över på det sätt du försöker.

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument

/default.asp, line 36

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

## #8 — voigtann1, 2010-09-21T16:12Z

```
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")

'Open file and save the text to a ASP variable
Set f = fs.OpenTextFile(Server.MapPath("omMig.txt"), 1, true)
strReplace = f.ReadAll
strReplace = Replace(strReplace, vbCrLf, "<p>")
f.Close

Response.Write(strReplace)

'Write to file
Set f = fs.OpenTextFile(Server.MapPath("omMig.txt"), 2)
f.WriteLine strReplace
f.Close

Set f=Nothing
Set fs=Nothing
%>
```

fungera för mig, vet inte var **strReplace** kom ifrån så jag tog bara texten ifrån text filen.

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

## #9 — WebbisNet, 2010-09-21T16:18Z

tack för hjälpen

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/184687-ersätta-tecken-i-fso