Caracteres digitales extraídos de un archivo de texto a otro

Desde un archivo de texto de origen, los caracteres de dígito (0 a 9) se muestran en un cuadro de mensaje y se copian en un archivo de texto de destino. El archivo de origen en sí mismo permanece sin cambios.