Advanced Search

Return to Snippet

Revision: 13622
at April 29, 2009 14:12 by delm
Initial Code 
Public Shared Function TextoAleatorio(Optional ByVal largoMinimo As Int16 = 1, Optional ByVal largoMaximo As Int16 = Int16.MaxValue) As String
        Dim i As Integer
        Dim largo As Integer = NumeroAleatorio(largoMaximo, largoMinimo)
        Dim strTemp As New StringBuilder(largo)
        For i = 0 To largo - 1
            strTemp.Append(Chr(NumeroAleatorio(maximo:=90, minimo:=65)))
        Next
        Return strTemp.ToString()
    End Function
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
Esta función devuelve un string aleatoreo con un largo aleatoreo, con un mínimo y un máximo.
El uso más común es solo especificar el largo máximo.
Especialmente útil para pruebas unitarias.

NOTA: depende de http://snipplr.com/view/14580/nmero-aleatorio/

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
String aleatoreo

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    
text

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
VB.NET