---
title: "Bakåfram"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7740-bakåfram"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "qwerty"
published: "2001-01-15T17:49:00.000Z"
updated: "2001-01-16T16:49:00.000Z"
replies: 6
views: 242
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/7740-bakåfram"
---

# Bakåfram

## #1 — qwerty, 2001-01-15T17:49Z

Gör ett sista försök innan jag går hem att få en lösning på dagens stora problem. Jag sparar ner lite prylar i en textfil. Men jag vill att de nya värdena ska hamna överst i filen.

Så här ser filen ut nu:

Stort tack på förhand

                                   

```

                                   Set MittTxtObj = Server.CreateObject ("Scripting.FileSystemObject")
                                   Set MinFil = MittTxtObj.OpenTextFile(fil,8,true)

                                   MinFil.WriteLine "<br><br>"
                                   MinFil.WriteLine "<span class =brodtext>"
                                   MinFil.WriteLine date
                                   MinFil.WriteLine "</span>"
                                   MinFil.WriteLine "<br>"
                                   MinFil.WriteLine "<span class =fetbrod>"
                                   MinFil.WriteLine rubrik
                                   MinFil.WriteLine "</span>"
                                   MinFil.WriteLine "<span class =brodtext>"
                                   MinFil.WriteLine "<br>"
                                   MinFil.WriteLine nyhet
                                   MinFil.WriteLine "</span>"
                                   MinFil.close
```

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

## #2 — Eclipse, 2001-01-16T07:30Z

Frågar du inte samma fråga flera gånger!?

Detvar nån annan som sa, dunka in all info i en variablel, lägg data framför eller efter variabeln, beroende på vilket du föredrar, och skriv hela variabalen tillbaka till filen. (Du skriver alltså över befintlig data.)

Hajar du?

/ jakob

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

## #3 — qwerty, 2001-01-16T09:12Z

Ja, jag trodde att jag hajade!

Varför vill inte detta funka?

```
fil =  "c:\ inetpub\wwwroot\news.txt"

Set MittTxtObj = Server.CreateObject ("Scripting.FileSystemObject")
Set MinFil = MittTxtObj.OpenTextFile(fil,2,true)

dim temp
temp = Minfil.readAll

MinFil.WriteLine temp
MinFil.WriteLine nytext
MinFil.close
```

PS.Jag såg att jag frågat samma fråga i olika trådar. Mitt misstag.

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

## #4 — PatrikB, 2001-01-16T10:12Z

Hello,

det du gör är att du lägger till ny info sist i filen (längst ned).

Det kan göras med detta istället:

```
fil = "c:\ inetpub\wwwroot\news.txt"
Set MittTxtObj = Server.CreateObject ("Scripting.FileSystemObject")
Set MinFil = MittTxtObj.OpenTextFile(fil,8,true)

MinFil.Write nytext
MinFil.close
```

cya,

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

## #5 — qwerty, 2001-01-16T10:57Z

OK jag ser att jag har vänt på två rader, men det är inte rikigt där problemet ligger. I koden länst upp i denna tråd
fungerar allt enligt mina önkemål, förutom att de nya nyheterna hamnar längst ner.
Koden som jag skrev i mitt förra inlägg funkar däremot inte. Jag får felmeddelande på raden MinFil.ReadAll. ServerCreateobject failed.

Hjälp mig...

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

## #6 — qwerty, 2001-01-16T13:04Z

Kan man inte skriva så här.Får felmeddelande på den här raden hela tiden.

```
temp = Minfil.readAll
```

Server.CreateObject Failed.
The operation completed successfully

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

## #7 — PatrikB, 2001-01-16T16:49Z

Hello,

du har öppnat filen för att skriva till den, då kan man inte läsa bara skriva.

Du får först läsa in filen, stänga och sedan öppna den för skrivning igen för att det ska lyckas.

Direkt ur VB Script documentationen:

```
Function ReadAllTextFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.Write "Hello world!"
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   ReadAllTextFile =   f.ReadAll
End Function
```

du kan ladda ned hela documentationen [här](http://msdn.microsoft.com/scripting/vbscript/download/vbsdoc.exe)

cya

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/7740-bakåfram