Funzione che genera caratteri

[Mizushi]

Ciao.

Come faccio in questa funzione a visualizzare il codice generato?

Private Function characterStrip(strTextInput)

	For intLoopCounter = 0 to 37
		strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) 
	Next
	
	For intLoopCounter = 39 to 44
		strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) 
	Next
	
	For intLoopCounter = 65 to 94
		strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) 
	Next
	
	For intLoopCounter = 123 to 125
		strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) 
	Next
	
	For intLoopCounter = 127 to 255
		strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) 
	Next
	
	strTextInput = Replace(strTextInput, CHR(59), "", 1, -1, 0)
	strTextInput = Replace(strTextInput, CHR(60), "", 1, -1, 0)
	strTextInput = Replace(strTextInput, CHR(62), "", 1, -1, 0)
	strTextInput = Replace(strTextInput, CHR(96), "", 1, -1, 0)
	
	characterStrip = strTextInput
		
	
End Function

Grazie

[Roby_72]

str = "pippo"
response.write(characterStrip(str))

Roby

[Mizushi]

Ti ringrazio, ma non ho capito...

con il tuo suggerimento mi stampa pippo a video e non la stringa numerica generata dalla funzione...

[Roby_72]

Cosa dovrebbe fare quella funzione?

Roby

[Mizushi]

Originariamente inviato da Roby_72
Cosa dovrebbe fare quella funzione?

Roby

Secondo le istruzioni dell'autore una stringa NON ALFANUMERICA...

[Mizushi]

up

[br1]

A me pare che elimini dalla stringa tutti i caratteri non alfanumerici...

... che poi si potrebbe fare con una semplice Regular Expression

ciao

[longline]

No, questa funzione restituisce una stringa SICURAMENTE ALFANUMERICA.

Infatti vengono "azzerati" i caratteri ASCII con codice compreso tra 0 e 37, tra 39 e 44, tra 65 e 94, tra 123 e 125, tra 127 e 255, oppure uguale a 59, 60, 62, 96.

[Mizushi]

Vi ringrazio, ma visto che non è la funzione che fa per me ho trovato queste con la ricerca sul forum, ma non si stampa nessun codice a video:

'Generazione di un numero casuale per nominare il file Excel
Function genera(Max, Min, MaxChar) 
	Dim codice, cifra
	For i = 1 To MaxChar 
		Randomize timer
		codice = Int((Max * Rnd()) + 1) 
		cifra = cifra & codice
	Next 
	genera = cifra
End Function

temp_excel_file = lcase(genera(91, 48, 5)) 
response.write temp_excel_file & "
"



'Funzione per la generazione di una stringa casuale
Function genera(Max, Min, MaxChar)
	Dim controllo, cifra, intRange
	intRange = Max - Min
	For i = 1 To MaxChar
		codice = 58
		Randomize()
		Do While (codice > 57 And codice < 65)
			codice = Int((intRange * Rnd()) + Min)
		Loop
		cifra = cifra & Chr(codice)
	Next
	genera_fattura = cifra
End Function

casuale = lcase(genera(91, 48, 10)) '10 = numero caratteri di cui è composta la stringa
response.write casuale & "
"

Dove sbaglio ????

[santino83]

Function genera(Max, Min, MaxChar)
	Dim controllo, cifra, intRange
	intRange = Max - Min
	For i = 1 To MaxChar
		codice = 58
		Randomize()
		Do While (codice > 57 And codice < 65)
			codice = Int((intRange * Rnd()) + Min)
		Loop
		cifra = cifra & Chr(codice)
	Next
	genera = cifra
End Function

e nella stessa pagina non puoi dichiarare due function con lo stesso nome