Programación VB, salida y lectura de valores de coordenadas.

Private Sub Command2_Click() 'Leer coordenadas

Atenuar MyChar

Atenuar zb como cadena

Abrir App.Path amp "\ TESTFILE.txt" Para entrada como #1 'Abre el archivo.

Do While Not EOF(1) ' Bucle hasta el final del archivo.

MyChar = Input(1, #1) 'Leer un carácter.

Si MyChar = " " Entonces

Imprimir zb

zb = ""

De lo contrario

zb = zb amp; MyChar

Finalizar si

Bucle

Cerrar #1

Finalizar sub

Subcomando privado3_Click () 'Escribir coordenadas

Abrir App.Path amp; "\TESTFILE.txt" para Agregar como #1 'Abrir el archivo de salida.

zb = "123"

Escribe #1, zb

Cierra #1

Fin Sub