|
Vielen lieben Dank! Es hat funktioniert... Nun brauche ich aus diesem Array, der die ganze TXT-Datei beinhaltet einen bestimmten Ausschnitt... und zwar soll in diesem Array nach der Bezeichnung: "WSSHLUAA_01L" gesucht werden und ab dort 736 Indize rausgeschnitten werden... das bedeutet ich filtere den Original-Array ab der Bezeichnung "WSSHLUAA_01L" und den entsprechenden "Wert" bis zur Bezeichnung "WSSHLUAP_23R" (und dem entsprechenden Wert) in ein ebenso 2-Dimensionales-Sub-Array...
Habe da schon was dafür geschrieben, aber irgendwie schaffe ich es nicht, nachdem die Bezeichnung "WSSHLUAA_01L" gefunden wird, die Werte in einem Sub-Array zu speichern.
Public Function IsInArray(ByVal strToBeFound As String, arr() As Variant) As Boolean
Dim isInArr As Variant
Dim position As Integer
For Each isInArr In arr
position = position + 1
If isInArr = strToBeFound Then
IsInArray = True
Exit Function
End If
Next isInArr
IsInArray = False
End Function
Habe diese Funktion geschrieben, bzw. umgeschrieben, so dass der Index sich immer um einen erhöt, aber konnte diese nicht so wie ich mir es wünsche implementieren... Hoffe dabei eine Hilfe zu bekommen! Vielen Dank schon mal!
LG
Dani
|