XProfan

Deutsch

Entweder hab ich Ladehemmung oder das gibt es noch nicht

Wenn ich folgendes schreibe: (Beispiel - normal arbeite ich nicht mit Notepad )
Kompilieren Markieren Separieren

If RIGHT$(datei$,3) = txt

    SHELL NOTEPAD +datei$

EndIf

wird beim anklicken einer TXT-Datei diese auch von Notepad gezeigt. Ich möchte aber, dass auch INI, DAT, CFG oder andere Endungen berücksichtigt werden. Wie kann ich das möglichst codesparend schreiben ??? - Bei LoadFile..... kann ich auch vorherbestimmen, welche Dateien geladen werden können. - Hoffe, ich hab mich verständlich ausgedrückt.

28.05.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Nur ne Ladehemmung!

Ich hab das mal hier gelistet: [...]

oder meinst dynamisch aus Liste?
Kompilieren Markieren Separieren

var withNotepad$=,TXT,CFG,INI,DAT,
var suche$=TXT
case instr(,+suche$+,,withNotepad$) : shell notepad blub

ungetestet.

28.05.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

Horst Horn

Entweder hab ich Ladehemmung oder das gibt es noch nicht

Wenn ich folgendes schreibe: (Beispiel - normal arbeite ich nicht mit Notepad )
Kompilieren Markieren Separieren

If RIGHT$(datei$,3) = txt

    SHELL NOTEPAD +datei$

EndIf

Hier sind Reguläre Ausdrücke mit Match$ Dein Freund:
Kompilieren Markieren Separieren

if Match$((?)(.txt|.ini|.dat|.cfg|.data)$,Datei$) >

    SHELL NOTEPAD +datei$

EndIf

Kürzer geht es kaum. Genau für solche Zwecke wurden Reguläre Ausrücke n XProfan 10 eingeführt!
Das (?i) sorgt dafür, dass Groß-/Kleinschreibung egal ist und das $, dass der gesuchte String (hier die Dateiendungen) am Ende des Dateinamens steht. Es geht daher auch mit Dateiendungen, die nicht genau drei Zeichen lang sind.

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

28.05.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Hab das glatt mal mit dort hin [...]

gepostet.