hjælp til at læse indhold i txt fil
Jeg bruger nedenstående kode til at vise indhold af nogle tekstfiler på min server.Kan man ikke få denne eller noget andet kode til at gå ind i tekstfilerne og søge efter ord som skipped og error. Og afhængig af hvad den finder skal der skrives noget ved siden af linket:
Fx
if skipped found = Response.write link + gul prik
if error found = Response.write link + rød prik
og ellers = Response.write link + grøn prik
<html>
<head>
<title>View_selected</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<link rel="stylesheet" type="text/css" href="style.css">
<SCRIPT LANGUAGE="JavaScript">
<!-- Idea by: Nic Wolfe (Nic@TimelapseProductions.com) -->
<!-- Web URL: http://fineline.xs.mw -->
<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->
<!-- Begin
function popUp(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "',
'toolbar=0,scrollbars=1,location=0,statusbar=0,menubar=0,resizable=0,width=420,height=410,left =
276,top = 232');");
}
// End -->
</script>
</head>
<body bgcolor="232323">
<div align="center">
<table border="0" width="80%">
<tr>
<td align=center class=text2><b>-=[@ Mirror Backup logs @]=</b>-</td>
</tr>
</table>
</div>
<div align="center">
<center><br>
<table border="0" width="80%">
<tr>
<td align=center class=text1>
<%
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("e:\mirror_backup_log\")
for each x in fo.SubFolders
Response.write("<a href=""java script:popUp('backup3.asp?dato=" & x.Name & "&opgave=vislog')"">" &
x.Name & "</a><br>")
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_backup_log\" & dato & "\mirror.log")
do while f.AtEndOfStream = false
Response.Write(f.ReadLine)
Response.Write("<br>")
loop
f.Close
Set f=Nothing
Set fs=Nothing
End If
%>
</td>
</tr>
</table>
</div>
</body>
</html>
