Un dizionario personalizzato di parole tradotte in diverse lingue...

Questo è uno script che ci facilita nel tradurre delle frasi o parole in diverse lingue. Prima di tutto, tramite degli array imposteremo ad esempio la prima frase in italiano, inglese, francese ecc... e così via per tutte le frasi che ci serve tradurre. Poi basterà chiamare una funzione passandogli la frase da tradurre e la lingua nella quale vogliamo tradurre quella frase. Per esempio se vogliamo tradurre la parola "Questa è la mia casa" dall'italiano all'inglese basterà chiamare la funzione in questo modo: response.write Dictionary("Questa è la mia casa","it","en") ...in questo modo ci verrà restituito a video "This is my house". Oppure possiamo fare al contrario, da inglese a italiano: response.write Dictionary("This is my house","en","it") Questo è particolarmente utile quando dobbiamo gestire delle pagine asp in più lingue, invece di creare una pagina asp per ogni lingua ne creeremo soltanto una richiamando la funzione con la parola da tradurre e la lingua scelta dall'utente.

<%
'### Dichiaro le lingue
   Dim it(300)	'it = italiano
   Dim en(300)	'en= english
   Dim fr(300)	'fr = francaise
   Dim de(300)	'de = deutch
   Dim es(300)	'es = español
	

'### Dichiaro frasi
'--- 0
   it(0)="Prova italiano"
   en(0)="prova inglese"
   fr(0)="prova francese"
   de(0)="prova tedesco"
   es(0)="prova spagnolo"
   
'--- 1
   it(1)="Casa"
   en(1)="House"
   fr(1)="Maison"
   de(1)="Casa tedesco"
   es(1)="Casa es"
'--- 2
'--- 3
'--- 4
'--- 5
'--- 6
'--- 7
'--- 8
'--- 9
'--- 10
'--- 11
'--- 12
'--- 13
'--- 14
'--- 15
'--- 16




Function Dictionary(frase,DaLingua,ALingua)
   'Passando da input la parola o frase da tradurre,la lingua
   'di partenza e di destinazione mi restituisce la parola tradotta
   '
   'I n p u t:
   'Frase: la frase da tradurre
   'DaLingua: la sigla della lingua della parola da tradurre
   '   it per l'italiano, en per l'inglese, fr per il francese
   '   de per il tedesco, es per lo spagnolo
   'ALingua: la sigla della lingua nella quale tradurre la parola data
   '
   'O u t p u t:
   'mi restituisce la parola tradotta
   '
	
   frase=lcase(frase)
   Dalingua=lcase(DaLingua)
   Alingua=lcase(ALingua)
   
   
   for i=0 to 300   
      Select case DaLingua
         Case "it" if lcase(it(i))=frase then exit for
         Case "en" if lcase(en(i))=frase then exit for
         Case "fr" if lcase(fr(i))=frase then exit for
         Case "de" if lcase(de(i))=frase then exit for	
         Case "es" if lcase(es(i))=frase then exit for
         Case else Dictionary="Lingua di partenza inesitente!":exit function
      end select
   next
	
	
   if i<300 then
      Select case ALingua
         Case "it" Dictionary=it(i) 	
         Case "en" Dictionary=en(i)
         Case "fr" Dictionary=fr(i)
         Case "de" Dictionary=de(i)	
         Case "es" Dictionary=es(i)
         Case else Dictionary="Lingua di destinazione inesistente!"
      end select
   else
      Dictionary="Parola non trovata!"
   end if

	
End function








'### Richiamo la funzione passandogli:
   '- la parola o frase intera da tradurre
   '- la sigla della lingua della parola da tradurre
   '- la sigla della lingua in cui tradurre la frase
	
response.write Dictionary("Prova italiano","it","es")
%>

immagini, meteo, radio, video, visual basic, senna, filmato, calcio, download, chat, formula1, bugatti, ferrari, php, foto, script, cap, cerca lavoro, auto, animali