Reading the .txt file twice ?

MiziaQ

The following code loads a sequential .txt file into an msflexgrid once a the second is clicked. The code for adding is correct. However it loads the file twice for some reason ? How do make it to display once ? Any suggestions ?

Expand|Select|Wrap|Line Numbers

 Private Sub tabAdmin_Click(PreviousTab As Integer)
 
If tabAdmin.Tab = 1 Then
 
  Open App.Path & "\deliveries.txt" For Input As #12
 
  Dim oldRow As Long

  Dim lngRow As Long

  Dim lngCol As Long
 
  Dim strID           As String

  Dim strPickupName   As String

  Dim strPickupAdd    As String

  Dim strPickupTel    As String

  Dim strDelName      As String

  Dim strDelAdd       As String

  Dim strDelTel       As String

  Dim strWoP          As String

  Dim strDelPrice     As String

  Dim strPriority     As String

  Dim strPickupDate   As String

  Dim strDelDate      As String
 
  counter = 1
 
  Do Until EOF(12)

    Input #12, strPickupName, strPickupAdd, strPickupTel, strDelName, strDelAdd, strDelTel, strWoP, strDelPrice, strPickupDate, strDelDate

    MSFlexGrid1.TextMatrix(counter, 0) = ""

    MSFlexGrid1.TextMatrix(counter, 1) = strPickupName

    MSFlexGrid1.TextMatrix(counter, 2) = strPickupAdd

    MSFlexGrid1.TextMatrix(counter, 3) = strPickupTel

    MSFlexGrid1.TextMatrix(counter, 4) = strDelName

    MSFlexGrid1.TextMatrix(counter, 5) = strDelAdd

    MSFlexGrid1.TextMatrix(counter, 6) = strDelTel

    MSFlexGrid1.TextMatrix(counter, 7) = strWoP

    MSFlexGrid1.TextMatrix(counter, 8) = strDelPrice

    MSFlexGrid1.TextMatrix(counter, 9) = strPickupDate

    MSFlexGrid1.TextMatrix(counter, 10) = strDelDate
 
    MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
 
    For lngRow = MSFlexGrid1.Rows - 2 To MSFlexGrid1.Row Step -1

      For lngCol = 0 To MSFlexGrid1.Cols - 1

        MSFlexGrid1.TextMatrix(lngRow + 1, lngCol) =  MSFlexGrid1.TextMatrix(lngRow, lngCol)

        If lngRow = MSFlexGrid1.Row Then

          MSFlexGrid1.TextMatrix(lngRow, lngCol) = "" 'Make the current row empty

        End If

     Next

    Next

  Loop

  Close #12

End If
 
End Sub

Killer42

I haven't been through this code in great detail yet, but I can verify that it is definitely not reading the file twice, unless you are calling it twice.

What you should do is...

Check that the contents of the file are actually what you expect. Perhaps the data is recorded twice in the file.
Use the debugging tools built into VB to trace through the execution of the code to ensure you know exactly what it does.

By the way, what's the purpose of the nested FOR loops?

Reading the .txt file twice ?

re: Reading the .txt file twice ?

Similar Visual Basic 4 / 5 / 6 bytes

/bytes/development

/bytes/it

/bytes/about