---
title: "Läsa igenom fil!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/76129-läsa-igenom-fil"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Fredde Mannen"
published: "2003-05-06T19:08:41.000Z"
updated: "2003-05-08T07:39:16.000Z"
replies: 6
views: 233
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/76129-läsa-igenom-fil"
---

# Läsa igenom fil!

## #1 — Fredde Mannen, 2003-05-06T19:08Z

Hur ska jag läsa igenom en fil.asp, utan att filens asp-delar läsese ut på sidan scripting.asp t.ex.

Går det???

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

## #2 — icaaq, 2003-05-06T19:11Z

hur menar du nu??

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

## #3 — yaz, 2003-05-06T19:14Z

förmodligen menar han att köra en asp-fil lokalt, utan att ASP-koden dyker upp på sidan när man "förhandsgranskar".. 

...men det går tyvärr inte, utan asp ska testas på en server, antingen du har skapat en egen på din dator eller laddat upp på en webbserver..

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

## #4 — Sebbe, 2003-05-06T19:51Z

Menar du såhär?

```
<%
Dim objFSO, objTS, strASP

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("aspfil.asp"))

strASP = objTS.ReadAll

objTS.Close
Set objTS = Nothing
Set objFSO = Nothing

Response.Write(Replace(Server.HTMLEncode(strASP), vbCrLf, "<br>"))
%>
```

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

## #5 — Fredde Mannen, 2003-05-07T14:24Z

> **yaz skrev:**
>
> förmodligen menar han att köra en asp-fil lokalt, utan att ASP-koden dyker upp på sidan när man "förhandsgranskar".. 
> 
> ...men det går tyvärr inte, utan asp ska testas på en server, antingen du har skapat en egen på din dator eller laddat upp på en webbserver..

 

Det vet jag mycket väl om, det jag menar är att när jag använder mig av **Scripting.FileSystemObject** så läser servern av hela sidan inkl. ASP-koden som finns på den. 

Men jag vill undvika detta, jag vill att den ska läsa allt utom just ASP-koden.

Vilket jag hoppas  Sebbe's gör :), har ju inte testat den koden än så. 

 :birp 

Men tack! :)

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

## #6 — Sebbe, 2003-05-07T14:29Z

Jag kan ha missuppfattat vad du ville göra. I så fall tror jag att den här koden funkar bättre. :)

```
<%
Dim objFSO, objTS, strASP, strText, RegExp

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("aspfil.asp"))

strASP = objTS.ReadAll

objTS.Close
Set objTS = Nothing
Set objFSO = Nothing

Set RegExp = New Regexp
RegExp.Global = True
RegExp.IgnoreCase = True
RegExp.Pattern = "<%((.|\n)*)%>"
strText = RegExp.Replace(strASP, "")
Set RegExp = Nothing

Response.Write(Replace(strText, vbCrLf, "<br>"))
%>
```

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

## #7 — Fredde Mannen, 2003-05-08T07:39Z

Det är nog mer likt det jag söker! :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/76129-läsa-igenom-fil