I've exhausted all ideas and patience and turn to the community at large for help. I have data formatted as an ASCII text file with easting, northing, and depth fields. I've attempted an arrayList with some success, but there has to be a better and more efficient approach.
What I am trying to do written in Pseudocode:
'Open a text file containing XYZ data (easting, northing, depth)
'Data string looks like this:
Easting Northing Depth
361274.1853 4769915.1568 -49.55
361274.1653 4769915.1554 -49.58
361274.1553 4769915.1548 -49.62
361274.1453 4769915.1541 -49.65
'Split each line into a 3D array
'Performing some math functions on the depth field_
'Math functions mimic a Exploratory Data Analysis_
'e.g. mean, std dev, skewness, least squares, etc
'Based on the results of the math functions_
'Decide what to keep and what to randomly remove_
'this is essentially stratified random sampling of the data
'Write the data back to a delimited text file_
'Easy right? :) <in a sarcastic tone>
Performance is especially critical since I am attempting to populate the 3D array with approximately 3000 data samples.
I should also note that I am NOT a computer programmer by trade, but treat it with great interest! Just need to find more time to devote to it :)
Thank you for your time and consideration!
PS: I am looking to turn this into a research paper at a future conference and would be more than happy to include the programmer as a co-author.
I know its not much, but here's what I've got so far:
Dim dataLine As String Dim xyzFile As String Dim xyzArray(3, 3, 3) As String 'not sure if this is right Dim x As Double = 0 Dim y As Double = 0 Dim z As Double = 0 Dim columnCount As Integer Dim iCount As Integer = columnCount - 1 Dim xyzArray(iCount, 3) As Double Dim sr As New StreamReader("Datafile.txt") Do dataLine = sr.ReadLine() For x = 0 To 3 For y = 0 To 3 For z = 0 To 3 xyzArray(x, y, z) = x + y + z MessageBox.Show(xyzArray(x, y, z)) Next z Next y Next x xyzFile = xyzFile & dataLine Loop Until dataLine Is Nothing sr.Close() xyzArray(x, y, z) = Split(xyzFile, " ")