Etechs

Stampa La pagina

Con i codici a barre ci si scontra
spesso e sono davvero utili e veloci, a questo proposito ho generato
un custom tag che server per visualizzare un codice a barre in formato
code-39 (o 3 di 9) è abbastanza semplice, cioè data
una stringa considera carattere per carattere e visualizza a video
la relativa immagine del codice a barre, la codifica code 39 però
vuole un punto esclamativo sia all’inizio che alla fine del codice.

Download del Custom Tag
<cf_barcode>

E’ attualmente pienamente funzionante, e prevedo che ci saranno
futuri sviluppi :-) almeno spero.

il codice è questo:

<!— cf_barcode
———————————————–
vers 0.9a
descr: generazione di un codice a barre attraverso il passaggio
di una stringa.
viene utilizzato il code 39 (o 3 di 9) ed ogni codice deve cominciare
con il punto esclamativo e finire con il punto esclamativo
per ora è possibile parrare solo stringhe numeriche il simbolo
del meno ed il simbolo del punto
Author: Enrico Zogno
data release: 28-07-2003
———————————————–
—>

<!— dir dove sono salvate le immagini
dei codici a barre —>
<cfparam name="imagedir"
default="/img-barcode">
<!— Attenzione questa variabile
indica il percorso ASSOLUTO della cartella delle immagini e termina
senza slash finale —>

<!— codice a barre da visualizzare
—>
<cfparam name="attributes.codice"
type="string" default="1234567890.-">
<!— altezza immagini —>
<cfparam name="attributes.h"
default="26">
<!— larghezza singola immagine
—>
<cfparam name="attributes.w"
default="11">
<!— larghezza totale codice
—>
<cfparam name="attributes.wtot"
default="0">
<!— testo alternativo per
le immagini —>
<cfparam name="attributes.alt"
type="string" default="Codice a barre">

<!— Elaborazione parametri
altezza e larghezza o larghezza totale —>
<!— se presente larghezza totale divido per lunghezza del codice
—>
<cfif attributes.wtot gt 0>
   <cfset largh=int(attributes.wtot/len(codice)>
</cfif>
<!— se non lunghezza totale immagine
allora considero la singola lettera —>
<cfif attributes.wtot is 0>
   <cfset largh=attributes.w>
</cfif>

<cfoutput>
<table cellpadding="0" cellspacing="0">
   <tr>
   <!— codice iniziale —>
   <td><img src="#imagedir#/i.gif" alt="#attributes.alt#"
   width="#largh#" height="#attributes.h#" border="0"></td>

<!— Comincio a visualizzare al
stringa come una serie di immagini —>
<cfloop index="i" from="1"
to="#len(attributes.codice)#" step="1">
   <!— Singolo carattere della
stringa —>
   <cfset car=mid(attributes.codice,i,1)>

   <cfif isnumeric(car)> <!—
è un numero? —>
      <td><img src="#imagedir#/#car#.gif" alt="#attributes.alt#"
      width="#largh#" height="#attributes.h#" border="0"></td>
   <cfelseif car is "-"> <!—
Carattere trattino —>
      <td><img src="#imagedir#/trattino.gif" alt="#attributes.alt#"
      width="#largh#" height="#attributes.h#" border="0"></td>
   <cfelseif car is "."> <!—
carattere punto —>
      <td><img src="#imagedir#/punto.gif" alt="#attributes.alt#"
      width="#largh#" height="#attributes.h#" border="0"></td>
   </cfif>
</cfloop>

     <!— codice finale —>
   <td><img src="#imagedir#/i.gif" alt="#attributes.alt#"
   width="#largh#" height="#attributes.h#" border="0"></td>
   </tr>
</table>

</cfoutput>

Qui è disponibile il codice completo comprensivo di immagini
per la codifica.
Download del Custom Tag
<cf_barcode>