Hi.
Könnt Ihr mir helfen? Brauche Funktionen für Arrays...
StringSuchen ([COLOR="Blue"]ByVal [/COLOR]sInhalt [COLOR="Blue"]As String[/COLOR], [COLOR="Blue"]ByVal [/COLOR]sArray() [COLOR="Blue"]As String[/COLOR], [COLOR="Blue"]Optional ByVal [/COLOR]iCol [COLOR="Blue"]As Integer[/COLOR])
[COLOR="Green"]' Alle Treffer in Rückgabe-Array
' iCol: sucht bei Angabe nur in dieser Splate[/COLOR]
DatensatzLoeschenNachString ([COLOR="Blue"]ByVal [/COLOR]sInhalt [COLOR="Blue"]As String[/COLOR], [COLOR="Blue"]ByVal [/COLOR]iCol [COLOR="Blue"]As Integer[/COLOR], [COLOR="Blue"]ByRef [/COLOR]sArray() [COLOR="Blue"]As String[/COLOR])
[COLOR="Green"]' Sucht nach "sInhalt" in Spalte "iCol" und entfernt Datensatz
' Redimensioniert (ReDim Preserve) Array, sodass kein Überhang bleibt.[/COLOR]
DatensatzHinzufuegen ([COLOR="Blue"]ByVal [/COLOR]sDaten() [COLOR="Blue"]As String[/COLOR], [COLOR="Blue"]ByRef [/COLOR]sArray() [COLOR="Blue"]As String[/COLOR], [COLOR="Blue"]Optional ByVal[/COLOR] iRow [COLOR="Blue"]As Integer[/COLOR])
[COLOR="Green"]' Fügt Datenarray (sDaten) ans Ende des Datenbankarrays (sArray) an
' Wenn "iRow" gesetzt ist, werden die Daten nach dieser Position angefügt. Falls "iRow" > "Ubound(sArray)" nur ans Ende anfügen[/COLOR]
Noch vergessen:
ArraySortieren ([COLOR="Blue"]ByVal [/COLOR]iCol [COLOR="Blue"]As Integer[/COLOR], [COLOR="Blue"]ByVal [/COLOR]Aufsteigend [COLOR="Blue"]As Boolean[/COLOR], [COLOR="Blue"]ByRef [/COLOR]sArray() [COLOR="Blue"]As String[/COLOR])
[COLOR="Green"]' Sortiert Array nach Spalte "iCol"[/COLOR]