 Autor
|
Tema: numeros acsii (Leído 1,274 veces)
|
diego_z
 Desconectado
Mensajes: 14
|
:huh:hola muchachos no se si es el lugar indicado para mi pregunta pero bueno como puedo hacer para pasar un archivo acsii a decimales o texto ?
|
|
|
|
|
En línea
|
|
|
|
‡‡‡ Ðξλ†Ћ Щλ†ζЋ ‡‡‡
Desconectado
Mensajes: 56
|
A número:
Private Sub Command1_Click()
Text2.Text = Asc(Text1.Text)
End Sub
Donde la caja de texto Text2, te va a mostrar el número correspondiente al caracter en Ascii, contenido en la caja de texto Text1.
Por ejemplo, si en Text1, tienes @, al presionar el boton Command1, en Text2, se mostrará 64.
A decimales:
Private Sub Command1_Click()
Text3.Text = Format(Asc(Text1.Text), "#00.00")
End Sub
Donde la caja de texto Text3, te va a mostrar el número correspondiente al caracter en Ascii, contenido en la caja de texto Text1. Y con el Format le das el formato que quieras, ej, "####00.00", "$ #00.000", etc.
Así, por ejemplo, si tienes en Text1, @, al presionar el botón Command1, en Text3, se mostrará 64.00.
Ahora, no entiendo a lo que te refieres con cambiar a texto. Cualquier caracter en Ascii es texto, no número.
Bueno, espero que esto te haya ayudado.
Nos vemos.
|
|
|
|
|
En línea
|
|
|
|
|
Chefito
|
No te explicas muy bien, pero puede que diga que los datos del archivo son códigos ascii. Para cambiar un código ascii debes hacer esto: Dim caract as String,codigo as string
codigo="65"
caract=chr$(codigo)
Esto va a almacenar el caracter A en la variable caract. Esta función convierte directamente el string en long, por lo que no es necesario hacer chr$(clng(codigo)) para convertirlo. |
|
|
|
|
En línea
|
Moderador del foro oficial de AutoIt en español: www.AutoIt.es.Todos tenemos inteligencia, lo malo es que algunos no nos acordamos donde la dejamos guardada  |
|
|
|
 |
