Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim moni2 As String = ""
Dim finfo As New FileInfo("satan")
Dim str2 As StreamReader = finfo.OpenText
While str2.Peek > 0
moni2 &= str2.ReadLine & vbCrLf
TextBox1.Text = moni2
End While
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim moniter As String = ""
Dim finfo As New FileInfo("ชืี่อไฟล์หรือที่อยู่ไฟล์")
Dim dur As StreamReader = finfo.OpenText
Dim count As Integer
'วนลูปครั้งที่1เพื่อนับบรรทัดในเทกซ์ไฟล์ โดยใช้ count
While dur.Peek > 0
dur.ReadLine()
count += 1
End While
dur = finfo.OpenText
'วนลูปครั้งที่2 เพื่ออ่านบรรทัดที่ต้องการ โดยใช้ count
While dur.Peek > 0
If count <= +10 Then
moni2 &= dur.ReadLine & vbCrLf
TextBox1.Text = moniter
Else
dur.ReadLine()
End If
count -= 1
End While
End Sub
End Class
Load balance : Server 04
