rothen ecotronics Bern: ASP-Skript "ASP Weitere Objekte: Dateien einlesen und anzeigen"

<%@ Language=VBScript %>
<%
option explicit
Response.Expires = 0
'on error resume next

'**********************************************************
'Variablendeklaration
Dim objtextfile
Dim objfs
Dim strabspath

'**********************************************************
'Variableninitialisierung
'Methodenaufruf, der String-Wert zurückliefert
strabspath = Server.MapPath("/asppages/silvi/uebungen/sprueche.txt")

%>

<html>
<head>
  <title>ASP Weitere Objekte:
    Dateien einlesen und anzeigen</title>
  <meta name="description" content="Mit Hilfe des FileSystem Object
    wird in dieser ASP-Seite eine Textdatei eingelesen und angezeigt" />
  <meta name="keywords" content="ASP, FileSystemObject, Dateiverwaltung,
    File Object, Folder Object" />

</head>
<body>
<%
'FileSystemObject erzeugen
Set objfs = CreateObject("Scripting.FileSystemObject")

'Textdatei-Objekt erzeugen und zum Lesen öffnen mit
'Methode, die Objekt zurückliefert
Set objtextfile = _
  objfs.OpenTextFile(strabspath,1,0)

'Datei zeilenweise anzeigen
Do
  'Methodenaufruf ohne Rückgabewert
  Response.Write(objtextfile.ReadLine & "<br />" & vbCrLf)
Loop Until objtextfile.AtEndOfStream

'Objekte schliessen und zerstören
objtextfile.close
set objtextfile = Nothing
set objfs = Nothing
%>


</body>
</html>

Demo: beispiele/040dateieinlesen.asp

Letzter Update: 26.12.2021 16:48

Zurück zur Liste mit ASP-Beispielen auf www.ecotronics.ch