XPSE

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

Ok, ist schlimmer als gedacht -

der Fehler ist in LTrim, aber eigentlich in whileloop bei Whileloop 0 -

denn da gehe ich trotzdem in die Schleife statt wie XProfan.

Kotz!

Kann fix nur ein Workaround anbieten, funktion nTrim:
Kompilieren Markieren Separieren

nproc ntrim(string s){return rtrim(lltrim(s))}

NPROC lltrim

    PARAMETERS S$
    VAR O&=1
    VAR L&=LEN(S$)
    casenot l& : return ""

    WHILELOOP L&

        IF S$[&LOOP]<33

            CONTINUE

        ENDIF

        O&=&LOOP-1
        BREAK

    WEND

    ADD O&,1
    RETURN MID$(S$,O&,L&-O&+1)

ENDPROC

GDL

Hi,

so gehts auch. Ich füge nach dem Einlesen einer Zeile und in Großbuchstaben umformen einfach ein Leerzeichen mit an.
...
....
scr=Upper(scr)+" " ' sonst stürzt trim ab
scr=trim(scr)
....
....

Menno, irgendwie habe ich den Hang, immer über was zu stolpern.

Grüßle
Georg

XProfan X3
Windows7 Xprofan 8,9,10 und 11
Musikwelt: [...]

Verwitwet - Forum für Betroffene : [...]

Michael
W.

Sofern Du den Boden wieder aufwischst, nachdem Du auf den Bug getreten bist...

XProfan X3
System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

Ich sehe grad, in InfinityProfan habe ich den Fehler nicht gemacht -
das mir das in xpse passiert ist ist aber ein starkes Stück -
zum Glück hat Georg den Fehler hervorgehoben. Komisch das nie
einer zuvor drauf gestoßen ist.