vb.net与C#随机生成字符串

//随机字符串类型


public enum stringtype




...{


allstring = 1,//大小写字母


allnumic = 2,//数字


str_num = 3,//大小写字母+数字


str_upper = 4,//大写字母


str_lower = 5 //大写字母


}




//生成随机字符串


public static string GenerateRandom(int Length,stringtype s)




...{


string strtemp="";


string[] constant=null;


switch (s)




...{


case stringtype.allnumic :


strtemp="0,1,2,3,4,5,6,7,8,9";


constant = strtemp.Split(',');


break;


case stringtype.allstring :


strtemp ="a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,X,Y,Z";


constant = strtemp.Split(',');


break;


case stringtype.str_lower :


strtemp = "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z";


constant = strtemp.Split(',');


break;


case stringtype.str_num :


strtemp = "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,X,Y,Z,0,1,2,3,4,5,6,7,8,9";


constant = strtemp.Split(',');


break;


case stringtype.str_upper :


strtemp = "A,B,C,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Y,Z";


constant = strtemp.Split(',');


break;


}




System.Text.StringBuilder newRandom = new System.Text.StringBuilder(Length);


Random rd = new Random();


for (int i = 0; i < Length; i++)




...{


newRandom.Append(constant[rd.Next(constant.Length-1)]);


}


return newRandom.ToString();


}


'随机字符串类型




Public Enum stringtypeEnum stringtype


allstring = 1


'大小写字母


allnumic = 2


'数字


str_num = 3


'大小写字母+数字


str_upper = 4


'大写字母


str_lower = 5 '大写字母


End Enum








Function GenerateRandom()Function GenerateRandom(ByVal Length As Integer, ByVal s As stringtype) As String


Dim strtemp As String = ""


Dim constant() As String = Nothing


Select Case s


Case stringtype.allnumic


strtemp = "0,1,2,3,4,5,6,7,8,9"


constant = strtemp.Split(",")


Case stringtype.allstring


strtemp = "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,X,Y,Z"


constant = strtemp.Split(",")


Case stringtype.str_lower


strtemp = "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z"


constant = strtemp.Split(",")


Case stringtype.str_num


strtemp = "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,X,Y,Z,0,1,2,3,4,5,6,7,8,9"


constant = strtemp.Split(",")


Case stringtype.str_upper


strtemp = "A,B,C,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Y,Z"


constant = strtemp.Split(",")


End Select




Dim NewRandom As System.Text.StringBuilder = New System.Text.StringBuilder(Length)


Dim rd As Random = New Random()


Dim i As Integer


For i = 0 To Length - 1 Step i + 1


NewRandom.Append(constant(rd.Next(constant.Length - 1)))


Next


Return NewRandom.ToString()


End Function