Hallo Micha,
ich habe mal da einen Ausflug in die Vergangenheit getan:
http://www.synactive.com/examples/example0018.html
Eine abgespeckte Version dessen würde dann die Anzahl der markierten Sätze ermitteln.
z.B.
Pushbutton (toolbar) "@9E\QAnzahl markierter Sätze anzeigen@Anzahl" process="Table_Anzahl.txt"
InputScript "Table_Anzahl.txt":
set V[TableName] ""
set V[marked] ""
set V[TableName] "&V[_cursortabtechname]"
if V[TableName=]
message "W: Der Cursor muss sich innerhalb einer Tabelle befinden." -statusline
goto script_ende
endif
// scroll to first line
Screen *
Enter "/ScrollToLine=1" Table="T[&V[TableName]]"
// Variables
Set V[absrow] 1 // Absolute row number
set V[Anzahl] 0
Screen *
GetTableAttribute T[&V[TableName]] FirstVisibleRow=FVisRow LastVisibleRow=LVisRow LastRow=LastRow
label new_row
// end of screen?
if V[absrow>&V[LVisRow]]
Enter "/ScrollToLine=&V[absrow]" Table="T[&V[TableName]]"
goto end_of_screen
endif
Set V[selected] "&cell[&V[TableName],0,&V[absrow]]"
// Selected?
if V[selected=X]
set V[Anzahl] "&V[Anzahl]" + 1
set V[marked] "X"
endif
Set V[absrow] &V[absrow] + 1
goto new_row
label end_of_screen
if V[marked=]
message "S: Es wurden keine selektierten Sätze gefunden." -statusline
else
message "S: Die Anzahl der markierten Sätze: &V[Anzahl]" -statusline
endif
// Back to line 1
Enter "/ScrollToLine=1" Table="T[&V[TableName]]"
label script_ende
Grüße, ScriptMan
