出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[2534] Re:テキストファイルを最後から読み込む
投稿者：北岳さん 2002/08/23 17:41:01
１行づつカラ読みして最後の行を取り出すか、
全部いっぺんに読んで、後から改行文字までを検索するか。
以下、後者の例ですが、改行直後にEOFがあり、最終行が空行でない場合の限定版です。
　
<%
Set Fs = Server.CreateObject("Scripting.FileSystemObject")
Set fil1 = Fs.OpenTextFile("C:\temp.txt")
z=fil1.ReadAll
p=len(z)
'response.write p & "<br>"
q2=InStrRev(z,vbCr,p-1,vbTextCompare)
q1=InStrRev(z,vbCr,q2-1,vbTextCompare)
'response.write q2 & "<br>"
'response.write q1 & "<br>"
x=mid(z,q1+1,q2-q1)
response.write x & "<br>"
fil1.Close
Set fil1 = Nothing
%>
　
区切り字がvbCrでq1とq2が１つ違い、または、
区切り字がvbCrLfでq1とq2が２つ違いのときは、
最終行が空行なので、中身のある行だけ取り出したい場合は改造が必要です。
　
（Stream.Lineって、元ファイルの行番号、今の場合は最終の、では？）
テキストファイルを最後から読み込む 　 まだまださん [2002/08/23 16:36:07] [2532]
　 Re:テキストファイルを最後から読み込む 　 北岳さん [2002/08/23 17:41:01] [2534]
　 　 Re:テキストファイルを最後から読み込む 　 まだまださん [2002/08/28 8:19:11] [2572]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ