#include-once

Func _ChercheDansString($String, $ChoseCherchee, $TypeRecherche) ; $ChoseCherchee correspond à un rang ou à un caractère
    $Sortie = ""
    $Len = stringlen($String)
    $Split = stringsplit($String, "")
    
    Switch $TypeRecherche
        Case 1 ; un rang
            If $ChoseCherchee > $Len Then
                SetError(1)
                Return ""
            EndIf
            $Sortie = $Split[$ChoseCherchee]
            
        Case 2 ; un caractère
            If StringLen($ChoseCherchee) <> 1 Then
                SetError(2)
                Return ""
            EndIf
            $CaractereExiste = 0
            For $NumeroCaractere = 1 To $Len
                If $Split[$NumeroCaractere] = $ChoseCherchee Then
                    $Sortie &= $NumeroCaractere
                    $CaractereExiste = 1
                EndIf
            Next
            If $CaractereExiste = 0 Then
                SetError(3)
                Return ""
            EndIf
            $Sortie = StringSplit($Sortie, "")
    EndSwitch
    
    Return $Sortie
EndFunc