Funktion mit instr() anweisung
08.03.2008 11:27:16
Claas
Ich habe ein kleines Problem mit einer Funktion, die mir einen boolschen Wert zurück geben soll. Mit der Funktion soll geprüft werden, ob die letzten beiden Zeichen eins Dateinamens "_t" sind. Dabei wird ausgeschlossen, dass dieser Ausdruck vorher vorkommt.
Function Test(Dateiname) As Boolean
If InStr(Dateiname, "_t") = Len(Dateiname) - 5 Then
Test = True
Exit Function
Else
Test = False
End If
End Function
Und zwar bekomme ich immer den Wert "False" ausgegeben. Ich habe auch schon versucht, statt des len() Befehls eine Zahl (natürlich die richtige) einzusetzen, komme damit aber auch nicht weiter. Setze ich statt des instr() Befehls eine Zahl ein, bekomme ich ein "True" zurückgegebebn.
Der Dateiname hat übrigens das Format [Bezeichnung]_t.txt, ist also vom Typ string.
Falls es alternative Lösungen für das Problem gibt, bin ich dafür natürlich auch offen.