rothen ecotronics Bern: ASP-Skript "ASP Weitere Objekte: Spruch der Woche (Datei einlesen)"

<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 0
On Error Resume Next

Sub procsprueche(ByVal strfilename, strtrennzeichen)
 'Konstanten für das Öffnen der Datei
 Const constforReading = 1 'nur Lesen
 Const consttristate = 0 'kein Unicode

 Dim arrtextline(), intcounter, intzufallszahl, objfs, objtextfile
 Dim strabsolutepath, strautor, strspruch, strzeile

 strabsolutepath = Server.MapPath(strfilename)
 'Response.Write(strabsolutepath)

 Set objfs = CreateObject("Scripting.FileSystemObject")
 If objfs.FileExists(strabsolutepath) Then
 'Datei öffnen für's lesen
 Set objtextfile = objfs.opentextfile(strabsolutepath, _
 constforreading, consttristate)
 intcounter = 0
 Do While Not objtextfile.AtEndOfStream
 ReDim preserve arrtextline(intcounter)
 arrtextline(intcounter) = objtextfile.ReadLine
 'Response.Write(arrTextline(i)&"")
 intcounter = intcounter + 1
 Loop

 'Zufällige Zeile aus Array holen
 Call randomize()
 intzufallszahl = Int(rnd() * intcounter)
 strzeile = arrtextline(intzufallszahl)
 strspruch = left(strZeile,instrrev(strZeile,strTrennzeichen)-1)
 strautor = right(strZeile,Len(strZeile)-instrrev(strZeile,strTrennzeichen))
 Response.Write("" & strspruch & " ")
 Response.Write("" & strautor & "")

 'Objekte zurücksetzen
 objtextfile.Close
 Set objtextfile = Nothing
 End If
 Set objfs = Nothing

End Sub
%>
<html>
<head>
<title>ASP Weitere Objekte: Spruch der Woche (Datei einlesen)</title>
</head>
<body>
<%
'*****************************************************************
'Code innerhalb der HTML-Seite
Call procsprueche("sprueche.txt","|")

%>

</body>
</html>

Demo: uebungen/uebung4_3sprueche.asp

Letzter Update: 26.12.2021 17:48

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