Reseting A Counter

Gary108 · December 13th, 2011, 07:09 PM

Special Thanks to Rod Stephens for answering my previous two questions. Programming is tough and I really appreciate your input.

In a particular application, I need a counter to count up to 108 as it is counting the 108 lines of text in a text file. The problem comes when I need to repeat the same process without leaving the application, with many successive text files.

I need the counter to count only to 108 and then reset before counting the lines of text in the next text file. By setting up multiple counters I can partially remedy this situation, but since the process is repeated thousands of times in a day, this method is rather burdensome. The best solution would be to reset the counter to 0 each time the lines of a text file will be counted without closing the application. Is there a way to do that?

If DataLoadingView.txtCounter.Text = "1" Then

Static strCounter1 As Integer
strCounter1 = 1 + strCounter1
DataLoadingView.txtTextLoadingCounter.Text = strCounter1

End If

If DataLoadingView.txtCounter.Text = "2" Then

Static strCounter2 As Integer
strCounter2 = 1 + strCounter2
DataLoadingView.txtTextLoadingCounter.Text = strCounter2

End If

Rod Stephens · December 14th, 2011, 12:00 PM

It sounds like you might need two loops here. It depends on how you're getting the list of files to process. Here are two possibilities:

1) If you have the file names in a list:

Code:

For Each file_name As String in file_names
    ' Process this file.
    For i As Integer = 1 To 108
        ' Do something with line i.
        ...
    Next i
Next file_name

If you use a file method to list the files in a directory, that should work, too.

2) If the user enters a file name in a TextBox and clicks a button, then the button's code can define the variable.

Code:

' Process the file.
For i As Integer = 1 To 108
    ' Do something with line i.
    ...
Next i

3) If you want to do something more elaborate such as processing a single line each time the user presses a button, then you might try something like this:

Code:

' Declare LineNumber at the module level outside of any routine.
Private LineNumber As Integer = 0

' Handle the button click.
Private Sub btnProcessLine_Click(...)
    ' If we don't have a line number, open the next file.
    ... open a file here ...

    ' Process line number LineNumber.
    ...

    ' Move to the next line.
    LineNumber += 1

    ' If we have processed 108 lines in this file,
    ' get ready to open the next file.
    If (LineNumber > 108) Then LineNumber = 0
End Sub

If you can give us a little more information about how things are controlled, for example how you know which file to open, we might be able to give a bit more help.

Gary108 · December 15th, 2011, 12:10 PM

Hi Rod,

I just wanted to thank you once again. By adding the following line (with a change of the variable name) into my existing code, which already included a Loop, I was able to solve my problem. I had spent many hours trying to figure that out and the solution was so easy with your help.

If (LineNumber > 108) Then LineNumber = 0

Gary108