Text Dosyaya Yazdırma
Text dosyasına istediğiniz veriyi girebilir. Veri depolama işlemlerinizi bu şekilde kolaylıkla halledebilirsiniz.
<center>ÖRNEK</center>
<%
'-- Öncelikle FileSystemObject nesnesi DosyaNesnesi isimli değişkene aktarıldı.
Set DosyaNesnesi=CreateObject("Scripting.FileSystemObject")
'-- Server'ın kök klasörü altında ornek.txt isimli dosya açıldı.
Set Dosya=DosyaNesnesi.OpenTextFile(server.mappath("\ornek.txt"),1,False,False)
'-- ornek.txt içerisine Merhaba yazılı bir satır ekler.
Dosya.writeLine("Merhaba")
'-- Dosya değişkeni server'ın belleğinden atıldı.
Dosya.close
'-- DosyaNesnesi değişkeni server'ın belleğinden atıldı.
Set Dosya=Nothing
Set DosyaNesnesi=Nothing
%>
<%
'-- Öncelikle FileSystemObject nesnesi DosyaNesnesi isimli değişkene aktarıldı.
Set DosyaNesnesi=CreateObject("Scripting.FileSystemObject")
'-- Server'ın kök klasörü altında ornek.txt isimli dosya açıldı.
Set Dosya=DosyaNesnesi.OpenTextFile(server.mappath("\ornek.txt"),1,False,False)
'-- ornek.txt içerisine Merhaba yazılı bir satır ekler.
Dosya.writeLine("Merhaba")
'-- Dosya değişkeni server'ın belleğinden atıldı.
Dosya.close
'-- DosyaNesnesi değişkeni server'ın belleğinden atıldı.
Set Dosya=Nothing
Set DosyaNesnesi=Nothing
%>
0 comments:
Post a Comment