בדוגמא זו נראה איך מוציאים משפט אקראי מקובץ טקסט והצגתו.
נשתמש בקוד זה למשל במקרה שיש לנו קובץ ASP שמאפשר לאורחי האתר להוסיף משפטים לקובץ טקסט,
כשאחר כך נציג משפט (שורה מקובץ הטקסט) שיבחר שרירותית, במקום כלשהו באתר.
הוראות הכנה
נצטרך ליצור שני דפים:
דף ראשון - Log.txt
קובץ טקסט זה יכיל שורה ראשונה שיצויין בה מספר המשפטים שנמצאים בקובץ,
אחרי שורה זו יופיעו מספר משפטים (לפי המספר שרשום בשורה הראשונה).
Log.txt:
<![CDATA[5
יום נעים
השעה חמש והרי החדשות
כל-טוב לכם ולבני משפחותיכם
חג חנוכה שמח וכשר
כל כלב בא יומו]]>
דף שני - Rnd_Sen_TEXT.asp
קובץ זה יבחר שרירותית את מספר שורה ויציג את המשפט הכתוב בה
Rnd_Sen_TEXT.asp: <![CDATA[<%@ Language=VBScript %>
<%
set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
FilePath = Server.MapPath("log.txt")
set FileStream = ObjFSO.OpenTextFile(FilePath,1,False)
' קריאת השורה הראשונה (מספר השורות) והפיכתו למספר
LineStream = FileStream.ReadLine
Lines = cint(LineStream)
' הוצאת מספר שרירותי
Randomize
RndNum = (int(lines * rnd))+1
for i = 1 to RndNum
SelectedLine = FileStream.ReadLine
next
FileStream.Close
set FileStream = nothing
set ObjFSO = nothing
%>
<HTML>
<HEAD>
<TITLE>השורה האקראית</TITLE>
</HEAD>
<BODY DIR=RTL>
<CENTER>
מספר השורה שנבחרה הוא: <FONT color=red><%=RndNum%></FONT><BR>
תוכן השורה הוא: <FONT color=red><%=SelectedLine%></FONT><BR>
<BR><BR>
<INPUT Type=button onclick=javascript:window.location.reload() value="רענן">
<INPUT Type=button onclick=javascript:history.back value="חזרה" >
</CENTER>
</BODY>
</HTML>]]>
הערה: אנו מתייחסים כעת אל קובץ הטקסט כ-"מסודר",
אם נוסיף או נחסיר ממנו שורות באחריותנו לעדכן בהתאם את השורה הראשונה בקובץ.
|
.png)
