XProfan

string furi(string s){

    return "file:///"+translate$(translate$(s,"\\","/"),"//","/")

}

Proc fURI

    Paramètres s$
    Déclarer x%

    Si Left $(Lower$($ S),5) = "file:"

        x% = 5 : Tandis que Mid $(s$,x% + 1,1) = "/" : Inc x% : Endwhile
        s$ = Right$(s$,Len($ S) - x%)

    EndIf

    Retour "file:///"+translate$(translate$(s$,"\\","/"),"//","/")

ENDPROC

cls
imprimer fURI("file:///c:/pfad/fichier.txt")
imprimer fURI("c:/pfad/fichier.txt")
waitkey
end