Alıntı:
absconder tarafından gönderilen mesaj:
Kod:
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?