Inoffizielles deutsches Xbase-Forum

Hi Jannik,

kenne ich das Problem. Wie schon oben erwähnt: am besten VX beenden, neu kompilieren und dann sollte es gehen. Allerdings auch hier wieder ein kleiner Hinweis, VX ist immer noch Beta und hat ein paar kleine Fehler...

Hi Hubert,

das ist so schon klar, ich dachte aber nur daran, das das Programm sich im Speicher jeweils die Adresse merken muß, woher es kommt und dabei müßte es doch irgendwann zu einem Stacküberlauf kommen, oder bin ich auf der falschen Bahn?

Tach,

für die Rekursion war es gestern zu spät. Aber eine Frage hätte ich dann noch, was passiert denn, wenn die Funktion in sich dann mehrfach aufgerufen wird? Was ist denn mit den RETURN Werten. Muß die Funktion sich dann nicht auch mehrmals beenden, oder wie läuft das dann?

Ich kann es nicht fassen.... PROCEDURE main() LOCAL cAnfang LOCAL cEnde PRIVATE bTitel := {|| indexohne(Upper(FIELD->bez)) } CLS DbUseArea(.T.,,"titel") cAnfang := TIME() titel->(OrdCreate("titel",,"eval(bTitel)")) cEnde := TIME() altd() titel->(DbGoTop()) browse() RETU...

Hi Martin,

ich habe Dein Beispiel einmal probiert. Wie der Teufel es will, es gibt einen Titel, der heißt: AS THE YEAHS GO BY .

Und da paßte natürlich das "DER DIE DAS THE ".
Watt'n Pech. Mal sehen, wie ich das gebacken kriege...

Hi Martin,

ich hoffe Du bringst den Film mit nach D-Dorf und dann ziehe ich ihn mir auf USB HD ab. Nur falls ich ihn nicht mehr anders beommen sollte...

Hi Martin,

jaja, vornehm geht die Welt zu Grunde.

Ich bin gerade dabei es damit zu testen

Hi Martin,

durch diese weiße blasse Farbe im Gesicht wirkst Du nicht gerade gesund.

Hi Martin, so, läuft es 46 Sekunden bei ca 536000 Sätzen PROCEDURE main() LOCAL aZeichen := {; {")",1},; {"(",1},; {"!",1},; {" ",1},; {"§",1},; {"$",1},; {"%",1},; {"&",1},; {"/",1},; {"?",1},; {...

Ne jan,

nicht Off Toppic. Du hast vollkommen Recht.

Hi Martin,

nein, statt 46 sind es dann 51 Sekunden.

Auch auf die Gefahr hin, dass ich jetzt nerve,

aber wenn ich das Array aZeichen aus der Funktion entferne und das Array direkt in main() deklariere und dann per Parameter übergebe, dann komm ich von 58 Sekunden auf 46 Sekunden Laufzeit. Nachvollziehbar, aber das es so gravierend sein kann.

Das ist ja jetzt sehr interessant für mich: * * * * * Letzte Änderung:25.11.2007 ******************************************************************************** * indexohneartikel.prg Tempotest ******************************************************************************** PROCEDURE main() LOCAL c...

Hi ihr Alleinunterhalter,

brrrrr, gelesen habe ich jetzt alles, aber verwirrt bin ich total. Jetzt werde ich mir erstmal den Kopf gerade drehen und noch etwas probieren.

Bis später

Hmhmhmhm, das kann es auch nicht sein FUNCTION indexohne(cIndexKey) LOCAL aZeichen := {; {")",1},; {"(",1},; {"!",1},; {" ",1},; {"§",1},; {"$",1},; {"%",1},; {"&",1},; {"/",1},; {"?",1},; {"...

Hi Tom,

danke, das in der Klammer hatte ich überhaupt nicht verstanden.

Puh, also, wenn das Teil so aussieht "/ Test" dann muß erst das / und dann das Leerzeichen entfernt werden, damit sowas hier steht "Test" Es macht aber sowas hier "Test / Test" "TestTest" Und das kann ich nicht gebrauchen. Ich denke aber, ich habe gerade eine ...

Den hier kann ich nicht wechseln

Sorry guys, I do not mean to keep you from your daily operational business, but wouldn't
it be nice to know who you talked to (and not just the all the technical minutiaes of his
source code probelm ?? ))

Hm,

es antwortet hier keiner. Bin ich der einzige, der vorhin eine englische Mail von Alaska erhalten hat?

Hi Martin,

ja, das will ich aber nicht.... Es dürfen nur die am Anfang sein. Das Teil haut sie mir raus, egal wo sie stehen, wenn auch nur 1x, wie gewünscht. Also heißt es weitersuchen nach einer schnellen, knappen Lösung.

Hm, was mache ich da? Nun, ich hatte es erst so verstanden, dass ich StrTRan() sagen kann, was wann und wie oft wo ersetzt wird. Das war wohl ein Irrtum. Aber cStrimg = meine Zeichenkette cSeek = Das Zeichen was ersetzt werden soll Das klappt ja auch soweit cReplace = Das neue Zeichen, oder aber nic...

Jaja, die Claudia,

wenn sie das alles wenigstens mal auf Deutsch verschickt hätte, dann müßte ich mir jetzt nicht bei einigen Sätzen die Haare raufen und fragen, was sie damit gemeint hat....

Tach, so, die Sache mit StrTran() klappt nicht so, wie ich es brauche. Man kann der Funktion sagen, wie oft sie das machen soll, aber nicht ab wo bis wo. Oder ich bin zu blöde.... FUNCTION indexohne(cIndexKey) LOCAL aZeichen := {; {")",1},; {"(",1},; {"!",1}; } LOCAL cI...

ich schmeiß mich morgen nochmals daran. Heute ist es mir auch schon zu spät

Hi Martin,

ist es schon so spät, oder wieso habe ich das Gefühl ich schlafe?

Wieso die CHR() nicht in der Schleife? Gerade die, da können doch zig Möglichkeiten sein, die nach und nach geprüft werden müssen.