Programación Zbi

Private Sub Command2_Click()'Leer coordenadas.

Atenuar MyChar

Anotar zb como una cadena

Abre la aplicación. Caminos y caminos. "\testfile.txt "Abra el archivo para ingresarlo como # 1 '.

"Do While Not EOF(1)" llega al final del archivo.

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

Si MyChar = " "Entonces

Imprimir zb

zb = " "

Otro

zb = zb & ampMyChar

Terminará si...

Bucle

Cerrar #1

Conector final

Subcomando privado3_Click()'Escribir coordenadas.

Abre la aplicación. Caminos y caminos. "\testfile.txt "Abrir el archivo de salida para el apéndice como #1 '.

zb = "123 "

Escribe #1, zb

Cierra #1

Conector final