XProfan

cadena furi(cadena s){

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

}

Proc fURI

    Parámetros s$
    Declarar x%

    If Left$(Lower$(s$),5) = "file:"

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

    EndIf

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

ENDPROC

cls
imprimir fURI("file:///c:/pfad/datei.txt")
imprimir fURI("c:/pfad/datei.txt")
waitkey
end