Greetings community,

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, " ")
```