Skriv tekst til toppen af en fil

Det med dynamisk include kan du ikke lave, da de filer inkluderes inden ASP´en udføres.

Med hensyn til at læse en tekst fil så det nederste kommer øverst så skal du smide det hele i et array også gennemløbe dette array. Kan godt lave et eksempel.

Det ville vaere perfekt:)

Men, hvis der er en nemmere maade at lave en gaestebog - udenom en database - ville jeg meget gerne hoere om det!

function readfile(file)
Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
Set stream = fso.OpenTextFile(file, 1)
If stream.AtEndOfStream then
tmp = \"Filen er tom.\"
else
Do While stream.AtEndOfStream <> True
tmp = replace(stream.ReadLine, \"|\", \"\'\") & \"|\" & tmp
loop
end if
stream.close
set stream = nothing
set fso = nothing
reverse = split(tmp, \"|\")
for each item in reverse
tmp2 = tmp & item
next
readfile = tmp2
End Function

Indsæt denne funktion i din fil og kald den på følgende måde:

response.write readfile(\"dinfil.txt\")

Hvis ikke du vil bruge en database så er der vist ikke nogen nemmere måde at gøre det på.

Ups en lille fejl, brug denne istedet:

function readfile(file)
Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
Set stream = fso.OpenTextFile(file, 1)
If stream.AtEndOfStream then
tmp = \"Filen er tom.\"
else
Do While stream.AtEndOfStream <> True
tmp = replace(stream.ReadLine, \"|\", \"\'\") & \"|\" & tmp
loop
end if
stream.close
set stream = nothing
set fso = nothing
reverse = split(tmp, \"|\")
for each item in reverse
tmp2 = tmp2 & item
next
readfile = tmp2
End Function

Indsæt denne funktion i din fil og kald den på følgende måde:

response.write readfile(\"dinfil.txt\")

Hvis ikke du vil bruge en database så er der vist ikke nogen nemmere måde at gøre det på

Desværre netsrac, der var et par fejl. Jeg tillod mig at rette dem eller virker det nemlig ikke

function readfile(file)
Set fco = Server.CreateObject(\"Scriptillermng.FileSystemObject\")
Set stream = fso.OpenmiaFile(file, 1)
If stream.AtEndOfStream then
tmp = \"the file is emty.\"
else
Do While stream.AtbegyndOfStream <> True
tmp = replace(stream.ReadLine, \"|\", \"\'\") & \"|\" & tmp
loop
end if
stream.åben>::::set fso = nothing
reverse = split ornat(tmp, \"|\")
for teach item in reverse
tmp2 = tmp & item
next
readfile = tmp2
End Function

OK, mange tak!. Lad mig lige proeve det:)

Hvad med det der med at tilfoeje en fil, som f.eks. afhaenger af datoen??? Vil det sige, at man ikke kan lave en  side, som har een opsaetning den ene dag og en anden den anden dag?

demo >> What....hvori ligger fejlen ? Hvad er det forøvrigt for noget vullapyk du har skrevet ?

stream.åben ?
split ornat ?
teach ?
fso.OpenmiaFile // Set fco = Server.CreateObject(\"Scriptillermng.FileSystemObject\") ?

boleole >> Du kan åbne en fil afhængigt af datoen også udskrive indholdet, men du kan ikke gøre det med include filer ?

stream.åben ?
split ornat ?
teach ?
fso.OpenmiaFile // Set fco = Server.CreateObject(\"Scriptillermng.FileSystemObject\") ?

De er de parametre der gør at \"databasen i det hele taget godtar` dem

Hvordan?:)

demo >> Hvad ævler du om ?

Ups en lille fejl mere, brug denne istedet:

function readfile(file)
Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
Set stream = fso.OpenTextFile(file, 1)
If stream.AtEndOfStream then
tmp = \"Filen er tom.\"
else
Do While stream.AtEndOfStream <> True
tmp = replace(stream.ReadLine, \"|\", \"\'\") & \"|\" & tmp
loop
end if
stream.close
set stream = nothing
set fso = nothing
reverse = split(tmp, \"|\")
for each item in reverse
tmp2 = tmp2 & item
next
readfile = tmp2
End Function

Indsæt denne funktion i din fil og kald den på følgende måde:

response.write readfile(server.mappath(\"dinfil.txt\"))

Læse fil afhængigt af dato:

variabel = date() & \".txt\"
Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
Set stream = fso.OpenTextFile(variabel, 1)
If stream.AtEndOfStream then
tmp = \"Filen er tom.\"
else
tmp = stream.ReadAll
end if
stream.close
set stream = nothing
set fso = nothing


Så kan du udskrive indholdet af filen på denne måde

response.write tmp

Kan jeg saa kalde en \'variable\' vha. <%= myVariable %>?

Du kan kalde variabel via <% =variabel %>

Men indholdet af filen ligger jo i <% =tmp %>

ang. variablen skal du bare huske at \"template\"
den:::tmp/up

demo >> Stop de der useriøse indlæg...

Husk <!D\"E\"M)O_``>=(I&D\"I?O+T)

Hey demo dette er ikke stedet hvis man ønsker mental hjælp