Text Dosyasının Başından Belirli Karakter Atlamak - aspogren.net - GetParentFolderName - Status - GetBaseName - Application.Lock

ana sayfa hakkında forum (yeni) rss takibi reklam yerleşimi iletişim giriş

İçerik Kategorileri

Active Server Pages

ASP Hızlı Referans

Browser Scripting

VBScript [4]
SQL Sorgulama [4]

MySQL [0]
Uygulamalar

Sitede Ara

Hosting Sponsorumuz

Şub

Text Dosyasının Başından Belirli Karakter Atlamak

TextStream Nesnesi1 yorum1309 izlenimsrcnckr

Text veritabanı işte işimize yarayacak bir çok işlemi gerçekleştiriyor. şimdide belirtilen karakter sayısı kadar karakteri atlayarak kalan metni yazdırmaya çalışacağız.

Daha önce işlediğimiz Text Dosyasının Başından Belirli Karakter Okumak işleminin tam tersi bir işlemi gerçekleştireceğiz.

Önceki yazımızda belirtilen karakteri okuyup, kalanı kırpmıştık. şimdi ise bunun tam tersi olanı yapacağız. Belirtilen karakteri kırpıp, kalanı okutacağız.

<%
   ' FSO bağlan
   set nesne = Server.CreateObject("Scripting.FileSystemObject")
   ' Dosyayı kontrol et yoksa oluştur, yazma izni ile aç
   set AO = nesne.OpenTextFile(Server.MapPath("veriler.txt"),1)
      ' Veriyi Kırp ve Çıktı Ver
      AO.Skip(3)
      Response.Write AO.ReadAll
   ' Dosyayı kapat
   AO.close
%>

Hemen aklımıza bir soru geliyor. Peki bu iki işlemi birleştirerek kullanamıyız. Neden olmasın? Hem kırpalım hemde belirtilen karakter kadar okutalım.

<%
   ' FSO bağlan
   set nesne = Server.CreateObject("Scripting.FileSystemObject")
   ' Dosyayı kontrol et yoksa oluştur, yazma izni ile aç
   set AO = nesne.OpenTextFile(Server.MapPath("veriler.txt"),1)
      ' Veriyi Kırp, Süz ve Çıktı Ver
      AO.Skip(3)
      Response.Write AO.Read(5)
   ' Dosyayı kapat
   AO.close
%>

İşte buyrun. Satırımızın başından ilk 3 karakteri kırptık ve sonraki ilk 5 karakteri okutup geri kalanını çöpe gönderdik