[Dhilgul]

Selamlar;

ASP konusunda çok cahil olan ben ASP bilenlerden bir şey rica edeceğim. 25 ayrı kategoride toplam 453 ürünü olan bir firma için web sitesi hazırlıyorum. Her kategori için yapacağım HTML sayfalarında ürünleri detaylarıyla alt alta sıralamayı düşünüyordum ama eğer gelen değişkene göre sayfadaki ürün resmini ve detaylarını bir .txt dosyasından okutabilirsem işler çok kolaylaşacak.

.txt dosyası olması önemli çünkü bir de veritabanı problemleriyle uğraşmak istemiyorum.

Neler yapabiliriz?

[Janberka]

<%
Dosya="dosya.txt"
Set oFS = server.CreateObject("Scripting.FileSystemObject")
Set oFile = oFS.OpenTextFile(server.mappath(Dosya), 1)
Response.write oFile.ReadAll
%>

şeklinde Dosya Sistemi Objesiyle yapabilirsin.

[Dhilgul]

Bunu biraz daha açıklarsan çok sevinirim. ASP bilgim gerçekten sıfır.

Başlığı da yanlış açmışım zaten..

[Dhilgul]

Verdiğin kodlarla dsoyayı yazdırabiliyorum. Dosya içinden bana gerken satırları nasıl çekeceğimi göstermen yeterli..

[absconder]

dim fso, file, ts

Set fso = server.CreateObject("scripting.FileSystemObject")
Set file = fso.GetFile(server.mappath("dosya.txt"))
Set ts = file.OpenAsTextStream(1)

do while not ts.AtEndOfStream
str = ts.ReadLine
loop

ts.Close

str değişkeni do..loop içerisinde her seferinde bir satır okur.

ancak, ".txt" yerine, "," ile ayrılmış ".csv" yada XML tipinde tutmanız, veri içinde kaybolmanızı engelleyecektir.

[Janberka]

Response.write oFile.ReadAll

komutu yerine

Response.write oFile.ReadLine

komutunu kullanırsan bir satırı okumuş olursun. Her ReadLine komutu kullanışında bir sonraki satıra atlar.

do until oFile.AtEndOfStream
Response.write(oFile.ReadLine)
Response.write(oFile.ReadLine)
loop

Dosya sonuna gelene kadar her seferinde 2 satır yazmak üzere loop'a girer. Sanırım bunlar yeterlidir?

[Dhilgul]

absconder tarafından gönderilen mesaj:

dim fso, file, ts

Set fso = server.CreateObject("scripting.FileSystemObject")
Set file = fso.GetFile(server.mappath("dosya.txt"))
Set ts = file.OpenAsTextStream(1)

do while not ts.AtEndOfStream
str = ts.ReadLine
loop

ts.Close

str değişkeni do..loop içerisinde her seferinde bir satır okur.

ancak, ".txt" yerine, "," ile ayrılmış ".csv" yada XML tipinde tutmanız, veri içinde kaybolmanızı engelleyecektir.

.csv dosyalarından veri çekmek hakkında biraz daha bilgi ya da link verebilir misiniz?

[arsende]

CSV için;
http://www.codeave.com/asp/code.asp?u_log=101
Dosya Ekte.

[Janberka]

Ben versem
csv dosyaları her satırda bir kayıt berlitir ve alanlar virgül ile ayrılır.

Örnek:

Janberka,Mersin,1234
Dhilgul,Kocaeli,5678

Bu şekilde bir kayıt tuttuk diyelim.

absconder'ın örneğinden yola çıkarak yazıyorum:

<%dim fso, file, ts

Set fso = server.CreateObject("scripting.FileSystemObject")
Set file = fso.GetFile(server.mappath("dosya.txt"))
Set ts = file.OpenAsTextStream(1)

do while not ts.AtEndOfStream
response.write("Kayıt:"&vbcrlf)
str = ts.ReadLine
arr = split(str, ",")
For i = 0 to CLng(UBound(arr))
 		Response.Write "Alan: "&arr(i)&vbcrlf
	Next
loop

ts.Close%>

Şeklinde kullanabilirsiniz.

Not: Split komutu verilen string i girilen ayraça göre parçalara ayırır ve array döndürür.

Csv dosyaları ile ilgili daha fazla bilgi için wiki

[Dhilgul]

Teşekkürler..

Son bir soru. Dosyadan 32. satırı almak istersem? Hatta 32. satırın 2. elemanını almak istersem? Bunun bir yolu var mı? mdb dosyasına da razıyım artık. Olsun yeter ki..