/ Published in: Visual Basic
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
Private Sub Command1_Click() Dim i As Long Dim j As Long Dim d As String j = j - 1 datos = Text2.Text For i = 1 To Len(datos) j = j + 1 ' un digito neutral If InStr(Mid(datos, i, 1), "H") Then d = Mid(datos, i, 1) Text1.Text = Text1.Text & d & vbNewLine End If 'un dijito positivo If InStr(Mid(datos, i, 1), "I") Then d = Mid(datos, i, 1) Text1.Text = Text1.Text & d & vbNewLine End If If InStr(Mid(datos, i, 1), "J") Then d = Mid(datos, i, 1) Text1.Text = Text1.Text & d & vbNewLine End If If InStr(Mid(datos, i, 1), "K") Then d = Mid(datos, i, 1) Text1.Text = Text1.Text & d & vbNewLine End If 'un dijito negativo If InStr(Mid(datos, i, 1), "M") Then d = Mid(datos, i, 1) Text1.Text = Text1.Text & d & vbNewLine End If If InStr(Mid(datos, i, 1), "N") Then d = Mid(datos, i, 1) Text1.Text = Text1.Text & d & vbNewLine End If If InStr(Mid(datos, i, 1), "O") Then d = Mid(datos, i, 1) Text1.Text = Text1.Text & d & vbNewLine End If 'dos dijito positivo If InStr(Mid(datos, i, 1), "P") Then d = Mid(datos, i, 2) Text1.Text = Text1.Text & d & vbNewLine i = i + 1 End If If InStr(Mid(datos, i, 1), "Q") Then d = Mid(datos, i, 2) Text1.Text = Text1.Text & d & vbNewLine i = i + 1 End If If InStr(Mid(datos, i, 1), "R") Then d = Mid(datos, i, 2) Text1.Text = Text1.Text & d & vbNewLine i = i + 1 End If If InStr(Mid(datos, i, 1), "S") Then d = Mid(datos, i, 2) Text1.Text = Text1.Text & d & vbNewLine i = i + 1 End If 'dos dijito negativo If InStr(Mid(datos, i, 1), "T") Then d = Mid(datos, i, 2) Text1.Text = Text1.Text & d & vbNewLine i = i + 1 End If If InStr(Mid(datos, i, 1), "U") Then d = Mid(datos, i, 2) Text1.Text = Text1.Text & d & vbNewLine i = i + 1 End If If InStr(Mid(datos, i, 1), "V") Then d = Mid(datos, i, 2) Text1.Text = Text1.Text & d & vbNewLine i = i + 1 End If If InStr(Mid(datos, i, 1), "W") Then d = Mid(datos, i, 2) Text1.Text = Text1.Text & d & vbNewLine i = i + 1 End If 'tres digitos positivo If InStr(Mid(datos, i, 1), "X") Then d = Mid(datos, i, 3) Text1.Text = Text1.Text & d & vbNewLine i = i + 2 End If If InStr(Mid(datos, i, 1), "Y") Then d = Mid(datos, i, 3) Text1.Text = Text1.Text & d & vbNewLine i = i + 2 End If If InStr(Mid(datos, i, 1), "Z") Then d = Mid(datos, i, 3) Text1.Text = Text1.Text & d & vbNewLine i = i + 2 End If If InStr(Mid(datos, i, 1), "[") Then d = Mid(datos, i, 3) Text1.Text = Text1.Text & d & vbNewLine i = i + 2 End If 'tres digitos negativo If InStr(Mid(datos, i, 1), "\") Then d = Mid(datos, i, 3) Text1.Text = Text1.Text & d & vbNewLine i = i + 2 End If If InStr(Mid(datos, i, 1), "]") Then d = Mid(datos, i, 3) Text1.Text = Text1.Text & d & vbNewLine i = i + 2 End If If InStr(Mid(datos, i, 1), "^") Then d = Mid(datos, i, 3) Text1.Text = Text1.Text & d & vbNewLine i = i + 2 End If If InStr(Mid(datos, i, 1), "_") Then d = Mid(datos, i, 3) Text1.Text = Text1.Text & d & vbNewLine i = i + 2 End If 'cuatro digitos positivo If InStr(Mid(datos, i, 1), "`") Then d = Mid(datos, i, 4) Text1.Text = Text1.Text & d & vbNewLine i = i + 3 End If If InStr(Mid(datos, i, 1), "a") Then d = Mid(datos, i, 4) Text1.Text = Text1.Text & d & vbNewLine i = i + 3 End If If InStr(Mid(datos, i, 1), "b") Then d = Mid(datos, i, 4) Text1.Text = Text1.Text & d & vbNewLine i = i + 3 End If If InStr(Mid(datos, i, 1), "c") Then d = Mid(datos, i, 4) Text1.Text = Text1.Text & d & vbNewLine i = i + 3 End If 'cuatro digitos negativos If InStr(Mid(datos, i, 1), "d") Then d = Mid(datos, i, 4) Text1.Text = Text1.Text & d & vbNewLine i = i + 3 End If If InStr(Mid(datos, i, 1), "e") Then d = Mid(datos, i, 4) Text1.Text = Text1.Text & d & vbNewLine i = i + 3 End If If InStr(Mid(datos, i, 1), "f") Then d = Mid(datos, i, 4) Text1.Text = Text1.Text & d & vbNewLine i = i + 3 End If If InStr(Mid(datos, i, 1), "g") Then d = Mid(datos, i, 4) Text1.Text = Text1.Text & d & vbNewLine i = i + 3 End If 'cinco digitos positivo If InStr(Mid(datos, i, 1), "h") Then d = Mid(datos, i, 5) Text1.Text = Text1.Text & d & vbNewLine i = i + 4 End If If InStr(Mid(datos, i, 1), "i") Then d = Mid(datos, i, 5) Text1.Text = Text1.Text & d & vbNewLine i = i + 4 End If If InStr(Mid(datos, i, 1), "j") Then d = Mid(datos, i, 5) Text1.Text = Text1.Text & d & vbNewLine i = i + 4 End If If InStr(Mid(datos, i, 1), "k") Then d = Mid(datos, i, 5) Text1.Text = Text1.Text & d & vbNewLine i = i + 4 End If 'cinco digitos negativo If InStr(Mid(datos, i, 1), "l") Then d = Mid(datos, i, 5) Text1.Text = Text1.Text & d & vbNewLine i = i + 4 End If If InStr(Mid(datos, i, 1), "m") Then d = Mid(datos, i, 5) Text1.Text = Text1.Text & d & vbNewLine i = i + 4 End If If InStr(Mid(datos, i, 1), "n") Then d = Mid(datos, i, 5) Text1.Text = Text1.Text & d & vbNewLine i = i + 4 End If If InStr(Mid(datos, i, 1), "o") Then d = Mid(datos, i, 5) Text1.Text = Text1.Text & d & vbNewLine i = i + 4 End If 'seis digitos positivo If InStr(Mid(datos, i, 1), "p") Then d = Mid(datos, i, 6) Text1.Text = Text1.Text & d & vbNewLine i = i + 5 End If If InStr(Mid(datos, i, 1), "q") Then d = Mid(datos, i, 6) Text1.Text = Text1.Text & d & vbNewLine i = i + 5 End If If InStr(Mid(datos, i, 1), "r") Then d = Mid(datos, i, 6) Text1.Text = Text1.Text & d & vbNewLine i = i + 5 End If If InStr(Mid(datos, i, 1), "s") Then d = Mid(datos, i, 6) Text1.Text = Text1.Text & d & vbNewLine i = i + 5 End If 'seis digitos negativo If InStr(Mid(datos, i, 1), "t") Then d = Mid(datos, i, 6) Text1.Text = Text1.Text & d & vbNewLine i = i + 5 End If If InStr(Mid(datos, i, 1), "u") Then d = Mid(datos, i, 6) Text1.Text = Text1.Text & d & vbNewLine i = i + 5 End If If InStr(Mid(datos, i, 1), "v") Then d = Mid(datos, i, 6) Text1.Text = Text1.Text & d & vbNewLine i = i + 5 End If If InStr(Mid(datos, i, 1), "w") Then d = Mid(datos, i, 6) Text1.Text = Text1.Text & d & vbNewLine i = i + 5 End If Next MsgBox j End Sub