Newsgroup: it.comp.grafica
Titolo: URGENTE: Corel script o simile

Salve,
ho bisogno urgente di risolvere un problema.
Ho circa 600 foto di lavoro nelle quali devo inserire il nome del file
(in basso a sinistra). Farlo a mano mi richiederebbe una vita,
inserendo in ciascuna foto manualmente una per una il testo
corrispondente al nome del file, ed avendo dato un'occhiata a Corel
Photopaint, i suoi script dovrebbero essere la soluzione migliore.
Il problema e' che di script e di Corel ne capisco poco (o niente).
Qualcuno potrebbe darmi una mano?
Vi saro' eternamente grato :-)))
Grazie e ciao!
Paolo



Sebbene si possa fare con Photopaint, te lo sconsiglio.
E' come far fare uncinetto ad un elefante, visto che devi gestire 600
foto...
Per fare quello che dici basta usare Thumb Plus.
Trovi la demo gratuita sul sito 
www.cerious.com
.
In che formato sono le foto?
Thumb plus gestisce anche i file nativi CDR e CPT, ma ne estrae solo
le miniature, a meno che non usi il metodo (moooooltOLEnto) OLE.
In ogni caso TP ha anche uno script per creare gli album e che puoi
personalizzare come vuoi: dimensioni foto, info, nome file,
keywords...
Tony
(oppure Tony, a seconda del NG)
=)

=)

>=)

dall'ufficio...
 :-)))
Grazie e ciao!
Nonno Paolo

l'estensione.
Oppure:
[COPY]
REM Creato con CorelPhotoPaint Versione 8.369
REM creato il Thursday, January, 27, 2000 da Tony
REM
REM questo script, piuttosto rozzo, estrae il nome del file da un
percorso completo.
REM Scansiona semplicemente il percorso carattere per carattere,
partendo da destra.
REM Non appena trova il carattere \, estrae il nome del file e lo
mette nella variabile nomefile$.
REM A questo punto si puo' fare quello che si vuole...
WITHOBJECT "CorelPhotoPaint.Automation.8"
REM Sostituisci la path qui sotto con la path di un tuo file
	.FileOpen
"C:\miacartella1\miacartella2\miacartella3\miofile.cpt", 0, 0, 0, 0,0,
1, 1
REM
REM INIZIO SUBROUTINE estrazione nome file da path completo
	NomeFileCompleto$= .GetDocumentName()
	LunFile&=0
	LunghString&=LEN(NomeFileCompleto$)
MESSAGE "Lunghezza Path: " & LunghString&
	for x=LunghString& to 0 step -1
		a$=mid(NomeFileCompleto$,x,1) 
		if a$="\" then
nomefile$=mid(NomeFileCompleto$,x+1,LunFile&+1)
			goto filename
		else
			LunFile&=LunFile&+1
		endif
	next x
filename:
MESSAGE "nome file: " &nomefile$
REM FINE SUBROUTINE estrazione nomefile da path completo
REM
REM inserisci qui di seguito l'operazione che vuoi eseguire sul file
END WITHOBJECT
[FINE COPY]
Ciao
Tony

Oppure:
[snip]
Lo provero' subito!
Ciao e grazie!
Nonno Paolo


Immagina di avere 10 CD contenenti 1000 immagini cadauno.
non hai un riferimento cartaceo di tutte le immagini.
Di solito faccio cosi':
1- prendo il primo CD, lo infilo nel drive e lo sfoglio alla ricerca
dell'immagine che cercho.
2- Non trovo l'immagine: tolgo il CD dal drive e inserisco il CD
successivo e ricomincio dal punto 1, fino a quando non trovo
l'immmagine che cerco.
Sarebbe molto piu' comodo avere un catalogo di miniature di tutti e 10
i CD, no?
Che puoi consultare a video (o stampare) in ogni momento senza dover
inserire i CD uno alla volta (off-line).
Una volta trovata l'immagine desiderata, il software ti richiedera' di
inserire il CD giusto per caricarla nelle sue dimensioni originali.
Questo e' quello che fa Thumb Plus.
Spero di aver chiarito un attimino...
Ciao
Tony

Spero di aver chiarito un attimino...
Chiarissimo! Adesso ho capito :-)
Lo provero' senz'altro!!!
Ciao
Nonno Paolo