: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 ?
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.
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.