---
title: "Radbrytning i textfil skapad med FSO?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/137222-radbrytning-i-textfil-skapad-med-fso"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "corona"
published: "2005-11-08T22:14:15.000Z"
updated: "2005-11-09T09:14:16.000Z"
replies: 2
views: 332
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/137222-radbrytning-i-textfil-skapad-med-fso"
---

# Radbrytning i textfil skapad med FSO?

## #1 — corona, 2005-11-08T22:14Z

Jag har lite problem med en textfil (tab-separerad) som jag skapar från en Access-databas.
Vill hämta alla poster men vill att det ska bli en radbrytning mellan varje post. Nu lägger sig allt på en lång rad och det som skiljer posterna åt är en liten ruta. Hur ska jag göra? 
Har försökt med detta:

```
<%
Const fsoForWriting = 2

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objRS = Server.CreateObject("ADODB.Recordset")

Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("C:\inetpub\wwwroot\adresser\db2.txt", fsoForWriting, True)

path = objFSO.GetAbsolutePathName("c:\inetpub\wwwroot\adresser\db2.txt")
getname = objFSO.GetFileName(path)

strSQL = "SELECT Namn, Adress, PostNr, Ort, Telefon, Epost FROM AdressRegister" 
objRS.Open strSQL, DB

objTextStream.WriteLine (objRS.GetString & vbCrlf)
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

objRS.Close
Set objRS = Nothing

Response.Write ("Filen, '" & getname & "', har nu skapats.")

%>
```

 

//Annette

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

## #2 — J.N., 2005-11-09T09:13Z

HEJ!

Jag ser en skillnad mot hur jag gör, jag lägger ForAppending (=8) istället för fsoForWriting.

Möjligen gör ForAppending (=8) att det VbCrLf vi båda har sist detsamma onödigt, men jag får i alla fall inga tomma rader i filen.

Förstår inte hur du får in tab mellan dina värden, är det objTextStream.WriteLine (objRS.GetString & vbCrlf) som fixar det?

<http://www.devguru.com/Technologies/vbscript/quickref/filesystemobject_opentextfile.html>

```
'Create the file
Set fsoObject = CreateObject("Scripting.FileSystemObject")
Set ts = fsoObject.OpenTextFile(Server.MapPath("/mapp") & "\fil.csv",8,true)

' Print 
ts.Write txt1&";"&txt2&";"&txt3&";[...]"&txt4&";"&now()
ts.Write vbCRLF
ts.close
```

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

## #3 — @nders, 2005-11-09T09:14Z

När man använder writeline hamnar väl raderna på egna rader?
Prova att ta bort vbcrlf.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/137222-radbrytning-i-textfil-skapad-med-fso