textfil

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?

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

------------------
webEye.nu SweQuake.com

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 & "'." 
%>

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
%>

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

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

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

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?

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

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?

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,

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

Inkompatibla typer

/text.asp, rad 15

redim preserve arrRows(counter+1)
:(

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

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

nu funkade det :)
Tack

gött! :)

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>