Hej,

Försöker göra en MYCKET enkel sak med File system object, men kan inget om detta.

Jag har ett formulär där användaren skriver en fråga. När han klcikar submit skall det skrivas en ny rad i en textfil. Det har jag fått till hyfsat i alla fall..

Men på den andra asp-sidan vill jag bara helt enkelt visa innehållet i textfilen, med radbrytning för varje rad i textfilen.

Hur gör man? Sökte lite på Pellesoft, men hittade inget.
(Jag vet att man måste skrivrättigheter på filen och det är fixat.)

Tacksam för hjälp!!

/Jocke

Så här gör du för att lägga till en ny rad i en befintlig textfil.

<code>
Set Obj = CreateObject("Scripting.FileSystemObject")
CurrentFile = Server.MapPath("textfil.txt")

Set TS = Obj.OpenTextFile(CurrentFile, 8)
TS.WriteLine "ny textrad"
TS.Close
Set Obj = Nothing
</code>


Kodexemplet nedan läser in raderna i samma textfil och fyller en kombinationsruta med innehållet.

<code>
Set Obj = CreateObject("Scripting.FileSystemObject")
Currentfile = Server.MapPath("textfil.txt")
Set TS = Obj.OpenTextFile(Currentfile, 1)
%>

<p>
<SELECT NAME="items">
<%

Do While Not TS.AtEndOfStream
items= TS.ReadLine
arrayData = Split(items, vbCrLf)


For i = 0 To Ubound(arrayData)
%>
<OPTION><%=arrayData(i)%></OPTION>
<%Next%>

<%
Loop
TS.Close

Set Obj = Nothing
%>

</SELECT>

</code>

Tack för det!. Det fungerar jättebra.
En sak bara:

Kan man sortera presentationen av textfilen? Som det är nu läggs ju varje ny rad längst ner i textfilen. Samma sen när jag listar den på asp-sidan.
Jag skulle vilja att det senaste kommer överest när jag presenterar det.

/Jocke

Du kan använda textfilen som databas.... lägg upp en DSN mot textfilen, defeniera olika kolumner.
Dock måste du i din textfil vara noga med att du skriver in värden med t ex en tab separator.