[*]Profan

- Seite 12 -

GDL

Danke.

Windows7 Xprofan 8,9,10 [...]

[...]

09.05.2006 ▲

Michael
Wodrich

[quote:83decb733b]Ich denke aber, daß die SELECT-Geschichte in der nächsten Subscriptionsversion in der einen oder anderen Form drin ist.
[/quote:83decb733b]
Vielleicht ja SELECT und dann VOTE/CHOICE/CHOOSE für die Auswahl.
Ich glaube, daß wir uns mit jedem Schlüsselwort anfreunden können. Die Aufzählungsform gefällt mir natürlich besser als das PHP-Gegenstück, da hier die Seiteneffekte ausbleiben.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

10.05.2006 ▲

RGH

[quote:f3f67a5662=iF][quote:f3f67a5662=RGH][quote:f3f67a5662=Clemens Meier]Als Beispiel: wert$ = substr(liste$,-1,,) ermittelt den letzten Teilstring.[/quote:f3f67a5662]
Das wird ab der nächsten Subscriptionsversion funktionieren: Bei negativem Index wird von hinten gezählt!

Gruß
Roland[/quote:f3f67a5662]Bitte setze noch eins drauf und stell das soooo-oft fehlende SetSubStr her.

Natürlich habe ich SetSubStr XMal in XProfan geschrieben, aber die Anzahl der Operationen ließ das Ganze dann doch ein wenig in die Knie gehen.

Ungefähr so: [...]

(ich geb zu die Routine ist stark optimierungsbedürftig)[/quote:f3f67a5662]
Ok, ich setze nicht nur eines drauf, sondern gleich drei! Die Funktionen ins$

, del$

und len

erhalten den optionalen Stringparameter Delimiter. Ist dieser mit angegeben, beziehen sich die Werte dieser Funktionen nicht auf Zeichen, sondern auf Substrings:

Del$ steht immer für den Delimiter, der die Substrings trennt.

ins$(T$, S$, Nr%, Del$): Der Substring T$ wird als Substring Nr% eingefügt. Ist Nr% größer als die Anzahl der Substrings, wird T$ als zusätzlicher Substring angehängt.
del$(S$, Nr%, Anz%, Del$): Es werden in S$ Anz% Substrings ab Substring Nr% gelöscht. Ist Nr% größer als die Anzahl der Substrings, passiert nichts. Geht Anz% über die Anzahl der Substrings hinaus, wird ab Nr% bis zum Ende von S$ gelöscht.
len(S$, Del$): Anzahl der Substrings in s$.

Ok, David, Dein gewünschtes SetSubStr fehlt noch. Aber das läßt sich jetzt sehr leicht realisieren:
Kompilieren Markieren Separieren

!

proc SetSubStr

    parameters Neu$, S$, Nr%, Del$
    return ins$(Neu$, del$(S$, Nr%, 1, Del$), Nr%, Del$)

endproc

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

Nico
Madysa

Ich persönlich wäre dafür, das die Rangfolge der Operatoren verändert würde. Mein Vorschlag wäre:

1 : ^
2 : * /
3 : + -
4 : & |
5 : MOD
6 : = <> < > <= <=
7 : AND OR XOR

Die logischen Operatoren und die Vergleichs-Operatoren habe ich so tief eingestuft, damit man Klammern sparen kann, denn dann wird aus
Kompilieren Markieren Separieren

if (a% + b% < c%) and (a% > b%)

das hier:
Kompilieren Markieren Separieren

if a% + b% < c% and a% > b%

In dem Beispiel hier ist das zwar nicht allzuviel Gespare, aber bei längeren Bedingungen wäre das eine große Hilfe.

Nico Madysa

RGH

[quote:1257475361=Nico Madysa]Ich persönlich wäre dafür, das die Rangfolge der Operatoren verändert würde.[/quote:1257475361]
Das ist nicht möglich, ohne die Kompatibilität zu älteren Versionen gänzlich aufzugeben. Die möglicherweise wegfallenden Klammern sind nicht das Problem, dafür aber die, die im umgekehrten Falle dann plötzlich notwendig werden.

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

Frank
Abbing

Eventuell wäre ein neues offizielles Suffix für Profan mal nötig. .prf ist schon vielfach belegt:

PRF ClarisWorks Preferences File
PRF Plot Reference File
PRF Windows System File
PRF Rapfile
PRF PICS Rules File
PRF CheckIt Pro 1.0 Data
PRF McAfee Viruscan Profile
PRF Director Settings (Macromedia)
PRF dBASE IV Printer Driver
PRF Profan (rgh-soft.de)
PRF Monarch Portable Report File
PRF Polychrome Recursive Format Bitmap
PRF MicroImages Print Driver File (MicroImages, Inc.)
PRF Fastgraph Pixel Run Format Graphics
PRF Preferences File
PRF Profiler Output

.p32 ist frei und .xpf ist fast frei:

XPF X-Protector Project (The Xprotector Team)

Nur mal so als Anregung.
[...]

RGH

[quote:df877d15bb=Frank Abbing]Eventuell wäre ein neues offizielles Suffix für Profan mal nötig. .prf ist schon vielfach belegt:[/quote:df877d15bb]
Wenn, dann würde ich auf *.profan ausweichen. Es besteht schließlich kein Grund mehr, sich auf drei Zeichen im Suiffix zu beschränken.

Dem Compiler und Interpreter ist es eh egal wie das Suffix der Datei ist, die er ausführt. (Lediglich wenn im Aufruf über Kommandozeile kein Suffix verwandt wird, wird ein .prf angehängt.)

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

[quote:bf1edc41bd]Ok, David, Dein gewünschtes SetSubStr fehlt noch. Aber das läßt sich jetzt sehr leicht realisieren:[/quote:bf1edc41bd]

Superb! Sehr gelungen das Ganze!

Ich wünsche mir eine minimale Erweiterung von @FileSize. Und zwar folgende Rückgabewerte:
-1: Datei wurde nicht gefunden.
-2: Datei ist ein Verzeichnis.

Wäre nett

15.05.2006 ▲

RGH

[quote:507978a41a=TS-Soft]Ich wünsche mir eine minimale Erweiterung von @FileSize. Und zwar folgende Rückgabewerte:
-1: Datei wurde nicht gefunden.
-2: Datei ist ein Verzeichnis.

Wäre nett

[/quote:507978a41a]
Derart bescheidene Wünsche erfülle ich sofort!

Aus Kompatibilitätsgründen wird aber in beiden Fällen trotzdem wie bisher die Warnung Datei nicht gefunden ausgegeben. Wenn Warnungen mit Set(ErrorLevel,0) ausgeschaltet sind, kann man dann selbst auf das Problem reagieren.

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

15.05.2006 ▲

Michael
Dell

Obwohl (fast) Wunschlos glücklich, einen hab ich doch Create(Hyperlink,... das wär schön

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

16.05.2006 ▲

Apropro - der Vollständigkeit halber könnte Roland neben dem SysLinkControl auch das SysIPAddress32-Control mit nach Create portieren.

Das hatte ich hier gepostet: [...]

16.05.2006 ▲