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 Dim strResult Set fs = CreateObject("Scripting.FileSystemObject")
Next, create a TextStream Object out of the FileSysemObject.
Set f = fs.OpenTextFile("c: estfile.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 Exit Do End if strOneLine = F.ReadLine ' -- do something with your line strResult = strResult & vbCrlf & strOneLine Loop
Finally, close all your objects.
F.Close Set f = Nothing Set fs = NothingOutput your text Response.write strResult