---
title: "txt / csv förändring"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/181116-txt-csv-förändring"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "martinpartin"
published: "2009-11-06T17:40:23.000Z"
updated: "2009-11-06T17:40:23.000Z"
replies: 0
views: 351
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/181116-txt-csv-förändring"
---

# txt / csv förändring

## #1 — martinpartin, 2009-11-06T17:40Z

Hej,

Har ett problem som jag skulle behöva ha hjälp med.
Får en text file från ett system som egentligen är en CSV.
Filen ser ut så här:

```
DATA <DATUM>
mellanslag
mellanslag
DATA;DATA;DATA;DATA;DATA mellanlag
DATA;DATA;DATA osv....
```

Jag skulle filja får bort den övre delen och spara om filen.. dvs de 3 översta raderna. Så att det blir...

```
DATA;DATA;DATA;DATA;DATA mellanlag
DATA;DATA;DATA osv....
```

Hittade et exempel som fungerade fin men ett par rader data . Men när jag testa med riktig data (22MB ) så gick CPU i taket och jag pallade inte att vänta. Har någon nån ide om hur jag skulle kunna göra det bättre ?

```
strInputFile = "Test.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const intForReading = 1
Set objInputFile = objFSO.OpenTextFile(strInputFile, intForReading, False)
If Not objInputFile.AtEndOfStream Then
      objInputFile.SkipLine
Else
      WScript.Quit
End If
strContents = ""
While Not objInputFile.AtEndOfStream
      If strContents = "" Then
            strContents = objInputFile.ReadLine
      Else
            strContents = strContents & VbCrLf & objInputFile.ReadLine
      End If
Wend
objInputFile.Close
Set objInputFile = Nothing
Set objOutputFile = objFSO.CreateTextFile(strInputFile, True)
objOutputFile.Write strContents
objOutputFile.Close
Set objOutputFile = Nothing
Set objFSO = Nothing
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/181116-txt-csv-förändring