Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: EnigmaX en Junio 18, 2015, 11:29:59 am
-
Hola,
Esta función para convertir STRING a ASCII
Cómo funcionaría hacer lo contrario a ASCII a STRING
Gracias!!!
FORM + EDIT + BUTTON
Private Sub Command1_Click()
Text1.Text = ChrCode(Text1.Text)
Clipboard.Clear
Clipboard.SetText (Text1.Text)
End Sub
Private Function ChrCode(txt As String) As String
Dim x
Dim outstring As String
For x = 1 To Len(txt$)
outstring$ = outstring$ + "Chr$(" + CStr(Asc(Mid(txt$, x, 1))) + ") + "
Next x
outstring$ = Trim(outstring$)
outstring$ = Mid(outstring$, 1, Len(outstring$) - 2)
ChrCode = outstring$
End Function
[]'s