Форматирование чисел при записи в файлы в системе Mathematica

Это продолжение этого вопроса о форматировании чисел и связанного с моим предыдущим вопросом о получении очень специфичного вывода Mathematica в текстовые файлы

Мне часто приходится использовать в системе Mathematica высокую точность для генерации данных, но для визуализации требуется только относительно низкая точность. Я также хочу сохранить данные для последующего использования с сохранением всех имен символов и структур массивов. Для этого я использовал Сохранить [] , но есть две связанные проблемы.

1. Высокая точность "загрязняет" мои результаты лишними цифрами, от которых очень трудно избавиться:

    In [1]: = b = SetPrecision [7, 50]; а = Pi / b
   Выход [1]: = 0,44879895051282760549466334046850041202816705705358654585356351318683091518373`50.
   В [2]: = InputForm @ N [a, 6]
   Выход [2]: = 0,44879895051282760549466334046850041203`6.
   У меня нет проблем с отображением чисел, отслеживанием точности чисел или изменением точности чисел. У меня проблемы с управлением записью числа в файл. 
   
    Использование  N ,  NumberForm ,  OutputForm ,  InputForm ,  * Форма  и т. Д. Не работают должным образом с  Сохранить . И  Сохранить  - единственный вариант экспорта, который я могу найти, который экспортирует структуру символа и массива.  Export  и  Put *  можно использовать для лучшего управления форматированием, но они не включают символ (а в случае  Export  структура массива теряется также).
   Мне нужно заменить их простым пробелом -> "". Как это сделать быстрее всего?
   Спасибо  
    У меня довольно большой объем текста, который включает такие управляющие символы, как \ n \ t и \ r.
   Мне нужно заменить их простым пробелом -> "". Как это сделать быстрее всего?
   Спасибо