Displaying Quotations from Text Files

Question:
How do I return only the first four lines (a quotation) of a txt-file to my asp-file?

Answer:
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
   Loop

Finally, close all your objects.

 F.Close
   Set f = Nothing
   Set fs = Nothing

Output your text
   Response.write strResult

DevX Pro

Submit a Tip

Browse "Database Development" Tips

Browse All Tips

0 Comments (click to add your comment)

Comment and Contribute