出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
テキストファイルを最後から読み込む 　 まだまださん [2002/08/23 16:36:07] [2532]
　 Re:テキストファイルを最後から読み込む 　 北岳さん [2002/08/23 17:41:01] [2534]
　 　 Re:テキストファイルを最後から読み込む 　 まだまださん [2002/08/28 8:19:11] [2572]
[2532] テキストファイルを最後から読み込む
投稿者：まだまださん 2002/08/23 16:36:07


Set Fs = Server.CreateObject("Scripting.FileSystemObject")
'ファイルをオープンします
Set Stream = Fs.OpenTextFile("C:\inetpub\User.txt")
'ファイルの終わりまでループします
Do until Stream.AtEndOfLine <> false
'１行読み込み、そのまま出力します
Stream.skipline

Loop
response.write Stream.Line

'ファイルをクローズします
Stream.Close
Set Stream = Nothing
テキストファイルの最後の一行だけを読み込みたいのですがどう書けばいいか分かりません。上記のように適当にやってみたのですが
やはりうまくいきません　どなたかよろしくお願いいたします。
[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って、元ファイルの行番号、今の場合は最終の、では？）
[2572] Re:テキストファイルを最後から読み込む
投稿者：まだまださん 2002/08/28 8:19:11
うまくいきました。
助かりました。どうもありがとうございました

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