23 lines
764 B
Text
23 lines
764 B
Text
Sub CaracteresUnicos (cad As String)
|
|
Dim As Integer lngt = Len(cad)
|
|
Print "Cadena = """; cad; """, longitud = "; lngt
|
|
For i As Integer = 1 To lngt
|
|
For j As Integer = i + 1 To lngt
|
|
If Mid(cad,i,1) = Mid(cad,j,1) Then
|
|
Print " Primer duplicado en las posiciones " & i & _
|
|
" y " & j & ", caracter = '" & Mid(cad,i,1) & _
|
|
"', valor hex = " & Hex(Asc(Mid(cad,i,1)))
|
|
Print
|
|
Exit Sub
|
|
End If
|
|
Next j
|
|
Next i
|
|
Print " Todos los caracteres son unicos." & Chr(10)
|
|
End Sub
|
|
|
|
CaracteresUnicos ("")
|
|
CaracteresUnicos (".")
|
|
CaracteresUnicos ("abcABC")
|
|
CaracteresUnicos ("XYZ ZYX")
|
|
CaracteresUnicos ("1234567890ABCDEFGHIJKLMN0PQRSTUVWXYZ")
|
|
Sleep
|