Leere Felder eines Arrays löschen Verfasst am: 15.06.2009, 10:32
Beschreibung: Mit dieser Funktion kann man ein String (oder Integer)-Array von leeren Feldern befreien. Dabei wird das Array der Funktion übergeben und bearbeitet. Es wird sortiert, die leeren Felder ermittelt, gelöscht und danach das Array wieder auf die passende Größe reduziert. Dabei geht aber die ursprüngliche Reihenfolge der Elemente verloren.
Die Funktion
Code:
Private Function clean_Array(ByRef ar() As String) As String()<br /><br /> Dim i As Integer<br /> Array.Sort(ar)<br /> Array.Reverse(ar)<br /><br /> For i = 0 To ar.Length - 1<br /> If ar(i) = "" And ar(i + 1) = "" Then<br /> Exit For<br /> End If<br /> Next<br /><br /> Array.Resize(ar, i)<br /> Return ar<br /><br />End Function
Beispiel:
Code:
Dim sr As New IO.StreamReader("c:1.txt")<br /><br />Dim s() As String = sr.ReadToEnd.Split()<br /><br />s = clean_Array(s)