[VB.Net] : Read Text File Contents with Regular Intervals

[ak1dnar]

Hi,

I have created Sub in VB.net application, Which reads a text file contents.

Sub IPsetter()
        Dim fileName As String
        Dim realIParray As String() = Nothing
        Dim ipString As String
 
 
        fileName = "D:\IPFinder\WWIP\ip.txt"
 
        Try
            Dim stream As StreamReader
            stream = New StreamReader(fileName)
            ipString = stream.ReadToEnd()
            realIParray = ipString.Split(":")
            Dim realIP As String = realIParray(1).ToString
            SetNewIP(realIP)
        Catch exceptionCatch As IOException
            lbl_ip.Text = "Error Detected"
        End Try
    End Sub
 

This Sub is calling from this;

 Private Sub IPFinder_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        IPsetter()
    End Sub

The text file content(a IP address) will change time to time. So when there is a update on the text file I need to update the lbl_ip .Text property also.

Example:

When I execute the Form for the first time IP address will read from the text file and Display it in the lbl_ip. Here after, I am not going to close this form. while the form is running the text file contents might updating. so when its updating I need display the same value in Label.

My Idea is to call for IPFinder_Load Sub with Intervals, No Idea about doing such a thing. Any Suggestions?

Thanks!

[TRScheel]

Why not use a FileSystemWatcher?

Edit:
MSDN Information on FileSystemWatcher

[ak1dnar]

Why not use a FileSystemWatcher?

Edit:
MSDN Information on FileSystemWatcher

Yeap Its a good point.
My idea is, If there is changes on the text file read the text file, So no need to keep on execute the application with intervals. Its waisting memory though it a simple App.

I'll take a look at to the link, but I am not really a not VB.Net coder. At least I'll be trying..

Thanks a Lot.

[ak1dnar]

Hi,
I tried FileSystemWatcher and there are few issues that I couldn't fix.

• When I execute the Application for the first time Its reading the text file and updates the lable.
• Then I opened the text file and changed the value, Now also Lable control get updated
• But When I am trying it several times this error is getting

 Dim fsw As FileSystemWatcher
    Private Sub IPFinder_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        IPsetter()
    End Sub
 
    Sub IPsetter()
        Dim fileName As String
        Dim realIParray As String() = Nothing
        Dim ipString As String
 
 
        fileName = "D:\IPFinder\WWIP\ip.txt"
 
        Try
            Dim stream As StreamReader
            stream = New StreamReader(fileName)
            ipString = stream.ReadToEnd()
            realIParray = ipString.Split(":")
            Dim realIP As String = realIParray(1).ToString
            SetNewIP(realIP)
            stream.Close()
            KeepWatching()
        Catch exceptionCatch As IOException
            lbl_ip.Text = "Error Detected"
        End Try
    End Sub
    Sub SetNewIP(ByVal realIP)
        lbl_ip.Text = realIP
    End Sub
    Sub KeepWatching()
        fsw = New FileSystemWatcher
        fsw.Path = "D:\IPFinder\WWIP"
        fsw.Filter = "ip.txt"
        Try
            fsw.EnableRaisingEvents = True
            AddHandler fsw.Changed, AddressOf OnChanged
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
 
        End Try
 
    End Sub
    Private Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs)
        IPsetter()
    End Sub
 

Text File :

ip:156.43.248.556

[ak1dnar]

Bumping... back to the top please help !

[sun1programmer]

Create an exe and use the window scheduler to specify the schedule.
Start->Programs->Accessories->Sytem Tools->Scheduled Tasks

[ak1dnar]

Create an exe and use the window scheduler to specify the schedule.
Start->Programs->Accessories->Sytem Tools->Scheduled Tasks

Cool ! Thanks for the stuffs. But I do like to build up my own things always.
have a nice Time!
Thanks & Regards!
-ajaxrand