---
title: "Lagra övers i textfilen"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/164571-lagra-övers-i-textfilen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Sico"
published: "2007-09-16T18:42:26.000Z"
updated: "2007-09-19T19:13:46.000Z"
replies: 4
views: 484
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/164571-lagra-övers-i-textfilen"
---

# Lagra övers i textfilen

## #1 — Sico, 2007-09-16T18:42Z

Jag sökte här på forumet och det fanns en hel del trådar som handlade just om att lagra överst i texfilen. Men jag fattar inte hur jag ska göra.
Så här ser min kod ut för att läsa och lagra, men det hamnar som sagt längst ner. Hjälp! :)

```
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile("C:\_HDD\Homesite\Web\words.txt", 1)

Response.Write objTextStream.ReadAll

objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile( "C:\_HDD\Homesite\Web\words.txt", 8 )

	Session.LCID = 1053

	strName = Request.Form("name")
	strUrl = Request.Form("www")

	strMsg = Request.Form("msg")
	strMsg = replace(strMsg, vbcrlf, "<br>") 

objFile.WriteLine "<p><span class='title'><a href='" & strUrl & "'>" & strName & "</span></a><span class='grey'> - " & Date & "</span><br>" & strMsg & "</p>"
```

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

## #2 — LarsG, 2007-09-17T07:15Z

Om du vill att något skall hamna först i en sekventiell fil så måste du skapa en ny fil där du skriver det du vill i början och sedan resten av den gamla filen. Det är inte för inte som det heter sekventiell.

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

## #3 — Sico, 2007-09-17T12:29Z

Jaha, så det är så man får gå till väga ändå alltså. Tänkte kanske det fanns ett sätt att bygga uppdatera-funktion också. Tackar

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

## #4 — Sico, 2007-09-17T17:54Z

Jag har uppdaterat koden lite, även ändrat till mappath. 
Dock får jag felmeddelande

```
Error Type:
Microsoft VBScript runtime (0x800A0036)
Bad file mode
```

Antar att jag skulle behövt lägga till ",8" efter textfilens sökväg men jag får det inte att fungera med mappath, så hur ska jag göra?

```
   Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
   Set objTextStream = objFSO.GetFile(Server.Mappath("words.txt"))
   Set tsObjekt = objTextStream.OpenAsTextStream

   strEarlierMsg = CStr(tsObjekt.ReadAll)

	Session.LCID = 1053

	strName = Request.Form("name")
	strUrl = Request.Form("www")

	strMsg = Request.Form("msg")
	strMsg = replace(strMsg, vbcrlf, "<br>") 

	strNewMsg = "<p><span class='title'><a href='" & strUrl & "'>" & strName & "</span></a><span class='grey'> - " & Date & "</span><br>" & strMsg & "</p>" & strEarlierMsg

   tsObjekt.Write CStr(strNewMsg)

   Set objFSO = Nothing
   Set tsObjekt = Nothing
   Set objTextStream = Nothing
```

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

## #5 — Sico, 2007-09-19T19:13Z

Hej igen... 
Just nu fungerar allt som det ska, på min server. Men på webhotellet verkar man inte kunna skapa om txt-filen utan måste uppdatera den istället. Hur gör jag det när jag använder mig av mappath?

```
   Set fsoMinFil = Server.CreateObject("Scripting.FileSystemObject")
   Set strFilObjekt = fsoMinFil.GetFile(Server.Mappath("words.txt"))
   Set tsObjekt = strFilObjekt.OpenAsTextStream

   strTidigareInlagg = CStr(tsObjekt.ReadAll)

	strName = Request.Form("name")
	strUrl = Request.Form("www")

	strMsg = Request.Form("msg")
	strMsg = replace(strMsg, vbcrlf, "<br>") 

   strNy_text = Server.HTMLEncode(strNy_text)
   strNy_text = replace(strNy_text,chr(13),"")

   strNytt_inlagg = "<p><span class='title'><a href='" & strUrl & "'>" & strName & "</span></a><span class='grey'> - " & Date & " " & Time & "</span><br>" & strMsg & "</p>" & strTidigareInlagg

   Set tsObjekt = fsoMinFil.CreateTextFile(Server.MapPath("words.txt"))
   tsObjekt.Write CStr(strNytt_inlagg)

   Set fsoMinFil = Nothing
   Set tsObjekt = Nothing
   Set strFilObjekt = Nothing
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/164571-lagra-övers-i-textfilen