Notifikationer

Markér alle som læst Log ud

totalpc Seniormester

20. maj 2005 - 10:34 Der er 12 kommentarer og
1 løsning

Læse data ud fra tekstfil

Hej

Jeg laver noget daglig backup af noget data på min server.
Den laver en log fil der ender i en struktur der ser således ud :

E:\mirror_log\to 19-05-2005\mirror.log
E:\mirror_log\fr 20-05-2005\mirror.log
osv...

Indholdet kunne være :

Mirror v1.30 (C) 2001-2002 by Dominik Jain

updating e:\mirror_backup\Darkzone\admin\log.mdb
updating e:\mirror_backup\Darkzone\counter\data.mdb
updating e:\mirror_backup\Darkzone\Tagwall\krcDB.mdb

0 files added, 3 updated
0 files/directories deleted

Jeg ville så gerne kunne gå ind på en asp side på min server og se se logfilerne præsenteret på en smart måde. Så man kan læse dem direkte på siden altså...

Kan det gøres smart ?

Synes godt om

leonm Nybegynder

20. maj 2005 - 11:25 #1

Ja den er nem nok

<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
Response.Write(f.ReadAll)
f.Close
Set f=Nothing
Set fs=Nothing
%>

:) Leon

Synes godt om

totalpc Seniormester

20. maj 2005 - 12:03 #2

Men.......den læser kun i det bibliotek asp-filen ligger i gør den ik ?

Synes godt om

leonm Nybegynder

20. maj 2005 - 12:20 #3

Jeg tror ikke du kan gøre det ud fra en fysisk sti men kun fra en virtuel sti (MapPath)

forslag
1. sørg for at logsystemet placere filerne et sted på serveren hvor webserveren kan se dem
1. hvis du bruger IIS så opret en virtuel mappe på den placering hvor dine logfiler ligger og placer den asp-fil som læser filerne der

:) Leon

Synes godt om

leonm Nybegynder

20. maj 2005 - 12:28 #4

Øhh Ups !

Det kan du godt

<html>
<body>
This is all the lines in the text file:

<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile("E:\mirror_log\to 19-05-2005\mirror.log")
do while f.AtEndOfStream = false
Response.Write(f.ReadLine)
Response.Write(" ")
loop

f.Close
Set f=Nothing
Set fs=Nothing
%>

:) Leon

Synes godt om

totalpc Seniormester

20. maj 2005 - 12:40 #5

Ja okay.....
Men kan jeg ikke få det sådan at der på min side er link for alle de datoer der er taget backup hvis du forstår...

Altså sådan at den selv læser de datoer der er taget backup udfra stien og så laver et link hvor jeg kan klikke på og se log-filen!

Forstår du hvad jeg mener?

Synes godt om

leonm Nybegynder

20. maj 2005 - 13:04 #6

Jo sagtens

Har bikset en hurtig en sammen

Filen skal hedde default.asp ellers skal du rette linie 11

<%
dato = request.querystring("dato")
opgave = request.querystring("opgave")
If opgave="" Then opgave="finddatoer"

If opgave="finddatoer" Then
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:\install\6\")
for each x in fo.SubFolders
Response.write("<a href='default.asp?dato=" & x.Name & "&opgave=vislog'>" & x.Name & "</a> ")
next
set fo=nothing
set fs=nothing
End If

If opgave="vislog" Then
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile("E:\mirror_log\" & dato & "\mirror.log")
do while f.AtEndOfStream = false
Response.Write(f.ReadLine)
Response.Write(" ")
loop
f.Close
Set f=Nothing
Set fs=Nothing
End If
%>

:) Leon

Synes godt om

leonm Nybegynder

20. maj 2005 - 13:08 #7

shit den var for hurtig, vent lige lidt

Synes godt om

leonm Nybegynder

20. maj 2005 - 13:09 #8

Eller osse var det mig der var for hurtig :(

Den er ok !

:) Leon

Synes godt om

totalpc Seniormester

20. maj 2005 - 13:32 #9

Sejt mand....
Jeg har lige 2 små ting tilbage...

1. Kan man sortere output så den viser nyeste dato øvert i linket?

2. Hvis der nu kommer til at stå klokkeslet i bibliotekstnavnet og altså fx :
E:\mirror_log\to 19-05-2005 - 19:57:33\mirror.log
E:\mirror_log\fr 20-05-2005 - 20:57:33\mirror.log
osv...

Kan scriptet klare det ?

Synes godt om

leonm Nybegynder

20. maj 2005 - 13:40 #10

1. har jeg ikke noget bud på

2. ja den er bedøvende ligegeglad med hvad mapperne hedder

:) Leon

Synes godt om

totalpc Seniormester

20. maj 2005 - 13:55 #11

1. Øv
2. Kanon
3. Smid et svar
4. Tak for hjælpen :o)

Synes godt om

leonm Nybegynder

20. maj 2005 - 14:00 #12

Så lidt !

Synes godt om

totalpc Seniormester

20. maj 2005 - 14:08 #13

Bonus spgm....kender du svaret på : http://www.eksperten.dk/spm/619268

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
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

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