TextStream Nesnesi

TextStream Nesnesi

Metin Akımı

Web Server ve dolayısıyla ASP açısından sabit diske bir metin yazarken, veya sabit diskten bir metin okurken, bir metin akışı nesnesi oluşur. Bu nesnenin özellikleri ve metodlarını kullanarak, ziyaretçin sitemize bırakacağı form bilgilerini Web Server’ın sabit diskine yazdırabilir veya mevcut metinleri okuyabilir ve bunların içeriğini ziyaretçimize sunabiliriz.

Metin dosyası okumak ve yazmak disk sistemini ilgilendiren bir eylem olduğu için yine Scripting nesnelerinden FileSystemObject nesnesinden yararlanacağız.
Metin Dosyası Oluşturma

(CreateTextFile)

ASP sayfaları sayesinde sunucu üzerinde bir text dosyası oluşturulur yada bu text dosyasına ek yapabiliriz.

Bu sayfa açıldığı anda sunucu üzerinde bir text dosyası oluşturulacak ve içerisine yazı yazılacaktır.

Kod:

<%
Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

Set MyFile = fso.CreateTextFile("c:testfile.txt", True)

MyFile.WriteLine("Test Yazımız.")

MyFile.Close

%>

CreateTextFile (metin dosyası oluştur) bu metoda argüman olarak yeni metin dosyasının yolunu ve adını veriyorduk

WriteLine (satır yaz: bir String’i sonuna yeni satır karakteri koyarak dosyaya yazar)

Close (kapat: açılan metin dosyasını kapatır).

TextStream’in burada kullandığımız ikisinin dışında iki metodu daha vardır:

Write (yaz): Bir String’i dosyaya yazdırır; satır sonuna yeni satır karakteri (Return kodu) koymaz.

WriteBlankLines (boş satır yaz): Bir metin dosyasına argüman olarak vereceğiniz sayıda boş satır yazdırır.
Varolan Metin Dosyasını Açma ve Ek Yapma

(OpenTextFile)

Kod:

<%
Dim DosyaSistemi, MetinDosyasi, Satir
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
Set MetinDosyasi = DosyaSistemi.OpenTextFile("c:yazi_deneme.txt",1, 0)
Do
Satir = MetinDosyasi.ReadLine
%>
<%=Satir%>
<%
Loop Until MetinDosyasi.AtEndOfStream
MetinDosyasi.Close
%>

Set MetinDosyasi = DosyaSistemi.OpenTextFile("c:yazi_deneme.txt",1, 0)

Burada dosya yolunu ve adını veren birinci argümana ek olarak iki yeni argüman görüyorsunuz: “8,0” şeklinde

Bunlardan birinicisi girdi/çıktı durumu (I/O Mode), ikincisi ise biçim (Format) ile ilgilidir. I/O Mode parametreleri şunlardır.

1: okumak için aç
8: eklemek için aç

Açılacak dosyanın biçimini belirttiğimiz son argüman ise şu değerlerden birini alabilir:

0: ASCII dosyası olarak aç
-1: Unicode dosyası olarak aç (Örneğin içinde Türkçe karakterler varsa)
-2: Sistemin varsayılan dosya türü olarak aç

ReadLine. Bu, açılan metin dosyasından bir satır okutmamızı sağlar.
İkinci ve son satırları okutmamızı ise Do..Loop kontrolü sağlar. Bu Döngü AtEndOfStream oluncaya kadar (dosyanın sonuna gelene kadar) devam eder.

Kullanbilecegimiz Diger komutlar;

Read (oku): Bir sayı örgümanı ile çalışır ve verdiğiniz sayı kadar karakter okur.
ReadLine (satır oku): Bir satır okur ve String olarak verir.
ReadAll (tümünü oku): Bütün satırları okur ve tek String olarak verir.
Skip (atla): Bir sayı argümanı ile çalışır ve verdiğiniz sayı kadar karakteri atlar.
SkipLine (satır atla): Bir sonraki satıra atlar.
Bu metodlarla sağladığımız okuma işinin kontrolü amacıyla şu özellikleri de kullanabiliriz:
AtEndOfStream (akımın sonunda): Okutulan dosyanın sonuna gelinmesi halinde True (doğru) olur.
AtEndOfLine (satırın sonunda): Okutulan satırın sonuna gelinmesi halinde True (doğru) olur.