Notifikationer

Markér alle som læst Log ud

Slettet bruger

21. maj 2007 - 04:44 Der er 6 kommentarer og
1 løsning

Behandling af txt fil (log)

Hej.

Jeg leder lidt efter et script som kan gå ind i en txt fil, eller en .log fil, og indsætte den øverste linie til at være noget bestemt fra ASP.
Bagefter skal .log eller .txt filen kunne læses fra en simpel asp side, med en "slette" knap, som sletter hele loggen.

Dvs. hvis jeg får følgende frem i en asp kode
response.write("ip: " & request.servervariables(remote_addr) & " . dato: " & date() & " . klokken: " & time)

Så skal den skrive det ind i en .txt eller .log fil som den øverste tråd (hvis ikke muligt, så den nederste)

Nogen der ved hvor jeg kan finde et sådanne script?
Og er det overhovedet muligt?

Synes godt om

fennec Nybegynder

21. maj 2007 - 08:17 #1

Det nemmeste er at skrive til slutningen af filen:

Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", 8, True, -1)
f.Write "ip: " & request.servervariables(remote_addr) & " . dato: " & date() & " . klokken: " & time
f.Close

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/8575e5c4-dec5-48e7-92a2-790cac708c7f.asp

Synes godt om

fennec Nybegynder

21. maj 2007 - 08:22 #2

Også skal det nok være WriteLine i stedet for Write

Læsning:
Set FSO = server.createobject("scripting.filesystemobject")
Set f = fso.OpenTextFile("c:\testfile.txt", 1, True, -1)
'Løb hele filen igennem
Do While not f.AtendOfStream
line = f.ReadLine
loop
'Line indeholder nu den sidste linje.
response.write line

Synes godt om

w13 Novice

21. maj 2007 - 21:35 #3

Jeg tror, at hvis du skriver:
------------------
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", 8, True, -1)
f.Write ""
f.Close
--------------------
Så slettes alt indhold. =)

Synes godt om

fennec Nybegynder

22. maj 2007 - 08:26 #4

Ikke med 8 som parameter. Det betyder at den skal appende filen. Det skal være 2 som er almindelig writing:

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", 2, True, -1)
f.Write ""
f.Close

Men man kan lige så godt bare slette filen, da den bliver oprettet igen (pga true parameteren), hvis den ikke eksistere.

Synes godt om

w13 Novice

22. maj 2007 - 16:00 #5

Jaeh, det er self. rigtigt :)

Synes godt om

Slettet bruger

12. juni 2007 - 00:44 #6

Hov, glemte sgu at sige der skulle svares :D tak for hjælpen fennec, du må gerne svare :)

w13, du var tæt på at ramme den helt ;) men brugte nu mest fennec som hjælp, sorry..

Synes godt om

fennec Nybegynder

12. juni 2007 - 08:17 #7

.o) <-- One Eyed Jack

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS