intercettare caratteri

[alfietto82]

Salve,
è possibile intercettare i caratteri di un testo salvato in database e sostituire quei caratteri con delle immagini create precedentemente? Stabilire precedentemente che ad ogni lettera corrisponda un'immagine, far riconoscere le lettere partendo da un testo salvato in database e stampare a video la parola formata dalle immagini composte.

grazie

[Mems]

Certo.
Se alla lettera a corrisponde la a.jpg basta fare:

stringa = "ciao"
for i = 1 to len(stringa)
lettera = mid(stringa,i,1)
if lettera <> " " then 
response.write "/img/" & lettera & ".jpg"
else
response.write " "
end if
next

[Mems]

Originariamente inviato da Mems
Certo.
Se alla lettera a corrisponde la a.jpg basta fare:

stringa = "ciao"
for i = 1 to len(stringa)
lettera = mid(stringa,i,1)
if lettera <> " " then 
response.write "[img][/img]"
else
response.write " "
end if
next

[alfietto82]

..funziona alla grande..grazie!

[alfietto82]

è possibile prevedere anche lo spazio tra una parola ed un'altra? se ad esempio la stringa fosse "ciao ciao"..

[Mems]

stringa = "ciao"
for i = 1 to len(stringa)
lettera = mid(stringa,i,1)
if lettera <> " " then 
response.write "[img][/img]"
else
response.write "[img][/img]"
end if
next

[alfietto82]

nuova problematica.. ora vorrei trasformare in immagini i caratteri presi da stringhe casuali estrapolate da database:

<%
		Dim address, image, nome, N, max, i, casuale, temp, objImmoConn
		
		Set objImmoConn = Server.CreateObject("ADODB.Connection")
		
objImmoConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/nico.mdb")
		
		Set objImmoRs = Server.CreateObject("ADODB.Recordset")
		strImmoSQL = "SELECT * FROM parola"
		
		objImmoRs.Open strImmoSQL,objImmoConn,3,3
		
		
		if not objImmoRs.EOF then
		  N = 1 'numero di record casuali da visualizzare
		  Randomize
		  max = objImmoRs.RecordCount-1
		  redim arr(max)
		  'popolo l'array da 0 al numero di record 
		  for i=0 to max
			arr(i)=i
		  next
		'mischio i numeri in modo casuale
		  for i=0 to max
			casuale = Int((max)*Rnd)
			temp = arr(i)
			arr(i) = arr(casuale)
			arr(casuale) = temp
		  next
		  'visualizzo gli N record casuali
		  for i=0 to N-1
			objImmoRs.Move arr(i)
		%>
	  <tr align="center"> 
	    <%	
	   	 'Response.Write(""& objImmoRs("testo") &"")
%>
	  
</tr>
	  <tr>
		<%
		  objImmoRs.MoveFirst 
		  next
		end if
			objImmoRs.Close
		%>
	 </table>

uso questo codice per stampare a video la stringa estratta casualmente.. come ci applico il codice precedente per trasformarlo in immagini?

[alfietto82]

risolto!

posto il codice, se mai dovesse tornare utile a qualcuno

<%
		Dim address, image, nome, N, max, i, casuale, temp, objImmoConn
		
		Set objImmoConn = Server.CreateObject("ADODB.Connection")
		objImmoConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/nico.mdb")
		
		Set objImmoRs = Server.CreateObject("ADODB.Recordset")
		strImmoSQL = "SELECT * FROM parola"
		
		objImmoRs.Open strImmoSQL,objImmoConn,3,3
		
		
		if not objImmoRs.EOF then
		  N = 1 'numero di record casuali da visualizzare
		  Randomize
		  max = objImmoRs.RecordCount-1
		  redim arr(max)
		 
                  'popolo l'array da 0 al numero di record 
		  for i=0 to max
			arr(i)=i
		  next
		
                  'mischio i numeri in modo casuale
		  for i=0 to max
			casuale = Int((max)*Rnd)
			temp = arr(i)
			arr(i) = arr(casuale)
			arr(casuale) = temp
		  next
		  
                 'visualizzo gli N record casuali
		  for i=0 to N-1
			objImmoRs.Move arr(i)
		
                 next
		
                'trasformo il record estratto in immagini
                stringa = ""& objImmoRs("testo") &""
		for i = 1 to len(stringa)
		lettera = mid(stringa,i,1)
		if lettera <> " " then 
		response.write "[img][/img]"
		else
		response.write "[img][/img]"
		end if
		next
                
                end if
	        objImmoRs.Close
		%>