stringvergleich

;===============================================================================
;
; Description:      Prüft, ob eine Zeichenfolge eine andere Zeichenfolge enthält. Mit Angabe einer Suchposition.
; Parameter(s):     $String    = Zeichenfolge, die geprüft werden soll
;                   $SubString = Unterzeichenfolge, nach der gesucht werden soll
;                   (optional) $Pos       = kann Zahlenwert oder Zeichenfolge sein.
;                                           Wenn $Occurence positiv ist wird die Zeichenfolge bis zu dieser Position durchsucht, 
;                                           ist $Occurence negativ wird die Zeichenfolge ab dieser Position durchsucht.
;                                           Wenn $Pos = -1 ist wird der komplette String durchsucht
;                   (optional) $CaseSense = 0 - Groß- und Kleinschreibung werden nicht berücksichtigt (Vorgabewert)
;                                           1 - Berücksichtigt Groß- und Kleinschreibung
;                   (optional) $Occurence = Bestimmt, nach welchem Auftreten der Unterzeichenfolge gesucht werden soll. 
;                                           Ist der Wert negativ, wird von rechts ausgehend gesucht. 
;                                           Der Vorgabewert ist 1 (erstes Auftreten von links aus gesehen)
; Requirement(s):   keine
; Return Value(s):  bei Erfolg: Position von $SubString (absolut)
;                               0 = $SubString nicht enthalten
;                               @error = 0 - Normaler Ablauf
;                               @error = 1 - Nichts gefunden. Der Wert für $Occurance muss eine positive oder negative 
;                                            Ganzzahl sein.
;                               @error = 2 - $Pos ist ungültig
; Author(s):        bernd670
;
;===============================================================================
Func _MyStringInStr ($String, $SubString, $Pos = -1, $CaseSense = 0, $Occurence = 1)


    If $Occurence = 0 Then
        SetError(1)
        Return 0
    EndIf


    If $Pos = 0 Then
        SetError(2)
        Return 0
    EndIf


    If IsString($Pos) Then 
        $Pos = StringInStr($String,$Pos)
        If @error Or $Pos = 0 Then
            SetError(2)
            Return 0
        EndIf
    EndIf


    If $Pos > 0 Then
        If $Occurence < 0 Then
            $String = StringRight($String,$Pos)
        Else
            $String = StringLeft($String,$Pos)
        EndIf
    EndIf

    $Find = StringInStr($String,$SubString,$CaseSense,$Occurence)
    If @error Then
        SetError(@error)
        Return 0
    EndIf

    If $Pos > 0 And $Occurence < 0 Then $Find = $Pos + $Find

    SetError(0)
    Return $Find
EndFunc