[VB] Data Format

[run_GMoney]

I've included 2 text files with this project. The first (Data.txt) is my input data set and the second is how my outputted data is supposed to appear. Here's is the code that I've used to input the data, format it, and output it. My code produces the correct output but I'm sure there's a more optimal way to do this.


Private Function GetData()

Open "F:\Acell\Data.txt" For Input As #1
lineArray = Split(Input(LOF(1), 1), vbCrLf)
Close #1

'Stores the data into an array and trims any leading spaces
For i = 1 To (UBound(lineArray) - 2)
T(i - 1) = FormatNumber(LTrim(Mid(lineArray(i), 1, 8)), 3)
ax0(i - 1) = FormatNumber(LTrim(Mid(lineArray(i), 9, 10)), 3)
ax1(i - 1) = FormatNumber(LTrim(Mid(lineArray(i), 19, 10)), 3)
ax3(i - 1) = FormatNumber(LTrim(Mid(lineArray(i), 29, 10)), 3)
ay0(i - 1) = FormatNumber(LTrim(Mid(lineArray(i), 39, 10)), 3)
ay2(i - 1) = FormatNumber(LTrim(Mid(lineArray(i), 49, 10)), 3)
ay3(i - 1) = FormatNumber(LTrim(Mid(lineArray(i), 59, 10)), 3)
az0(i - 1) = FormatNumber(LTrim(Mid(lineArray(i), 69, 10)), 3)
az2(i - 1) = FormatNumber(LTrim(Mid(lineArray(i), 79, 10)), 3)
az1(i - 1) = FormatNumber(LTrim(Mid(lineArray(i), 89, 10)), 3)
Next

End Function

Private Function WriteFile2()

Open App.Path & "\RetrieveData.dat" For Output As #1
Print #1, "Time(ms) " & Space(3) & "HD-OX" & Space(5) & "HD-YX" & Space(5) & "HD-ZX" & _
Space(5) & "HD-OY" & Space(5) & "HD-XY" & Space(5) & "HD-ZY" & Space(5) & _
"HD-OZ" & Space(5) & "HD-XZ" & Space(5) & "HD-YZ"
Close #1

Open App.Path & "\RetrieveData.dat" For Append As #1
For i = 1 To (UBound(lineArray) - 2)
Call computeSpaces(ax0(i))
ax0spaces = numspaces
Call computeSpaces(ax1(i))
ax1spaces = numspaces
Call computeSpaces(ax3(i))
ax3spaces = numspaces
Call computeSpaces(ay0(i))
ay0spaces = numspaces
Call computeSpaces(ay2(i))
ay2spaces = numspaces
Call computeSpaces(ay3(i))
ay3spaces = numspaces
Call computeSpaces(az0(i))
az0spaces = numspaces
Call computeSpaces(az2(i))
az2spaces = numspaces
Call computeSpaces(az1(i))
az1spaces = numspaces
Print #1, T(i) & Space(ax0spaces) & ax0(i) & Space(ax1spaces) & ax1(i) & _
Space(ax3spaces) & ax3(i) & Space(ay0spaces) & ay0(i) & Space(ay2spaces) & ay2(i) & _
Space(ay3spaces) & ay3(i) & Space(az0spaces) & az0(i) & Space(az2spaces) & az2(i) & _
Space(az1spaces) & az1(i)
Next
Close #1

End Function

Private Sub computeSpaces(datapoint)

If datapoint <= -1000 Then
numspaces = 1
ElseIf datapoint <= -100 Then
numspaces = 2
ElseIf datapoint <= -10 Then
numspaces = 3
ElseIf datapoint < 0 Then
numspaces = 4
ElseIf datapoint < 10 Then
numspaces = 5
ElseIf datapoint < 100 Then
numspaces = 4
ElseIf datapoint < 1000 Then
numspaces = 3
ElseIf datapoint < 10000 Then
numspaces = 2
ElseIf datapoint < 100000 Then
numspaces = 1
End If

End Sub