20. marts 2009 - 09:33Der er
2 kommentarer og 1 løsning
Dan streng ud fra en stor streng
Følgende kode: __________________________________________________________ Dim strPass As String Dim strLower As String Dim strUpper As String Dim strNumber As String Dim strSign As String Dim strChars As String Dim intMax As Integer Dim i As Integer Randomize strLower = "qwertyuiopasdfghjklzxcvbnm" strUpper = "QWERTYUIOPASDFGHJKLZXCVBNM" strNumber = "0123456789111213141516171819"
End Function ____________________________________________________________
Danner en fin lille 8 karakterer lang streng. Jeg vil gerne have at den tage mindst 1 fra hver "gruppe". Altså mindst 1 af hver af disse skal være med i den dannede streng: strLower = "qwertyuiopasdfghjklzxcvbnm" strUpper = "QWERTYUIOPASDFGHJKLZXCVBNM" strNumber = "0123456789"
Hvordan gør jeg det? 200 point og et internets til den der kan løse det.
Dim strPass As String Dim strLower As String Dim strUpper As String Dim strNumber As String Dim strSign As String Dim strChars As String Dim intMax As Integer Dim intLength As Integer Dim i As Integer Randomize
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
