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:
Yorum Gönder