Rückgabewert Funktionsaufruf boolean
16.01.2017 09:48:06
Ulfert
ich habe eine Funktion definiert, die mögliche Trennzeichenfolgen von Textblöcken in einer csv- _ Datei erkennen soll. Der Aufruf schlägt jedoch fehl. Selbst wenn IsInSeparators laut Überwachung bei der Prüfung true ist, wird die Antwort nicht verarbeitet:
Open filename For Input As #1
Do
Line Input #1, s
If IsInSeparators(s) Then
Exit Do 'Exit Do wird nicht aufgerufen
End If
(...)
Loop until EOF (1)
Function IsInSeparators(InputString) As Boolean
Dim s As Variant
On Error GoTo err
IsInSeperators = False
For Each s In Seperators
If s = InputString Then
IsInSeperators = True
Exit Function
End If
Next s
err:
IsInSeperators = False
End Function
Viele Grüße, Ulfert