fwrite

string path="C:\12345.txt"; // путь к файлу
string path2="C:\6789.txt"; // куда сохранить

char c[999999];
if(fopen(path, "rb")) // открыть файл
{
int count_symbol=freadb(#c[0], sizearray(c))-1; // читаем файл
fclose();

string temp=format(#c[0], count_symbol); // копируем
//messagebox(temp);

if(fopen(path2, "w"))
{
fwrite(temp); // пишем строку в файл
fclose();
start(path2);
}
}
else messagebox("Файл не найден");