©
serviceprofessionalgmbh
Das Macro addiert alle numerischen Inhalte des betreffenden Bereiches und gibt die Summe aus. Der Bereich wird über
Start-Parameter oben links unten rechts festgelegt.
/* REXX * EDIT MACRO *************************************************/
/* */
/* Macroname.: $SUM */
/* */
address isredit
"macro (oben,links,unten,rechts)"
sum=0
do cnt=oben to unten
"(zeile) = line" cnt
bereich=substr(zeile,links,rechts-links+1)
if datatype(bereich) = 'NUM' then sum=sum + bereich
end
befehl="line_after" unten "= noteline '"right(sum,rechts)"'"
interpret 'address isredit "'befehl'"'
zedsmsg=sum
zedlmsg="Ergebnis der Summenbildung Zeile" oben "Spalte" links
zedlmsg=zedlmsg "bis Zeile" unten "Spalte" rechts "ist" sum
address ispexec "setmsg msg(isrz000)"
exit
zurück zu Edit Makros