Şub
27Text dosyasını olduğu gibi sayfaya dökmek için bir döngü ile birlikte fonksiyon kullanmamız gerekmektedir.
Artık bu konudaki basit işlemlerimiz bitiyor. Döngüler işin içine girmeye başlıyor. şimdi daha önceden de söylediğim gibi hala split nesnemizi kullanmayacağız. (Fakat sizler kaydederken işlemlerinizde düzenli kaydetmeniz halinde split'e gerek duymadan listeleme yapabilirsiniz. Ama yinede bir işlemi daha derli toplu yapabilmek için kaydederken düzensiz, verileri okurken düzenli okumak daha mantıklıdır.)
Öncelikle kullanacağımız işlemleri düşünelim. Mutlaka ReadAll fonksiyonumuz olacaktır. Unutmayın ReadAll tümünü, ReadLine satırı ifade eder.
Burada şimdiye kadar karşılaşmadığımız bir düğüm noktası var. AtEndOfStream = false Anlamı ise şudur. Dosyayı baştan sona kadar tarar (Konuk dosyayı konumlama) ve değer sona geldiğinde bitirir.
Yani kısaca biz şurada şöyle bir ifade veriyoruz, dosyada veri bitene (sonuna gelene) kadar sürdür.
Öncelikle kullanacağımız işlemleri düşünelim. Mutlaka ReadAll fonksiyonumuz olacaktır. Unutmayın ReadAll tümünü, ReadLine satırı ifade eder.
<%
' FSO bağlan
set nesne = Server.CreateObject("Scripting.FileSystemObject")
' Dosyayı kontrol et yoksa oluştur, yazma izni ile aç
set AO = nesne.OpenTextFile(Server.MapPath("veriler.txt"),1)
' Döngüyü dosyada veri bitene kadar aç, sürdür ve ekrana çıktı ver
Do while AO.AtEndOfStream = false
Response.write AO.ReadLine
Response.write "<br />"
Loop
' Dosyayı kapat
AO.close
%>
' FSO bağlan
set nesne = Server.CreateObject("Scripting.FileSystemObject")
' Dosyayı kontrol et yoksa oluştur, yazma izni ile aç
set AO = nesne.OpenTextFile(Server.MapPath("veriler.txt"),1)
' Döngüyü dosyada veri bitene kadar aç, sürdür ve ekrana çıktı ver
Do while AO.AtEndOfStream = false
Response.write AO.ReadLine
Response.write "<br />"
Loop
' Dosyayı kapat
AO.close
%>
Burada şimdiye kadar karşılaşmadığımız bir düğüm noktası var. AtEndOfStream = false Anlamı ise şudur. Dosyayı baştan sona kadar tarar (Konuk dosyayı konumlama) ve değer sona geldiğinde bitirir.
Yani kısaca biz şurada şöyle bir ifade veriyoruz, dosyada veri bitene (sonuna gelene) kadar sürdür.
