XProfan

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

    SHELL NOTEPAD +datei$

EndIf

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(datei$,.)

select upper$(endung$)

    caseof TXT,CGI,CFG

    shell notepad

    caseof JPG,GIF,BMP

    shell irfan

endSelect