Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Active Server Pages (ASP)
Expertise: Beginner
Oct 5, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Displaying Quotations from Text Files

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:\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
        Exit Do
      End if
      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
   Response.write strResult
DevX Pro
Thanks for your registration, follow us on our social networks to keep up-to-date