XProfan

Italia

E.T.

... vermisse ich gerade.
Oder kann man folgenden XProfan - Code so "aufdröseln", das es im nproc funzt ??
Kompilieren Markieren Separieren

Case (@SelectString(Liste5&,-1,Datei$) > -1) : @DeleteString(Liste5&,@SelectString(Liste5&,-1,Datei$))

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

28.08.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Ungetestet aber selectString müsste einfach:
Kompilieren Markieren Separieren

nProc selectString(long lb,srcFrom,string src){

    return sendMessage(lb,lb_selectString,srcFrom,src)

}

sein bzw.
Kompilieren Markieren Separieren

nProc selectString

    parameters lb&,srcFrom&,src$
    return sendMessage(lb&,lb_selectString,srcFrom&,src$)

endProc

und deleteString gibt es ja direkt: [...]

Also einfach in nProc:
Kompilieren Markieren Separieren

Case selectString(Liste5&,-1,File$) > -1 : DeleteString(Liste5&,SelectString(Liste5&,-1,File$))

oder vlt. besser:
Kompilieren Markieren Separieren

long test=selectString(Liste5&,-1,File$)
case test>-1 : deleteString(liste5&,test)

XProfan X2
Win7 Home Premium, SP1, Core(TM)2 Duo E6750 @ 2.66GHz

28.08.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Gehts?

XProfan X2
Win7 Home Premium, SP1, Core(TM)2 Duo E6750 @ 2.66GHz

03.09.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

E.T.

Danke, bestens

!!
Das nächste (Problem-) Thema ist schon in Arbeit, muss nur erst mal Chaos in mein Progg bringen, damit es auch jeder nicht versteht

XProfan X2
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

03.09.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Bei sowas kann ich helfen!