creazione di una stringa

[diablobox]

Qualcuno sa dirmi come si fa a generare una stringa numerica ed una alfanumerica con una dimensione predefinita

ad esempio

voglio creare una stringa numerica di 8 cifre

ed una stringa alfanumerica di 8 lettere o numeri

grazie
:quote:

[grido82]

Function Genera_Stringa(iLunghezza, sCaratteri)
	Randomize 'Inizializza il generatore di numeri casuali.
	'Dichiaro e inizializzo la variabile che conterrà la stringa generata
	Dim Stringa_Generata
	Stringa_Generata = ""
	'Se la stringa dei caratteri è vuola uso l'alfabeto minuscolo e
	'i numeri da 0 a 9
	If sCaratteri = "" Then sCaratteri = "abcdefghijklmnopqrstuvwxyz0123456789"
	'Controllo che iLunghezza sia numerico e se non lo è imposto la lunghezza a 0
	If Not IsNumeric(iLunghezza) Or iLunghezza = "" Then iLunghezza = 0
	'Scelgo un carattere a caso dalla stringa un numero di volte pari a iLunghezza
	While iLunghezza > 0
		iLunghezza = iLunghezza - 1
		'Aggiungo a Stringa_Generata un carattere scelto a caso tra quelli di sCaratteri
		Stringa_Generata = Stringa_Generata & Mid(sCaratteri, Int(Len(sCaratteri) *  Rnd + 1), 1)
	Wend
	'Restituisco la stringa generata o una stringa vuota in caso di valori non validi per iLunghezza
	Genera_Stringa = Stringa_Generata
End Function