8 Mart 2007

Cache ve Karakter Streamlar

Yeni bir nesne oluşturuyorum;
   S ZSTREAM=##CLASS(%Library.FileCharacterStream).%New()

İçeriğini okumak istediğim dosya adını giriyorum;
   S ZSTREAM.Filename="C:\deneme.txt"

While yardımı ile önce karakterleri bir lokal değişkene alıyorum, sonra ekrana yazdırıyorum;
   WHILE ('ZSTREAM.AtEnd) {
S ZSTR=ZSTREAM.ReadLine()
W !,ZSTR
}

İşim bitti nesneyi kapatıyorum.
   D ZSTREAM.%Close()

Hiç yorum yok: