Ideas Please...

[ghs215]

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

 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)

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.

[plenderj]

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?