ASP og txtfile

Prøv at smid den kode du bruger til at hive indhold ud fra chatten nu.

<%
'Variabler
dim fso, f, filespec

'FileSystem Objektet
Set fso = createobject("scripting.filesystemobject")

'Find den fysiske placering af tekstfilen
filespec = server.mappath("log/chatlog.txt")

'Åbn tekstfilen
set f = fso.opentextfile(filespec,1)

'Læs linie fra tekstfilen, og skriv indholdet til klienten
'response.write f.readline

'Læs linie for linie indtil slutningen af filen
do while not f.AtEndOfStream
    response.write f.readline & "<br />"
loop

'Læser alle linier i koden, uformatteret
'response.write f.readall

'Luk tekstfilen igen
f.close
%>

og eksempel på hvordan data'en er gemt :-)

<%
'Variabler
Dim fso, f, filespec

'FileSystem Objektet
set fso = createobject("scripting.filesystemobject")

'Find den fysiske placering af tekstfilen
filespec = server.mappath("log/chatlog.txt")

'Åbn tekstfilen, 2 starten, 8 slutningen
set f = fso.opentextfile(filespec,8)

'Skriv tekst i en linie
f.writeline "Jeg har lavet en ny linie..."

'Luk tekstfilen igen
f.close
%>

eller hvordan det skal se ud???

fordi, så er selve systemet ikke oppe at køre...

men i tilfælde af, jeg nu lavede det som en mysql database...
er det så muligt, at få systemet til selv, at kopirer alt indholdet til en txt-fil den selv opretter med chatlog_datovariable.txt og derved sletter alt sit eget indhold...

fordi databasen bliver jo utrolig stor, i tilfælde af der er mange som skriver...

Ja, det kan der være noget om :-) Men ja, selvfølgelig er der det. Jeg er nok ikke den helt rigtige til at hjælpe dig med det her FSO *lort* - det har aldrig været min stærke side må jeg nok indrømme, desværre.

Tror den bedste løsning først er at smide det i et Array og lave en slags punch for hver gang samtidig med at du kun har defineret array'et til at være 25 langt... og så udskrive den en for en bagefter med en løkke...

lukket