Archives
Trending
Support
Login
clear text
XML
Django
JavaScript
MATLAB
C
C++
C#
Python
SQL
Shell
Bash
Markdown
YAML
JSON
HTML
CSS
PHP
Java
Ruby
Go
Rust
Swift
Kotlin
Arduino
TypeScript
Perl
Autohotkey
Lua
SQF
R
Scala
Haskell
Groovy
Dart
Clojure
VB.NET
Objective-C
PowerShell
Bash
CoffeeScript
Verilog
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
Mark as private (unlisted)
for 30 minutes
for 6 hours
for 1 day
for 1 week
for 1 month
for 1 year
everlasting (like CCCP)
