Bueno aca les vengo a traer una simple pero util aplicacion que hice en mi tiempo libre. muy util para sql injection, pero si la quieren usar para otra cosa, les sirve. tiene la opcion de encerrar el resultado entre parentesis "()", o de separar con lo que ustedes quieran: ","; "."; " "; "-"
Una fotito:Aca esta el código por si alguien lo quiere (no soy ningun profesional!)
:
Private Sub Command1_Click()
If text1.Text = "" Then
MsgBox "Escribí algo para convertir!", vbCritical, "Error"
Else
If Check1.Value = Checked Then
Dim letras As String
Dim vseparador As String
Dim separador As String
Dim caca As String
Dim msj As String
caca = ""
separador = Text3.Text
For i = 1 To Len(text1)
caca = caca + CStr(Asc(Mid(text1.Text, i, 1))) & separador
Next i
vseparador = Len(separador)
letras = Len(caca)
msj = "(" + Left(caca, letras - vseparador) + ")"
Text2.Text = msj
Else
caca = ""
separador = Text3.Text
For i = 1 To Len(text1)
caca = caca + CStr(Asc(Mid(text1.Text, i, 1))) & separador
Next i
vseparador = Len(separador)
letras = Len(caca)
msj = Left(caca, letras - vseparador)
Text2.Text = msj
End If
End If
End Sub
Private Sub text1_click()
text1.Text = ""
End Sub
La descarga ya compilado por si lo quieren asi:
DescargarSuerte a todos!