Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- With My.Application.Log.DefaultFileLogWriter
- .Flush()
- My.Forms.FormLog.LogTextFromFile = .FullLogFileName
- End With
- My.Forms.FormLog.ShowDialog()
- Public WriteOnly Property LogTextFromFile() As String
- Set(ByVal value As String)
- Dim _text As String = ""
- Using _stream As FileStream = File.Open(value, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
- Dim _buffer As Byte() = New Byte(_stream.Length) {}
- Dim _encoding As UTF8Encoding = New UTF8Encoding(True, True)
- Do While _stream.Read(_buffer, 0, _buffer.Length) > 0
- _text = _text + _encoding.GetString(_buffer)
- Loop
- End Using
- Dim _lines = Strings.Split(_text, vbCrLf)
- Array.Reverse(_lines)
- TLog.Text = Join(_lines, vbCrLf).Replace(vbNullChar, "*")
- End Set
- End Property
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement