XProfan

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

    SHELL NOTEPAD +datei$

EndI

lastsubstr(cadena s,d){volver (substr$(s,len(s,d),d))}

proc LASTSUBSTR

    PARAMETERS S$,D$
    RETORNO (SUBSTR$(S$,LEN(S$,D$),D$))

ENDPROC

var endung$=lastSubStr(datei$,.)

seleccionar upper$(endung$)

    caseof TXT,CGI,CFG

    shell notepad

    caseof JPG,GIF,BMP

    shell irfan

EndSelect