Excel Forum

Code: Select all

Imports System.IO
Public Class Form1
    Dim DataConfig() As String
    Dim DataArray() As String
    Dim IP As String
    Dim Ipcompare As String
    Dim i As Integer = 0
    Dim ii As Integer = 0

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Clear()
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        Timer1.Stop()
        Button1.Visible = True
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim filename As String = "D:\dataparn.txt"
        Dim F As StreamReader = New StreamReader(filename)
        DataConfig = F.ReadLine.Split(",")
        F.Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Start()
        Ipcompare = TextBox1.Text
        ListBox1.Items.Clear()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Try
            Dim F As StreamReader = New StreamReader(DataConfig(1))
            Dim Read() As String = Split(F.ReadToEnd, vbNewLine)
            Dim Read1() As String = Read(i).Split(vbTab)
            ListBox2.Items.Add(Read(i))

            IP = Read1(0)
            If Ipcompare = IP Then
                ListBox1.Items.Add(Read(i))
            End If

            i = i + 1

            Button1.Visible = True

        Catch ex As Exception
        End Try
    End Sub
End Class

Code: Select all

    If i = UBound(Read) Then
                i = 0
                Timer1.Stop()
                Exit Sub
            End If