07/03/15 09:51:10
>>125 こんなのでどうか
Public Function ReadTailLines(ByVal filename As String, ByVal lineCount As Integer)
Dim sep() As String = {vbCrLf}
Using ifs As IO.FileStream = IO.File.OpenRead(filename)
Dim allBuf As New List(Of Byte)
Dim len As Integer = lineCount * 100
Dim pos As Long = ifs.Length
Dim lines() As String
Do
pos -= len
If pos < 0 Then
len += pos
pos = 0
End If
Dim tmpBuf(len) As Byte
ifs.Seek(pos, IO.SeekOrigin.Begin)
ifs.Read(tmpBuf, 0, len)
allBuf.InsertRange(0, tmpBuf)
lines = Text.Encoding.Default.GetString(allBuf.ToArray(), 0, allBuf.Count).Split(sep, StringSplitOptions.None)
Loop While pos > 0 And lines.Length < lineCount
(続く)