Convertir cadena(letras y números) a código ascci
¿Cómo convierto cualquier cadena(letras y números) que se introduzca en un text a código ascii en visual basic 6.0?
1 Respuesta
Respuesta de ifrancoz
1
Esto lo puede hacer con la función Asc
Ejemplo :
Dim I As Integer
Dim Lon As Integer
Dim Codigo As Byte
Dim Cadena As String
Dim Codigos As String
Private Sub Form_Load()
Codigos = ""
Cadena = "Esto es una prueba"
Lon = Len(Cadena)
For I = 1 To Lon
Codigo = Asc(Mid(Cadena, I, 1))
Codigos = Codigos & Str(Codigo)
Next I
End Sub
Suerte !
Ejemplo :
Dim I As Integer
Dim Lon As Integer
Dim Codigo As Byte
Dim Cadena As String
Dim Codigos As String
Private Sub Form_Load()
Codigos = ""
Cadena = "Esto es una prueba"
Lon = Len(Cadena)
For I = 1 To Lon
Codigo = Asc(Mid(Cadena, I, 1))
Codigos = Codigos & Str(Codigo)
Next I
End Sub
Suerte !
Cierra la pregunta calificando la respuesta.
