---
title: "textfil"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8898-textfil"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "aleborg"
published: "2001-04-07T11:49:00.000Z"
updated: "2001-04-07T14:49:00.000Z"
replies: 12
views: 379
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/8898-textfil"
---

# textfil

## #1 — aleborg, 2001-04-07T11:49Z

Jag har en textfil med ny information på varje rad.
Jag behöver få ut den informationen så 
att varje rad får ett eget "rs("rad1")"

Hur gör man?

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

## #2 — Vide, 2001-04-07T11:53Z

I FSO finns det en funktion som hetet ReadLine, kolla in den: <http://www.devguru.com/Technologies/vbscript/quickref/textstream_readline.html>

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

## #3 — aleborg, 2001-04-07T12:05Z

tack
men hur får jag den att läsa in nästa rad?

```
<% 
dim filesys, text, readfile, contents
set filesys = CreateObject("Scripting.FileSystemObject")
set readfile = filesys.OpenTextFile("c:\somefile2.txt", 1, false)
contents = readfile.ReadLine
readfile.close
Response.Write "The line contains the following text - '" & contents & "'." 
%>
```

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

## #4 — @nders, 2001-04-07T12:59Z

du får ju göra en liten loop då juh.

```
<% 
dim filesys, text, readfile, contents
set filesys = CreateObject("Scripting.FileSystemObject")
set readfile = filesys.OpenTextFile("c:\somefile2.txt", 1, false)
while not readfile.atendofstream
contents = readfile.ReadLine
Response.Write readfile & "<br>"
wend
readfile.close
%>
```

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

## #5 — aleborg, 2001-04-07T13:34Z

nja, inte så enkelt jag MÅSTE ha ut varje rad som en ny rs("rad1"), rs("rad2"), rs("rad3")" osv.

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

## #6 — aleborg, 2001-04-07T14:13Z

Provade det här:

```
<% 
dim filesys, text, readfile, contents
set filesys = CreateObject("Scripting.FileSystemObject")
set readfile = filesys.OpenTextFile("c:\somefile2.txt", 1, false)
contents = readfile.ReadLine
contents2 = readfile.ReadLine.Next
readfile.close
Response.Write "The line contains the following text - '" & contents & "'." 
%>
```

men får felet:
Körningsfel i Microsoft VBScript fel '800a01a8' 

Objekt krävs.: '\[string: "1234"\]' 

/text.asp, rad 13 

Rad 13:
contents2 = readfile.ReadLine.Next

\[string: "1234"\] 
1234 är det som fins på rad 2 i textfilen

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

## #7 — @nders, 2001-04-07T14:21Z

då får du lägga in det i en array i så fall.

```
<% 
dim filesys, text, readfile, contents, arrRows, counter
counter=0
set filesys = CreateObject("Scripting.FileSystemObject")
set readfile = filesys.OpenTextFile("c:\somefile2.txt", 1, false)
while not readfile.atendofstream
counter=counter+1
redim preserve arrRows(counter+1)
arrRows(counter) = readfile.ReadLine
wend
readfile.close
%>
```

om det här nu funkar som jag har tänkt så har du en array med lika många platser som du har rader i textfilen, typ.

vad är det du försöker göra? varför blandar du in recordsets i detta?

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

## #8 — aleborg, 2001-04-07T14:32Z

Jag ska ha in information i ett formulär från en textfil. Jag använde recordset bara för att visa vad jag behövde :)

Jag tror du glömde contents i koden, hur ska jag splitta upp det?

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

## #9 — @nders, 2001-04-07T14:40Z

contents är ju bara en exempelvariabel, jag har lagt rätt in i arrayen istället.

arrRows(1)innehåller första raden i filen, arrRows(2) den andra, osv. arrRows(0) är tom.

(om det funkar som jag tänkt mig, det är bara rätt ur skallen)

mvh,

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

## #10 — aleborg, 2001-04-07T14:44Z

Inkompatibla typer 

/text.asp, rad 15 

redim preserve arrRows(counter+1)
:(

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

## #11 — @nders, 2001-04-07T14:46Z

släng in en **redim arrRows(1)** raden  efter dim, och prova.

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

## #12 — aleborg, 2001-04-07T14:48Z

nu funkade det :)
Tack

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

## #13 — @nders, 2001-04-07T14:49Z

gött! :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/8898-textfil