|
||
| Editor Login | Register | ||
| > Bilgisayar > Web Programlama > ASP |
|
|
| Text Dosyasındaki Bütün Satırları Okumak |
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. <% " 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. |
|
| Bağlantılar: bilgininefendisi.net |
| Open Source Document Project | AUP&TOS |