XProfan

if Match$((?)(.txt|.ini|.inc)$,Datei$) >

    SHELL NOTEPAD +datei$

EndI

lastsubstr(string s,d){return (substr$(s,len(s,d),d))}

proc LASTSUBSTR

    PARAMETERS s$,D$
    RETURN (SUBSTR$(s$,LEN(s$,D$),D$))

endproc

var endung$=lastSubStr(File$,.)

select upper$(endung$)

    caseof TXT,CGI,CFG

    shell notepad

    caseof JPG,GIF,BMP

    shell irfan

endSelect