XProfan

Italia

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$

EndI

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

28.05.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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 blubre>

ungetestet.

28.05.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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$

EndI

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

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

    SHELL NOTEPAD +datei$

EndIf

Kürzer geht es kaum. Genau per 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.

Saluto
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 Citazione Zeilenweise Citazione

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

gepostet.