Læse den sidste linie og skrive den til DB eller en ande tekstfil
Her er en der læser linie 1, men jeg kan ikke finde ud af hvordan jeg læser sidste linie og sætter den ind i en DB eller bare en anden tekstfil, er der nogle der kan hjælpe.
<html> <title>Læse fra tekstfiler</title> <head> </head> <body> <% Dim fso, f, filespec Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("GPRS.Log") Set f = fso.OpenTextFile(filespec,1)
' Læs linie fra tekstfilen, og skriv indholdet til klienten Response.write f.ReadLine
Virksomheder er på vej fra store sprogmodeller, der svarer på spørgsmål, til AI-agenter, der kan udføre opgaver på egen hånd. Det gør teknologien mere nyttig – og langt mere risikabel.
<html> <title>Læse fra tekstfiler</title> <head> </head>
<body> <% Dim fso, filespec, sLine, f Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("GPRS.Log")
'fso.OpenTextFile returnerer en såkaldt TextStream Set f = fso.OpenTextFile(filespec,1)
while not f.atendofstream 'sLine bliver læst ind fra textStream, indtil enden er nået. sLine = f.readline wend f.close Response.Write sLine
%> </body> </html>
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.
