Ideas Please...

Hello,
I have a project on my hands and not sure how to go about it. I have a text file with approx 512 columns x 70,000 rows broken into 32 16bit chunks (binary data that is space delimited).

1) I need to be able to bring in the data somehow.
2) Be able to select row(s) then split the 32 16bit chunks it across a tabform tab/16bit (32tabs using a checkbox to select what tabs to display).
3) Be able to modify each 16bit chunk.
4)Re-Write the 32 16bit chunks as a string back to the file.

5)Optional progress bar for read/write

Currently I have a cmd that uses streamreader to read the file into a listbox which takes a long time.

I am no expert programmer, but I can get around. What do you think. If you are an guru and want a challenge, i can send you some dummy data to test the program.

here is my current code

Code:

---

Private Sub ImportList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImportList.Click
        Dim Msg As String ' If an error occurs, construct an error message.
        Dim File As String = Me.HexToBinOutputFile.Text
        Dim linenumber As Long
        linenumber = 0
        On Error GoTo ErrorHandler    ' Enable error-handling routine.
        'MsgBox("Start.", MsgBoxStyle.OKCancel, "Start")
        Dim sReader As IO.StreamReader = IO.File.OpenText(File) 'Initialises the stream reader and opens the file
        ListBox1.Items.Clear()
        Dim Data As String 'Holds the data read from the file
        Do Until sReader.Peek = -1 'Loops until the end of the file is reached
            Data = sReader.ReadLine 'Read the file
            'Now is the time to put the data anywhere
            ListBox1.Items.Add(Data)
            Data = ""
            linenumber = linenumber + 1
            Me.TextBox2.Text = " "
            Me.TextBox2.Text = linenumber
        Loop
        sReader.Close() 'Closes the file
        MsgBox("Done. " & linenumber & " lines of data.", MsgBoxStyle.OKOnly, "Done.")
        Exit Sub

ErrorHandler:  ' Error-handling routine.
        Msg = "Error # " & Str(Err.Number) & " was generated by " _
      & Err.Source & ControlChars.CrLf & Err.Description
        MsgBox(Msg, MsgBoxStyle.Information, "Error")
        MsgBox("OOPS! The Program Crashed.", MsgBoxStyle.AbortRetryIgnore, "Damn Bugs")
    End Sub

---

I also am also looking into using this format to rewrite this cmd. As you can see, the name scheme im using (im not done as you can see)

Code:

---

Public Class CPersonal
    Private _mdw1 As String, _mdw2 As String, _mdw3 As String, _mdw4 As String, _
_mdw5 As String, _mdw6 As String, _mdw7 As String, _mdw8 As String, _mdw9 As String, _
_mdw10 As String,_mdw11 As String,_mdw12 As String,_mdw13 As String,_mdw14 As String, _
_mdw15 As String,_mdw16 As String,_mdw17 As String,_mdw18 As String,_mdw19 As String, _
_mdw20 As String,_mdw21 As String,_mdw22 As String,_mdw23 As String,_mdw24 As String, _
_mdw25 As String,_mdw26 As String,_mdw27 As String,_mdw28 As String,_mdw29 As String, _
_mdw30 As String,_mdw31 As String,_mdw32 As String
    'The above variablesset the propertys
       
        Public Property dw1() As String
        Get
            Return _mdw1
        End Get
        Set(ByVal Value As String)
            _mdw1 = Value
        End Set
    End Property
   
            Public Property dw2() As String
        Get
            Return _mdw2
        End Get
        Set(ByVal Value As String)
            _mdw2 = Value
        End Set
    End Property
   
            Public Property dw3() As String
        Get
            Return _mdw3
        End Get
        Set(ByVal Value As String)
            _mdw3 = Value
        End Set
    End Property
   
            Public Property dw4() As String
        Get
            Return _mdw4
        End Get
        Set(ByVal Value As String)
            _mdw4 = Value
        End Set
    End Property
   
            Public Property dw5() As String
        Get
            Return _mdw5
        End Get
        Set(ByVal Value As String)
            _mdw5 = Value
        End Set
    End Property
   
            Public Property dw6() As String
        Get
            Return _mdw6
        End Get
        Set(ByVal Value As String)
            _mdw6 = Value
        End Set
    End Property
   
            Public Property dw7() As String
        Get
            Return _mdw7
        End Get
        Set(ByVal Value As String)
            _mdw7 = Value
        End Set
    End Property
   
            Public Property dw8() As String
        Get
            Return _mdw8
        End Get
        Set(ByVal Value As String)
            _mdw8 = Value
        End Set
    End Property
   
            Public Property dw9() As String
        Get
            Return _mdw9
        End Get
        Set(ByVal Value As String)
            _mdw9 = Value
        End Set
    End Property
   
            Public Property dw10() As String
        Get
            Return _mdw10
        End Get
        Set(ByVal Value As String)
            _mdw10 = Value
        End Set
    End Property
   
            Public Property dw11() As String
        Get
            Return _mdw11
        End Get
        Set(ByVal Value As String)
            _mdw11 = Value
        End Set
    End Property
   
            Public Property dw12() As String
        Get
            Return _mdw12
        End Get
        Set(ByVal Value As String)
            _mdw12 = Value
        End Set
    End Property
   
            Public Property dw13() As String
        Get
            Return _mdw13
        End Get
        Set(ByVal Value As String)
            _mdw13 = Value
        End Set
    End Property
   
            Public Property dw14() As String
        Get
            Return _mdw14
        End Get
        Set(ByVal Value As String)
            _mdw14 = Value
        End Set
    End Property
   
            Public Property dw15() As String
        Get
            Return _mdw15
        End Get
        Set(ByVal Value As String)
            _mdw15 = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
            Public Property dwXX() As String
        Get
            Return _mdwSS
        End Get
        Set(ByVal Value As String)
            _mdwSS = Value
        End Set
    End Property
   
   
   

End Class

---

Fun stuff!

Please let me know what you think.

It doesn't sound very difficult - it just sounds like whoever designed the original file wasn't thinking straight. Anyway can you post a sample of the file?