Doysa yoksa dosyayı yaratır. Her kayıtı yeni satıra oluşturur. Kod: userID = 11 userName = &quot;Ahmet AK&quot; set fso = Server. Createobject path = &quot;D:\test\user_list. txt&quot; ForReading = 1 ForWriting = 2 ForAppending = 8 set file = fso. opentextfile file. write &amp; vbcrlf file. close set file = nothing set fso = nothing Önemli: İlgili klasöre yazma hakkı vermeyi unutma. İyi çalışmalar.

sağol teşekkürler. geç saate kadar buradayım yardımcı olursan gece sevinirim.

Text Dosyaları edit olarak bir döküman Varolan Metin Dosyasına Ek Yapma Metin yazdırma işlerinde sık sık uygulayacağımız bir senaryo, mevcut bir metin dosyasına ek yapmak olacaktır. Örneğin bütün ziyaretçilerimizin sitemizdeki konuk defterine yazdıklarını, bir metin dosyasında toplamak isteyebiliriz. Bunu OpenTextFile metodu ile yapacağız. Bu metod, tahmin edeceğiniz gibi, açılacak dosyanın yolunu ve adını isteyecektir. Örneğin, dosya_yaz. asp'nin ilgili satırı şöyle olacak: Set yaz = YaziFSO. OpenTextFile(&quot;c:\yazi_deneme. txt&quot;,8,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 , ikincisi ise biçim 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ç -2: Sistemin varsayılan dosya türü olarak aç Buna göre, bir dosyayı salt okumak için açmak amacıyla "1,0" argümanlarını kullanmamız gerekir. Diyelim ki bir dosyayı açtık. İçindekileri nasıl okuyabiliriz? Bir döngüyle. İşte örneği: &lt;% Option Explicit %&gt; &lt;HTML&gt; &lt;HEAD&gt; &lt;TITLE&gt;ASP ILE DOSYADAN METİN OKUMA&lt;/TITLE&gt; &lt;META http-equiv=&quot;content-type&quot; content=&quot;text/html; charset=ISO-8859-9&quot;&gt; &lt;META http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=windows-1254&quot;&gt; &lt;/HEAD&gt; &lt;BODY&gt; &lt;% Dim DosyaSistemi, MetinDosyasi, Satir Set DosyaSistemi = CreateObject Set MetinDosyasi = DosyaSistemi. OpenTextFile(&quot;c:\yazi_deneme. txt&quot;,1, 0) Do Satir = MetinDosyasi. ReadLine %&gt; &lt;%=Satir%&gt; &lt;% Loop Until MetinDosyasi. AtEndOfStream MetinDosyasi. Close %&gt; &lt;/BODY&gt; &lt;/HTML&gt; Burada kullandığımız metod dikkatinizi çekmiş olmalı: 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ğlıyor. Bu döngü ne kadar sürüyor? MetinDosyası nesnesi, AtEndOfStream oluncaya kadar. Bu, dosyanın sonuna geldiğimiz anda ortaya çıkan bir durum; bu durumla karşılaştığı anda Do.. Loop, yaptığı işi durdurup, bir sonraki komuta geçecektir. Burada kullandığımız ReadLine metoduna ek olarak yararlanabileceğimiz diğer metodlar ise şunlardır: Read : Bir sayı örgümanı ile çalışır ve verdiğiniz sayı kadar karakter okur. ReadLine : Bir satır okur ve String olarak verir. ReadAll : Bütün satırları okur ve tek String olarak verir. Skip : Bir sayı argümanı ile çalışır ve verdiğiniz sayı kadar karakteri atlar. SkipLine : Bir sonraki satıra atlar. Bu metodlarla sağladığımız okuma işinin kontrolü amacıyla şu özellikleri de kullanabiliriz: AtEndOfStream : Okutulan dosyanın sonuna gelinmesi halinde True olur. AtEndOfLine : Okutulan satırın sonuna gelinmesi halinde True olur.

Kendime bir toplist yapıyorum. Bu Toplist e üye olanlar ı ben txt ye yazdırmak istiyorum mdb ye degil. fakat bir yrede takıldım. 1 kişi üye oluyor onu yazıyor 2inci üye oldugu zaman 1 inciyi siliyor onu yazıyor bunu nasıl yaparım? bu kod ile txt olusturuyorum set sayfa=dosya. createtextfile(server. mappath ,2) fakat dediğim gibi 2. üye olanın bilgilerini txt den siliyor en son üyeyi ekliyor bu koddamı bir sorun var acaba?

CreatText file diyince yeniden aynı isimde dosya oluşturuyor ve eskisinin üstüne kaydediyor. Text dosyanın son satırını bulup, bir artı satıra update yapabilirsin. Kodlar şu an elimde yok. Biri benden önce vermezse gece evden yardımcı olmaya çalışırım.

birisi Set f = fs penTextFile şekilde komutu verdi fakat denedim olmadı.trextra sende bi incelremisin bir zahmet