open file

Hvis du mener linie 1,2 og 5 er det noget ala dette:

<%
Dim objFS, objTXTStream,
set objFS = Server.CreateObject(\"Scripting.FileSystemObject\")
set objTXTStream = objFS.OpenTextFile(\"c:\\somefile.txt\", 1, false)
For i = 0 to 5
strTemp = objTXTStream.ReadLine
If i = 1 or i = 3 or i = 5 Then
  strIndhold = strIndhold & strTemp & \"<br/>\"
End If
next

objTXTStream.close

Set objFS = Nothing
Set objTXTStream = Nothing

Response.write strIndhold
%>

Og det var selvfølgelig linie 1,3 og 5 der læses i ovenstående.

Hvad så hvis den skal skrive alle linier ud, one by one???

do while objTXTStream.AtEndOfStream <> true
    strIndhold = strInhold & objTXTStream.Readline & \"<br/>\"
loop

istedet for


For

....

next

nææææ, den skriver kun den sidste linie så?

og hvordan med de 50 sidste?

En slåfejl

    strIndhold = strInhold & objTXTStream.Readline & \"<br/>\"

skal være

    strIndhold = strIndhold & objTXTStream.Readline & \"<br/>\"

okay...

Hvad nu hvis den skal springe linie 1 over?

Det er ikke forbudt at tænke selv eller evt. slå op i dokumentationen:

Enten kan du bruge:


strGarbage = objTXTStream.Readline
  Do while objTXTStream.AtEndOfStream <> true
    strIndhold = strIndhold & objTXTStream.Readline & \"<br/>\"
loop

Eller endnu bedre:

objTXTStream.SkipLine
  Do while objTXTStream.AtEndOfStream <> true
    strIndhold = strIndhold & objTXTStream.Readline & \"<br/>\"
loop

Det var så 3 spørgsmål jeg har svaret på det må jo så give 90 point :-)

Nej, det er ikke forbut at tænke selv, men jeg havde ikke lige tid... Jeg har desværere ikke 90 point...

Hvad så med de der sidste 100?????

Hvad snakker du om?