åben kun de første x linjer

Dim fso, f, filespec
Set fso = CreateObject(\"Scripting.FileSystemObject\")
filespec = Server.Mappath(\"/tutorials/asp/ministerier.txt\")
Set f = fso.OpenTextFile(filespec,1)

For intLine = 1 to 10
  Response.write f.ReadLine & \"<br>\"
Next

f.Close


//Claus

Kan du ikke få filen som læser og sætte det ind ?

Husk at rette sti og filnavn!

<%    Option Explicit    %>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\">
<%

    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    dim strPathInfo, strPhysicalPath
    strPathInfo = \"chat.txt\"
    strPhysicalPath = Server.MapPath(strPathInfo)
   
    Dim objFSO, objFile
    Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
    set objFile = objFSO.GetFile(strPhysicalPath)
%>   

<HTML>
<HEAD>
    <TITLE>ASP chatten</TITLE>
<META NAME=\"Generator\" CONTENT=\"Microsoft FrontPage 4.0\">
<meta http-equiv=\"refresh\" content=\"5; url=chat_read.asp\">
</HEAD>
<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#0000FF\" VLINK=\"#660066\" ALINK=\"#FF0000\">

<FONT FACE=Courier SIZE=2>
<%
    Dim objFileTextStream
    set objFileTextStream = objFile.OpenAsTextStream(ForReading, TristateUseDefault)
    Dim strLine, Count
    Count=-1
    Dim txtStream()
    Do While objFileTextStream.AtEndOfStream <> True
    Count=Count+1
        Redim Preserve txtStream(Count)
        strLine = Server.HTMLEncode(objFileTextStream.ReadLine)
        strLine = Replace (strLine, Chr(9), \"&nbsp;&nbsp;&nbsp;&nbsp;\")
        txtStream(Count) = strLine
\'        response.write \"<FONT FACE=\'Comic Sans MS, Comic, Arial, Helvetica\'>\" & txtStream(Count) &\"</FONT><BR>\"
    Loop
    objFileTextStream.Close

    Do while Count > 0
        response.write \"<FONT FACE=\'Arial\'>\" & txtStream(Count) & \"</FONT><BR>\"
        Count=Count-1
    Loop
       
%>
</FONT>

</BODY>
</HTML>

Send den til: clc@kdc.dk

Okay, glem at sende den! ;o)

den må også godt starte på de to første linjer i txt filen.

Øhhh, hvad mener du med at den godt må starte på de 2 første linier????

den læser kun fra linje 3 også nedefter det er vel noget med dette er det ik ?
<%

    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    dim strPathInfo, strPhysicalPath
    strPathInfo = \"chat.txt\"
    strPhysicalPath = Server.MapPath(strPathInfo)
   
    Dim objFSO, objFile
    Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
    set objFile = objFSO.GetFile(strPhysicalPath)
%>   

Kan du klare den første bare *s*

Jeg skal lige til frokost, så jeg vil kigge på det efter. Hvis spg. stadig er åbent ;o)

//Claus

Hmm ok

Jeg vil lige sige at jeg skødesløst kastede :
<%
Dim fso, f, filespec
Set fso = CreateObject(\"Scripting.FileSystemObject\")
filespec = Server.Mappath(\"chat.txt\")
Set f = fso.OpenTextFile(filespec,1)

For intLine = 3 to 10
  Response.write f.ReadLine & \"<br>\"
Next

f.Close
%>
ind og den sagde fejl noget med intLine

arh nu kan du da snart ikke spise mere *g*

Pyha, det var dejligt.

Prøv lige at erstatte intline med i

Så kigger jeg på det andet imellemtiden.

//Claus

Hmmm, du skriver den kun skal hente de første 10 linier! Men den læser jo bagfra i filen?

Så mener du i virkligheden de sidste 10 linier?

//Claus

http://zequenze.dns2go.com/webcam/chat/

den skal tage de sidste 10 ja det må det være

Beklager det var mig, det gik vist lidt stærkt. Den læser fra linie 2 og i bund, vender dem og skriver dem omvendt på skærmen.

Prøv at se om dette ikke virker efter hensigten:

<%    Option Explicit    %>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\">
<%

    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    dim strPathInfo, strPhysicalPath
    strPathInfo = \"chat.txt\"
    strPhysicalPath = Server.MapPath(strPathInfo)
   
    Dim objFSO, objFile
    Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
    set objFile = objFSO.GetFile(strPhysicalPath)
%>   

//Claus

<HTML>
<HEAD>
    <TITLE>ASP chatten</TITLE>
<META NAME=\"Generator\" CONTENT=\"Microsoft FrontPage 4.0\">
<meta http-equiv=\"refresh\" content=\"5; url=chat_read.asp\">
</HEAD>
<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#0000FF\" VLINK=\"#660066\" ALINK=\"#FF0000\">

<FONT FACE=Courier SIZE=2>
<%
    Dim objFileTextStream
    set objFileTextStream = objFile.OpenAsTextStream(ForReading, TristateUseDefault)
    Dim strLine, Count
    Count=0
    Dim txtStream()
    Do While objFileTextStream.AtEndOfStream <> True and Count < 10
    Count=Count+1
        Redim Preserve txtStream(Count)
        strLine = Server.HTMLEncode(objFileTextStream.ReadLine)
        strLine = Replace (strLine, Chr(9), \"&nbsp;&nbsp;&nbsp;&nbsp;\")
        txtStream(Count) = strLine
\'        response.write \"<FONT FACE=\'Comic Sans MS, Comic, Arial, Helvetica\'>\" & txtStream(Count) &\"</FONT><BR>\"
    Loop
    objFileTextStream.Close

    Do while Count > 0
        response.write \"<FONT FACE=\'Arial\'>\" & txtStream(Count) & \"</FONT><BR>\"
        Count=Count-1
    Loop
       
%>
</FONT>

</BODY>
</HTML>

nu tager den ikke de nyeste men den laver kun 10 linjer så vi er på rette spor

Når der skives nye linier i tekstfilen, gøres det så i toppen eller bunden af tekstfilen?

//Claus

den må jo så skrive til den tomme linje i bunden

hjalp det ?

Tjaaa, det kan man godt sige! Jeg aner nemlig ikke hvordan man læser baglæns i en tekstfil! Så enten skal du vente på en som ved det, eller også skal vi ændre i skrivningen, således det hele tiden er de nyeste som står øverst?

Vil du meget gerne gemme elle linierne, eller har du kun brug for de 10 nyeste?

Det afgør du?

//Claus

vil gerne have alle. vil du have den der hvor man skriver ?

Jeg er frisk, så bare læg den op på siden her! ;o)

//Claus

chat_write.asp
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\">
<HTML>
<HEAD>
<!-- \"This document is made in Stone\'s WebWriter 2\" -->
    <TITLE>ASP chatten</TITLE>
<META NAME=\"Generator\" CONTENT=\"Microsoft FrontPage 4.0\">
</HEAD>
<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#0000FF\" VLINK=\"#660066\" ALINK=\"#FF0000\">

<%
Dim C9tjatter, strToChatWith
C9tjatter = request.form(\"C9tjatter\")
strToChatWith = request.form(\"chatTxt\")
%>

<%
    Const ForAppending = 8

    dim strChatFileName, strPhysPath
    strPhysPath = Server.MapPath(\"chat.txt\")
    strChatFileName = strPhysPath

    dim objChatFileFSO
    set objChatFileFSO = CreateObject(\"Scripting.FileSystemObject\")

    dim objChatFileTS
    if objChatFileFSO.FileExists(strChatFileName) then
\'        Response.write strChatFileName
        set objChatFileTS = objChatFileFSO.OpenTextFile(strChatFileName, ForAppending)
    else
        set objChatFileTS = objChatFileFSO.CreateTextFile(strChatFileName)
    end if
   
    sub WriteToChat (strNewEntry)
        dim strChatEntry
        strChatEntry = FormatDateTime(Now) & \" - \"
        strChatEntry = strChatEntry & C9tjatter & \": \" & strNewEntry
        objChatFileTS.WriteLine strChatEntry
    end sub
   
    sub CloseChat()
        objChatFileTS.Close
    end sub
%>

<%
if trim(strToChatWith) <> \"\" then
    WriteToChat trim(strToChatWith)
    CloseChat
end if
%>

<FORM NAME=\"chatForm\" ACTION=\"chat_write.asp\" METHOD=\"POST\">
<p align=\"left\"><font size=\"2\" face=\"Arial\">

Navn:</font>
<FONT FACE=\"Arial, Helvetica\">

<INPUT TYPE=\"TEXT\" NAME=\"C9tjatter\" VALUE=\"<%=C9tjatter%>\" SIZE=\"10\" MAXLENGTH=\"16\">&nbsp;&nbsp;&nbsp;<br>
</FONT><font face=\"Arial\" size=\"2\">Tekst:</font><FONT FACE=\"Arial, Helvetica\"><INPUT TYPE=\"TEXT\" NAME=\"chatTxt\" SIZE=\"40\" MAXLENGTH=\"60\"><FONT SIZE=\"2\"><INPUT TYPE=\"SUBMIT\" NAME=\"send\" VALUE=\"Send\"><INPUT TYPE=\"RESET\" NAME=\"nulstil\" VALUE=\"Slet\">
</FONT><BR>
<FONT SIZE=\"2\">
&nbsp;
</FONT>
</FONT></p>

</FORM>

</BODY>
</HTML>

kunne det hjælpe ?

Kan jeg fornemme, at jeg bliver holdt til ilden her ;o)

Rolig nu, jeg skal også lave lidt arbejde ind i mellem! Jeg kigger på det om lidt - OK. ,o)

//Claus

*s* Tjaa

er du igang *g* ?

Nej, men jeg starter nu *g*

*g* Ok, hvis det er nemmere, har jeg icq.

Hallo....Kommer du på icq eller hva ?

Nå, jeg har skrevet lidt om i begge filer:

Den fil som læser:
------------------
<%    Option Explicit    %>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\">
<%

    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    dim strPathInfo, strPhysicalPath
    strPathInfo = \"chat.txt\"
    strPhysicalPath = Server.MapPath(strPathInfo)
   
    Dim objFSO, objFile
    Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
    set objFile = objFSO.GetFile(strPhysicalPath)
%>   

<HTML>
<HEAD>
    <TITLE>ASP chatten</TITLE>
<META NAME=\"Generator\" CONTENT=\"Microsoft FrontPage 4.0\">
<meta http-equiv=\"refresh\" content=\"5; url=chat_read.asp\">
</HEAD>
<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#0000FF\" VLINK=\"#660066\" ALINK=\"#FF0000\">

<FONT FACE=Courier SIZE=2>
<%
    Dim objFileTextStream
    set objFileTextStream = objFile.OpenAsTextStream(ForReading, TristateUseDefault)
    Dim strLine, Count
    Count=0
    Dim txtStream()
    Do While objFileTextStream.AtEndOfStream <> True and Count < 10
        strLine = Server.HTMLEncode(objFileTextStream.ReadLine)
        strLine = Replace (strLine, Chr(9), \"&nbsp;&nbsp;&nbsp;&nbsp;\")
        response.write \"<FONT FACE=\'Arial\'>\" & strLine & \"</FONT><BR>\"
        Count=Count+1
    Loop
       
%>
</FONT>

</BODY>
</HTML>




Den fil som skriver:
--------------------
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\">
<HTML>
<HEAD>
<!-- \"This document is made in Stone\'s WebWriter 2\" -->
    <TITLE>ASP chatten</TITLE>
<META NAME=\"Generator\" CONTENT=\"Microsoft FrontPage 4.0\">
</HEAD>
<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#0000FF\" VLINK=\"#660066\" ALINK=\"#FF0000\">

<%
Dim C9tjatter, strToChatWith
C9tjatter = request.form(\"C9tjatter\")
strToChatWith = request.form(\"chatTxt\")
%>

<%
    Const ForReading = 1, ForWriting = 2, ForAppending = 8

    dim strChatFileName, strPhysPath
    strPhysPath = Server.MapPath(\"chat.txt\")
    strChatFileName = strPhysPath

    dim objChatFileFSO
    set objChatFileFSO = CreateObject(\"Scripting.FileSystemObject\")

    dim objChatFileTS, Alt
    if objChatFileFSO.FileExists(strChatFileName) then
\'        Response.write strChatFileName
        set objChatFileTS1 = objChatFileFSO.OpenTextFile(strChatFileName, ForReading)
        Alt                = objChatFileTS1.ReadAll
        objChatFileTS1.Close
    else
        set objChatFileTS = objChatFileFSO.CreateTextFile(strChatFileName)
    end if
   
    sub WriteToChat (strNewEntry)
        dim strChatEntry
        set objChatFileTS = objChatFileFSO.OpenTextFile(strChatFileName, ForWriting)
        strChatEntry = FormatDateTime(Now) & \" - \"
        strChatEntry = strChatEntry & C9tjatter & \": \" & strNewEntry
        objChatFileTS.WriteLine strChatEntry
        objChatFileTS.WriteLine Alt
    end sub
   
    sub CloseChat()
        objChatFileTS.Close
    end sub


if trim(strToChatWith) <> \"\" then
    WriteToChat trim(strToChatWith)
    CloseChat
end if
%>

<FORM NAME=\"chatForm\" ACTION=\"linie1_10b.asp\" METHOD=\"POST\">
<p align=\"left\"><font size=\"2\" face=\"Arial\">

Navn:</font>
<FONT FACE=\"Arial, Helvetica\">

<INPUT TYPE=\"TEXT\" NAME=\"C9tjatter\" VALUE=\"<%=C9tjatter%>\" SIZE=\"10\" MAXLENGTH=\"16\">&nbsp;&nbsp;&nbsp;<br>
</FONT><font face=\"Arial\" size=\"2\">Tekst:</font><FONT FACE=\"Arial, Helvetica\"><INPUT TYPE=\"TEXT\" NAME=\"chatTxt\" SIZE=\"40\" MAXLENGTH=\"60\"><FONT SIZE=\"2\"><INPUT TYPE=\"SUBMIT\" NAME=\"send\" VALUE=\"Send\"><INPUT TYPE=\"RESET\" NAME=\"nulstil\" VALUE=\"Slet\">
</FONT><BR>
<FONT SIZE=\"2\">
&nbsp;
</FONT>
</FONT></p>

</FORM>

</BODY>
</HTML>

Virker det *g*