How do I return only the first four lines (a quotation) of a txt-file to my asp-file?
Use the FileSystem Object to open the text file and then read the first four lines into a string variable. Then write the string variable out on to your Web site.
First, create a FileSystemObject object.
Dim fs, f, strOneLine, i
Set fs = CreateObject("Scripting.FileSystemObject")
Next, create a TextStream Object out of the FileSysemObject.
Set f = fs.OpenTextFile("c:\testfile.txt", 1,0)
' -- in above code,
' -- 1 = for reading
' -- 0 = TriStateFalse
Read the first four lines from the TextStream Object. Use the AtEndOfStream property to make sure you are not at end of file.
i = 0
strResult = ""
Do While f.AtEndOfStream <> True
i = i+1
if i > 4 then
' -- we have read the first four lines
' -- get out
strOneLine = F.ReadLine
' -- do something with your line
strResult = strResult & vbCrlf & strOneLine
Finally, close all your objects.
Set f = Nothing
Set fs = Nothing
Output your text