20898_it-IT

liliconcom

Ritaglia l'immagine e inserisci il ritaglio nella tabella dei dati<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

Attualmente sto eseguendo uno script che inserisce un'immagine da 1 Mb in una tabella di dati utilizzando il seguente semplice script (dove :link to image è un'unità di rete in cui è archiviato il jpg)

Formula( Aprire ( :Link all'immagine, "jpg" ) ),

A causa delle dimensioni dell'immagine, la tabella dei dati sta diventando grande (ho circa 1500 immagini) e ho provato la funzione di ritaglio ma non riesco a ottenere la sintassi corretta

uno dei vari modi che ho provato è il seguente (e probabilmente tutte le combinazioni di questo a parte quella corretta!).

Formula( Aprire ( :Link all'immagine, "jpg" ) ) << Ritaglia ( Sono partiti ( 190 ), superiore( 0 ), parte inferiore( 1690 ), Destra ( 700 ) ),

Mi sento vicino ma non del tutto lì.

Idealmente, farebbe quanto segue

1. Apri l'immagine (una alla volta per risparmiare memoria del computer?)
2. ritaglia l'immagine, quindi salva il ritaglio in una cartella centrale. Ciò consentirebbe quindi un'ulteriore analisi dell'immagine, se necessario.
3. Inserisci il ritaglio nella tabella dei dati
4. Chiudi l'immagine originale.

Saluti

Davide

Re: Ritaglia immagine e inserisci ritaglio nella tabella dati

Ecco uno script di esempio che fa ciò che hai indicato che volevi

Nomi predefiniti qui ( 1 ) ;

// Ottieni l'elenco delle immagini

lista di file = File nella directory ( "$SAMPLE_IMAGES" ) ;

// Scorri tutte le immagini, ritagliandole e salvandole

Per ( io = 1 , io <= N articoli ( lista di file ) , io ++,

// Usando un sostituto perché il valore dell'estensione deve essere un'espressione,

// non un letterale

val (

Sostituto (

espr (

img = Aprire ( "$SAMPLE_IMAGES\" || lista di file [ io ] , __estensione__ )

) ,

espr ( __estensione__ ) , Analizza ( Parola ( - 1 , lista di file [ io ] , "." ) )

)

) ;

// Attendi che l'immagine venga letta

Attesa ( 1 ) ;

      

// Ritaglia l'immagine

img << Raccolto ( Sono partiti ( 50 ) , Destra ( 100 ) , Superiore ( 60 ) , Parte inferiore ( 150 ) ) ;

// Salva l'immagine in una nuova cartella

img << Salva immagine ( "" || lista di file [ io ] , Parola ( - 1 , lista di file [ io ] , "." ) ) ;

) ;

// Crea una nuova tabella

Nuova tavola ( "Senza titolo" ,

Aggiungi righe ( N articoli ( lista di file ) ) ,

Nuova colonna ( "Immagine" , Espressione , "Nessuno" , Imposta i valori ( {} ) )

) ;

// Popolare la colonna dell'immagine

avanti (

: Immagine = nuova immagine ( "" || lista di file [ riga ()])

) ;