TextStream 3

Nachfolgend ein Beispiel, wie man ein File einlesen und and den Browser weiterleiten kann. Zum Beispiel um Templates einzulesen:

<% 
Dim objfs, objtxtfile, strline
Set objfs = _ 
  CreateObject("Scripting.FileSystemObject")
'Zum Lesen öffnen, ASCII-File
Set objtxtfile = _
  objfs.OpenTextFile("c:\temp\tstfile.txt",1,0)

Do
  strline = objtxtfile.ReadLine 
  Response.Write(strline & "<br/>" & vbCrLf)
Loop Until objtxtfile.AtEndOfStream
objtxtfile.Close
%>

Download der Textdatei für die Übung

Demo: uebungen/uebung4_3sprueche.asp