code doesn't continue after while loop - Xtreme Visual Basic Talk

07-10-2012, 10:14 AM

tilky

Newcomer

Join Date: Nov 2011

Posts: 21

code doesn't continue after while loop

I have a short code which reads three lines of a file at a time and then updates 3 arrays (one for each line. I started with there being only 3 lines in the file, and wanted to read them.

Code:

        While EOF(1) = False
            ReDim arrIP(LoopCount), arrUsername(LoopCount), arrPassword(LoopCount)
            IP = LineInput(1)
            Username = LineInput(1)
            Password = LineInput(1)
            arrIP(LoopCount) = IP
            arrUsername(LoopCount) = Username
            arrPassword(LoopCount) = Password
            LoopCount = LoopCount + 1
            Label3.Text = LoopCount
        End While
        Me.Close()

i set label3.text to the amount of times it looped to make sure it didn't keep looping. It gets to 1 and doesn't get any higher (which is what is supposed to happen). However, the Me.close never runs (the program stays open). What am i doing wrong here?

07-10-2012, 11:29 AM

Cerian Knight

Multi-Technologist

Super Moderator
* Expert *

Join Date: May 2004

Location: Michigan

Posts: 3,739

How are the lines terminated? The following works fine for me:

Code:

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim arrIP() As String
        Dim arrUsername() As String
        Dim arrPassword() As String
        Dim LoopCount As Integer
        Dim IP As String
        Dim Username As String
        Dim Password As String
        FileOpen(1, "C:\temps.txt", OpenMode.Output, OpenAccess.Write, OpenShare.Default)
        Print(1, "10.10.10.2" & vbCrLf)
        Print(1, "Me" & vbCrLf)
        Print(1, "MePass" & vbCrLf)
        Print(1, "10.10.10.3" & vbCrLf)
        Print(1, "You" & vbCrLf)
        Print(1, "YouPass" & vbCrLf)
        FileClose(1)
        FileOpen(1, "C:\temps.txt", OpenMode.Input, OpenAccess.Read, OpenShare.Default)
        While EOF(1) = False
            ReDim Preserve arrIP(LoopCount), arrUsername(LoopCount), arrPassword(LoopCount)
            IP = LineInput(1)
            Username = LineInput(1)
            Password = LineInput(1)
            arrIP(LoopCount) = IP
            arrUsername(LoopCount) = Username
            arrPassword(LoopCount) = Password
            LoopCount = LoopCount + 1
            Label1.Text = LoopCount
        End While
        FileClose(1)
        Me.Close()
    End Sub
End Class

__________________
"May the code that you write never work in ways that you didn't expect; and may the code that you didn't write never require you to maintain it". - Ancient Chinese Proverb

07-10-2012, 04:29 PM

snarfblam

Senior Contributor

Forum Leader
* Expert *

Join Date: Apr 2005

Location: USA

Posts: 866

Is that the whole method? Do you have any error handling?

And where do you run this code? If you run it in a Form.Load event handler or a function called from a Form.Load handler, WinForms might be swallowing errors.

__________________
C# _VB.NET _