---
title: "Läsa in textfil till Access-db"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/130188-läsa-in-textfil-till-access-db"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Freestyler"
published: "2005-06-17T11:56:21.000Z"
updated: "2005-06-22T06:50:32.000Z"
replies: 2
views: 382
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/130188-läsa-in-textfil-till-access-db"
---

# Läsa in textfil till Access-db

## #1 — Freestyler, 2005-06-17T11:56Z

Har en textfil med adressuppgifter. Ett företag/rad. Ser ut såhär:

```
Företag AB|Adress|Tel|Fax|Mail|Hemsida
Företag2 AB|Adress|Tel|Fax|Mail|Hemsida

osv...
```

Hur importerar jag detta enklast till en access-db mha ASP?

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

## #2 — Jesper T, 2005-06-17T12:18Z

Du får skapa en liten procedur för det.
Läs in alla rader i filen med FSO till en variabel.
Splitta variabeln med vbCrLf
Loopa ut alla rader och splitta raderna på \|-tecknet.
lägg in i databasen.

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

## #3 — Freestyler, 2005-06-22T06:50Z

Tackar.
Tänkte dela med mig av lösningen.

```
'create the file system object
set fso = Server.CreateObject("Scripting.FileSystemObject")

'create the DB object
set DB = Server.CreateObject("ADODB.Connection")
DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=foo.mdb;Mode=ReadWrite;Persist Security Info=False"
DB.Open

'open the text file
strFilePath = Server.Mappath( "\" ) & "\import.txt"
set f = fso.OpenTextFile(strFilePath, 1)

do while NOT f.AtEndOfStream

   currentLine = f.readLine()
   
   values = split( currentLine,"|")
   
   rubrik = values(1)
   adress = values(2)
   land = "Sweden"
   telefon = values(4)
   fax = values(5)

   
   strSQL = "INSERT INTO links(rubrik,adress,land,tel,fax) VALUES ('" & rubrik & "','" & adress & "','" & land & "','" & telefon & "','" & fax & "')"
   
  	DB.Execute(strSQL)

loop

Db.close()
set db = nothing

f.close()
set f = nothing
set fso = nothing
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/130188-läsa-in-textfil-till-access-db