3D Array Help....

The only thing I can think off why he is using a 3d array is only for proving his IT teacher that he can handle 3d arrays...cuz saving date formats in a 3d array would be useless...also structures > arrays(atleast in most cases)

You don't have to save the dates w/o text lol.

And if a date is "outdated", you can remove it again.

Do you currently have a 3D-Array for the date or what?

Post some of your current code or so, I don't fully get how you are accessing all the data...I can help you if I have enough information.

Even though I don't recommend using 3D Arrays...(in this case)...

This sure isn't any good method. Database would be way better...and structures would be better aswell...

Ar(5,5,5) already results in 216 textlines.

[highlight="VB.Net"] Private Ar(5, 5, 5) As Integer

Private Sub SaveArray(ByVal SaveLocation As String)
Dim strB As New System.Text.StringBuilder

For x = Ar.GetLowerBound(0) To Ar.GetUpperBound(0)
For y = Ar.GetLowerBound(1) To Ar.GetUpperBound(1)
For z = Ar.GetLowerBound(2) To Ar.GetUpperBound(2)
strB.AppendLine(String.Format("{0},{1},{2};{3}", x, y, z, Ar(x, y, z)))
Next
Next
Next

Using sWrite As New IO.StreamWriter(SaveLocation, False)
sWrite.Write(strB.ToString)
End Using
End Sub

Private Sub RetreiveArray(ByVal FileLocation As String)
If IO.File.Exists(FileLocation) Then
Dim Line As String = ""
Try
Using sRead As New IO.StreamReader(FileLocation)
While Not sRead.EndOfStream
Line = sRead.ReadLine
Dim split() As String = Line.Split(";"c)
Ar(split(0).Split(","c)(0), split(0).Split(","c)(1), split(0).Split(","c)(2)) = split(1)
End While
End Using
Catch ex As *********enceException
End Try
End If
End Sub[/highlight]

Jason probably knows a way faster solution(LINQ or w/e).

My version works aswell though. Might be a bit slow if you have a huge 3D Array...but huge 3D arrays = retarded in this case...

-----------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------

@Structures

[highlight="VB.Net"]
Private DateList As New List(Of CustomDate)

Public Structure CustomDate
Dim Day As Byte
Dim Month As Byte
Dim Year As Integer
End Structure

Private Sub AddDate(ByVal Day As Byte, ByVal Month As Byte, ByVal Year As Byte)
DateList.Add(New CustomDate With {.Day = Day, .Month = Month, .Year = Year})
End Sub

Private Sub RetreiveDates()
If DateList.Count <> 0 Then
For i = 0 To DateList.Count - 1
With DateList(i)
MsgBox(String.Format("{0}.{1}.{2}", .Day, .Month, .Year))
End With
Next
End If
End Sub

Private Sub SaveDateList(ByVal List As List(Of CustomDate), ByVal FileLocation As String)
Dim strB As New System.Text.StringBuilder

For i = 0 To List.Count - 1
With List(i)
strB.AppendLine(String.Format("{0};{1};{2}", .Day, .Month, .Year))
End With
Next

Using sWrite As New IO.StreamWriter(FileLocation, False)
sWrite.Write(strB.ToString)
End Using
End Sub

Private Function RetreiveDateList(ByVal FileLocation As String) As List(Of CustomDate)
Dim L As New List(Of CustomDate)

Using sRead As New IO.StreamReader(FileLocation)
While Not sRead.EndOfStream
Dim Line As String = sRead.ReadLine
Dim CD As New CustomDate
CD.Day = Line.Split(";"c)(0)
CD.Month = Line.Split(";"c)(1)
CD.Year = Line.Split(";"c)(2)

L.Add(CD)
End While
End Using

Return L
End Function

Private Sub GetData()
DateList = RetreiveDateList("filelocation")
End Sub
[/highlight]

Still have to repeat myself...Databases > Textfiles.