Indsæt og hent fra txt-fil via .asp

html>
<title>Læse fra tekstfiler</title>
<head>
</head>
<body>
<%
Dim fso, f, filespec
Set fso = CreateObject(\"Scripting.FileSystemObject\")
filespec = Server.Mappath(\"dinfil.txt\")
Set f = fso.OpenTextFile(filespec,1)

\' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  Response.write f.ReadLine & \"<br>\"
Loop

f.Close
%>
</body>
</html>

hvis du kun vil læse en linie skal du fjerne loopet og specificere hvilken linie du vil læse :o)

dit id kan evt være linienummeret

Dette kan evt også bruges:

<%
Dim fso, f, filespec
Set fso = CreateObject(\"Scripting.FileSystemObject\")
filespec = Server.Mappath(\"/tutorials/asp/tekstfil.txt\")
Set f = fso.OpenTextFile(filespec,2)

\' Skriv tekst i en linie
f.WriteLine \"VBScript og ASP er sjovt!\"

\' Åbn filen til læsning og læs linie
Set f = fso.OpenTextFile(filespec,1)
Response.write f.ReadLine

f.Close
%>

Istedet for at skrive det til en .txt fil så skriv det til en .csv fil.

En csv fil er sådan set bare en tekstfil hvor hver linie svarer til et ID og hver punkt er delt af et \";\"

Så kan du åbne filen i Excel hvilket gør det lettere at overskue

CSV filer kan også importeres af Access

Men hovedideen er, hvordan jeg gemmer, genkender og henter! Ja, nu ved jeg hvordan man generelt gemmer og henter i en txt-fil - det er fint! Men hvordan genkender jeg?

http://www.html.dk/tutorials/asp/lektion17.asp

Her står der hvordan du håndterer en db med id osv. :o)

Det er nok dette du er ude efter ??

<%
\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"/cgi-bin/database.mdb\")
Conn.Open DSN

\' Hent fra databasen afhængig af værdien id fra URL
strSQL = \"Select * From personer Where Id = \" & Request.Querystring(\"id\")
Set rs = Conn.Execute(strSQL)

\' Skriv personens data
Response.Write \"<dt>Navn:</dt><dd>\" & rs(\"Fornavn\") & \" \" & rs(\"Efternavn\") & \"</dd>\"
Response.Write \"<dt>Telefon:</dt><dd>\" & rs(\"Telefon\") & \"</dd>\"
Response.Write \"<dt>Fødselsdato:</dt><dd>\" & FormatDateTime(rs(\"Foedselsdato\"), vbLongDate) & \"</dd>\"

Conn.Close
Set Conn = Nothing
%>

Måske udtrykte jeg mig ikke klart nok! Jeg er godt klar over hvordan jeg håndterer id i db\'er! Men hvordan lagrer jeg et id i txt-filen så jeg ved hvad for en linie jeg skal bruge ( genkende ) til hver opgave! Hvordan bruger jeg id\'et fra databasen i txt-filen så jeg kan finde lige netop den linie der tilhører den opgave?

Brug opgaveID\'et og skriv det først i hver linie i CSV-filen. Så kan du når du løber linierne igennem hente opgaveID\'et med:

Left(Linie,(Instr(1,Linie, \";\", 0) - 1))

Det der sker er at den piller det ud der står fra starten af linien hen til det første \";\"

Forklaring af funktionerne Left og Instr:

http://activedeveloper.dk/iishelp/vbscript/htm/vsfctLeft.htm

http://activedeveloper.dk/iishelp/vbscript/htm/vsfctInStr.htm

Så ligner det jo noget jeg kan bruge! I har vist hjulpet lige meget begge to ( derfor point-delingen ) - tak for det! --jowns--