11. december 2001 - 14:28Der er
8 kommentarer og 1 løsning
Skriv til .TXT
Jeg har følgende kode:
<%
Text = Request.Form(\"news\") Text = Replace(Text, vbCrLf, \"<br>\")
filename=server.mappath(\"../news/news.txt\") Set fs = CreateObject(\"Scripting.FileSystemObject\") Set writefile = fs.OpenTextFile(filename, 2, True) writefile.writeline(Text) writefile.Close set writefile=nothing set fs=nothing %>
Det jeg mangler er at i den TXT fil jeg her skriver til skal der altid i starten stå: news=
så hvis man skriver: asp og flash er bare NAJS! skal der i txt filen stå: news=asp og flash er bare NAJS!
\'**************************** FUNCTION appendToFile(filename, logtext) \'**************************** DIM whichfile, fs, a
whichfile = server.mappath(filename) Set fs = CreateObject(\"Scripting.FileSystemObject\") Set a = fs.OpenTextFile(whichfile, 8, TRUE) a.Write(logtext) a.Close SET a = nothing SET fs = nothing \'**************************** END FUNCTION \' writeToLogfile \'****************************
jaja , du får dine \"fortjente points\" for Text = \"news=\" & Replace(Text, vbCrLf, \"<br>\") , men jeg fandt selv ud af det writefile.writeline(\"news=\" & Text) så egentlig er lidt smartere :-)
det vigtigste for mig var bare at det var mig selv der fandt ud af det :-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
