testo convertito in grafica..help!

[trash]

vi spiego la mia idea e anche problema

praticamente mi piacerebbe fare dei titoli grafici.

allora cerco di farvi capire: ho un campo della mia tabella chiamato "nome". questo campo contiene per l'appunto un nome (ad esempio "mario rossi").

ho preparato delle piccole immagini con dei caratteri (è un font molto particolare): ho ricreato tutto l'alfabeto con immaginette (ad esempio ho "a.gif", "b.gif", "c.gif") in modo da poter formare parole mettendole una accanto all'altra.

ecco io vorrei che il nome che vi dicevo prima sia scritto in questo modo...sostituendo al carattere vero e proprio, l'immagine corrisponfente.

ho provato con un replace...ma evidentemente sbaglio, e cmq non so se è la cosa + idonbea, in quanto essendo molti caratteri presumo sia una cosa lenta in fase di caricamento.

sperio di essermi spiegato bene

grazie sin da ora

[Baol74]

Function TextToImg(Text,Folder,ImgAttr)
	Dim i,Length,ArOut()
	Folder = Replace(Folder,"\","/")
	If Len(Folder)>0 then If Mid(Folder,Len(Folder),1)<>"/" then Folder = Folder & "/"
	If ImgAttr<>"" then ImgAttr=" " & ImgAttr
	Length = Len(Text)
	Redim ArOut(Length-1)
	For i=1 to Length
	 ArOut(i) = "[img]" & Folder & Mid(Text,i,1) &".gif[/img]"
	Next
	TextToImg = Join(ArOut,VbCrLf)
End Function

Response.Write TextToImg("Ciao","Images/Lettere/Arial/","border='0' width='16px'")

Nel primo parametro metti la scritta, nel secondo dove si trova la cartella con le immagine e nel terzo eventuali attributi sull'immagine.

[trash]

grazie infinitamente
purtroppo ho seri problemi di pc inquesti giorni (ecco perchè ci ho messo tanto a rispondere), ma appena possibile proverò

grazie 1000 ancora per la velocità e disponibilità

[trash]

ho provato il tuo script, ma mi da un errore:

<%
Function TextToImg(Text,Folder,ImgAttr)
	Dim i,Length,ArOut()
	Folder = Replace(Folder,"\","/")
	If Len(Folder)>0 then If Mid(Folder,Len(Folder),1)<>"/" then Folder = Folder & "/"
	If ImgAttr<>"" then ImgAttr=" " & ImgAttr
	Length = Len(Text)
	Redim ArOut(Length-1)
	For i=1 to Length
	 ArOut(i) = "[img]" & Folder & Mid(Text,i,1) &".gif[/img]"
	Next
	TextToImg = Join(ArOut,VbCrLf)
End Function
%>

<%
Response.Write TextToImg("Ciao","../images/letters/","border='0' width='16px'")
%>

l'errore è questo:

Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'i'

/web/band.asp, line 79

la linea incriminata (la 79) è questa:

	 ArOut(i) = "[img]" & Folder & Mid(Text,i,1) &".gif[/img]"

non riesco a capire, ho fatto dei tentativi, ma probabilmente è colpa mia e dlle mie scarse conoscenze...


una domanda in + volevo porti (anche se forse prematuro):
dal tuo script mi sembra di capire (ma potrei sbagliare) che non è previsto lo "spazio"...potrebbe essere una soluzione sostituire prima gli spazi con degli underscore e quindi chiamare l'immagine corrispettiva dello spazio "_.gif"?

grazie ancora per la pazienza

[Baol74]

Hai un'immagine per lo spazio?

[trash]

si...dato che il carattere che uso per le immagini è molto + largo del normale verdana, ho dovuto per forza usare una gif trasparente vuota per ricreare lo spazio.

comunque l'errore non è dovuto allo pazio, dato che per prova ho utilizzato la parola "ciao" come mi avevi scritto nell'esempio. ancora non ho messo la variabile che va a pescare il record dal db

[Baol74]

Dai, c'era un meno uno di troppo!!!!!

<%
Function TextToImg(Text,Folder,ImgAttr)
	Dim i,Length,ArOut(),Ch
	Folder = Replace(Folder,"\","/")
	If Len(Folder)>0 then If Mid(Folder,Len(Folder),1)<>"/" then Folder = Folder & "/"
	If ImgAttr<>"" then ImgAttr=" " & ImgAttr
	Length = Len(Text)
	Redim ArOut(Length)
	For i=1 to Length
	Ch = Mid(Text,i,1)
	'La gif si deve chiama re Space.gif, ma come vedi puoi mettere quello che vuoi
	If Ch = " " then Ch = "Space" 
	 ArOut(i-1) = "[img]" & Folder & Ch &".gif[/img]"
	Next
	TextToImg = Join(ArOut,VbCrLf)
End Function
%>

[fraude]

Scusate se mi inserisco, ma dove trovo le gif con tutte le lettere dell'alfabeto ed i numeri?
Grazie

[trash]

Originariamente inviato da fraude
Scusate se mi inserisco, ma dove trovo le gif con tutte le lettere dell'alfabeto ed i numeri?
Grazie

io me le sono fatte :P

[trash]

comunque grandissimo baol!

funziona benissimo, almeno per quel che ho visto in questo primo test

grazie davvero infinitamente!