numeros acsii

[diego_z]

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

[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:

Código [Seleccionar] Expandir

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.