?????

De 10 første, 10 sidste eller de 10 \"nyeste\" i filen. Hvis sidstnævnte, hvad er så definationen på \"nyeste\" ?

Jeg ved ikke om de nyeste er øverste eller nederst..

Jeg er igang med at lave en chat hvor at det man skriver ryger ind i en text fil og når så der er 10 linjer så skal den overskrive den ældste.

Hvis du ikke har index på tabellen, så kan du gøre således:

select top 10 * from tabel

//Claus

Ups, hvis det er en tekstfil, så skal vi vide om du tilføjer i toppen eller bunden af filen?

//Claus

Tabellen ? Det er ikke en database..

Bunden... Men den skal overskrive de existrende linjer når der er over 10..

Ahhh, så nu spøger du om både at læse og skrive ;o)

Jaja.... Så får du lige 100 point hvis du svarer..

Jeg skal lige til frokost, men jeg kigger på det når jeg kommer tilbage, hvis andre altså ikke har svaret inden da ;o)

//Claus

Hvorfor ikke brugen en database?

Det lyder for mig lidt dumt at slette linier permanent

Ville det være lettere at bruge database ??

Så er det bare hvordan jeg får den til at overskrive den ældste post i DB\'en.. ??

Sådan at databasen ikke lige pludselig fylder 5mb på et par dage..

Da du ved der altid er maks 10 linier i tekstfilen, så kan du læse og udskrive den på følgende måde:
-----------------------------------------------
<html>
<title>Læse fra tekstfiler</title>
<head>
</head>
<body>
<%
Dim fso, f, filespec
Set fso = CreateObject(\"Scripting.FileSystemObject\")
filespec = Server.Mappath(\"/chat.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>
-----------------------------------------------
Jeg vender snart tilbage med skrivningen.

//Claus

do: din database vil \"aldrig\" komme op på 5 mb, det vil kræve tusindvis af indlæg.
Og ja det ville være nemmere med en database, + du kan kontrollere gamle indlæg

Okay, du skal oprette en 3 filer, med følgende indhold:

chat.txt
--------
linie 1<br>
linie 2<br>
linie 3<br>
linie 4<br>
linie 5<br>
linie 6<br>
linie 7<br>
linie 8<br>
linie 9<br>
linie 10<br>


las.asp
-------
<html>
<head>
<meta http-equiv=\'pragma\' content=\'nocache\'>
<meta http-equiv=\'case-control\' content=\'no-store\'>
<title>Læs fra tekstfil</title>
</head>
<body>
<%
Dim fso, f, filespec
Set fso = CreateObject(\"Scripting.FileSystemObject\")
filespec = Server.Mappath(\"../../fpdb/chat.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
Loop

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


skriv.asp
---------
<% response.buffer=true %>
<html>
<head>
<meta http-equiv=\'pragma\' content=\'nocache\'>
<meta http-equiv=\'case-control\' content=\'no-store\'>
<title>Skriv ti tekstfil</title>
</head>
<body>
<%
Dim fso, f, filespec, tekst, arrtekst
Set fso = CreateObject(\"Scripting.FileSystemObject\")
filespec = Server.Mappath(\"../../fpdb/chat.txt\")
Set f = fso.OpenTextFile(filespec,1)

\' Læs tekstfil
tekst = f.ReadAll
f.Close

\' Dan array fra 0-9
arrtekst = Split(tekst,\"<br>\")

Set f = fso.OpenTextFile(filespec,2)

\' Skriv tekst i fil, arrtekst(0) udelades, da det er den ældste
f.WriteLine arrtekst(1) & \"<br>\"
f.WriteLine arrtekst(2) & \"<br>\"
f.WriteLine arrtekst(3) & \"<br>\"
f.WriteLine arrtekst(4) & \"<br>\"
f.WriteLine arrtekst(5) & \"<br>\"
f.WriteLine arrtekst(6) & \"<br>\"
f.WriteLine arrtekst(7) & \"<br>\"
f.WriteLine arrtekst(8) & \"<br>\"
f.WriteLine arrtekst(9) & \"<br>\"
f.WriteLine \"Her skal du skrive den nye tekst!\" & \"<br>\"

f.Close

response.redirect \"las.asp\"
%>

</body>
</html>


//Claus

do>> Kunne du bruge det?

Ja...

Det var godt ;o)

//Claus

Nu har jeg bare et problem..

Hvordan får jeg den til at kunne skrive æ ø og å ind i chat.txt ?? Når jeg skriver æø eller å i chatten, går den kold og jeg skal opdatere \"Skriv\" siden inden jeg kan skrive videre på chatten ?!?

Så får du lige 200 point hvis du svare på det..

Prøv at indsætte <% Session.LCID = 1030 %> i toppen af dine dokumenter!

Nu har jeg slettet alt det text møg og lavet det om til database...

Hvordan sørger jeg for at databasen ikke fylder alt for meget ?

Og hvordan får jeg den til at skrive de 10 nyeste poster i databasen ind i chatten ??

Jeg har allerede så den bare skriver alt i databasen.. Men den skal kun vise de 10 nyeste..

SBK>>> Der kommer da hurtigt et par tusinde indlæg hvis et par stykker sidder og chatter nogen timer..!

Du er nødt til at have en felt du kan sortere efter (f.eks. dato/tid), så kan du gøre således:

select top 10 * from database order by datotid desc

//Claus

Jeg bruger bare Id feltet..