Titolo: Copiare negli appunti il contenuto di una listbox
Categoria: Codice |
|
Ultimo Aggiornamento: 03/04/12 |
Il seguente metodo prende come parametri il puntatore ad una listbox, il separatore fra le colonne e quello fra le righe per inserire negli appunti il contenuto della listbox stessa.
C_POINTER($1;$lbPointer_p)
C_TEXT($2;$columnSeparator_t)
C_TEXT($3;$rowSeparator_t)
C_LONGINT($i;$numRows_l)
C_LONGINT($j;$numCols_l)
C_TEXT($theData_t)
ARRAY TEXT($colNames_at;0)
ARRAY TEXT($headerNames_at;0)
ARRAY POINTER($colVars_ap;0)
ARRAY POINTER($headerVars_ap;0)
ARRAY BOOLEAN($colsVisible_ab;0)
ARRAY POINTER($styles_ap;0)
$lbPointer_p:=$1
If (Count parameters>1)
$columnSeparator_t:=$2
$rowSeparator_t:=$3
Else $columnSeparator_t:=Char(Tab)
$rowSeparator_t:=Char(Carriage return)
End if LISTBOX GET ARRAYS($lbPointer_p->;$colNames_at;$headerNames_at;$colVars_ap;$headerVars_ap;$colsVisible_ab;$styles_ap)
$numRows_l:=Size of array($colVars_ap{1}->)
$numCols_l:=Size of array($colNames_at)
For ($i;1;$numRows_l)
For ($j;1;$numCols_l)
If ($colsVisible_ab{$j}=
True)
If ($j#1)
$theData_t:=$theData_t+$columnSeparator_t
End if $theData_t:=$theData_t+String($colVars_ap{$j}->{$i})
End if End for If ($i<$numRows_l)
$theData_t:=$theData_t+$rowSeparator_t
End if End for SET TEXT TO PASTEBOARD($theData_t)
-----------
Da notare come:
- il comando String può ricevere come parametro anche una stringa;
- per testi grandi il testo potrebbe essere prima inserito il un BLOB.
Inviato da: PierPaolo Sichera |
|
Visite: 12086 |
Se accedi con utente e password, puoi aggiungere dei commenti.