Bir derste daha birlikteyiz. Asp ile metin dosyasından veri okuyacağız. Dosyadan veri okuman için önce dosyaya bağlanmak gerekir tabi. Hem dosyaya bağlanacağız, hem de metin dosyasındaki veriyi okuyacağız. Bakalım başarılı olabilecek miyiz.
Hemen metin dosyamızı oluşturalım. Not defterini açın ve içine bir cümle yazın, dosyanızı metin.txt ismiyle kaydedin. Önce kodları yazalım ardından da beraber inceleyelim.
KOD:
Kod Çizelgesi Kod Dili: php
<% @Language = "VBScript" CODEPAGE="1254" %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-"1254">
<title>Metin Dosyasından Veri Okuma</title>
</head>
<body>
<%
Set conn = Server.CreateObject("Scripting.FileSystemObject")
Set oku = conn.OpenTextFile(Server.MapPath("metin.txt"),1)
Response.Write(oku.ReadAll)
oku.Close
Set oku =Nothing
Set conn = Nothing
%>
</body>
</html>
Şimdi gelelim kodlarımızın açıklamasına. Önce dosyaya bağlandık.
KOD:
Kod Çizelgesi Kod Dili: php
Set conn = Server.CreateObject("Scripting.FileSystemObject")
Kodu ile dosya bağlantısı yaptık. Daha sonra metin.txt dosyasını açtık. Bunu da
KOD:
Kod Çizelgesi Kod Dili: php
Set oku = conn.OpenTextFile(Server.MapPath("metin.txt"),1)
Kodu ile yaptık. Bu satırdaki 1 dosyanın sadece okunmak için açılacağını belirtir. Dosyayı açtıktan sonra tamamen okunmasını sağladık. Bunu da;
KOD:
Kod Çizelgesi Kod Dili: php
Response.Write(oku.ReadAll)
Kodu ile yaptık. Sonra da oluşturduğumuz oku ve conn değişkenini kapattık, bunu da;
KOD:
Kod Çizelgesi Kod Dili: php
Set oku =Nothing
Set conn = Nothing
Kodları ile yaptık. Sayfayı görüntülediğiniz zaman, tarayıcıda sadece metin dosyasına yazdıklarınız görünecektir. Herhangibir bir sorunuz yada sorununuz olursa forumumuza yazabilirsiniz.
