Aber als Entschädigung, hier nun ein kleines Schmankerl für Dich (Schiewago, naja Antworte ich mal Ausnahmsweise drauf - wäre schön zu wissen mit wem man spricht ;))
declare left$,right$,string$
DEF @Links$(2) @Mid$(@$(1),1,@%(2))
DEF @Rechts$(2) @Mid$(@$(1),sub(len(@$(1)),sub(@%(2),1)),@%(2))
cls
let string$="Dies ist ein Test"
print @Links$(string$,6)
print @rechts$(string$,9)
waitinput
Das mit Def @Links.... steht sogar so in der Profanhilfedatei.
Rolf
|