Экспорт, добавление / подготовительные данные и текст в файлы (Mathematica)

Я экспортирую данные из таблицы «MyData1» в формате CSV в «file1.dat». Ниже приведен код Mathematica:

mydata1=TableForm[Flatten[
Table[Table[Table[
                 {xcord, ycord, zcord}, {xcord, 0,50,10}],
                   {ycord,0,50,10}], {zcord, 50, 100, 10}], 2]];

Export["file1.dat",mydata1,"CSV"]

Теперь мой «file1.dat» выглядит так:

0,0,50
10,0,50
20,0,50
..
.. and so on

Теперь у меня есть другой набор данных из таблицы «MyData2» (код, приведенный ниже ниже) .i Хотите сохранить данные Из этой таблицы «MyData2» в тот же файл «file1.dat». Но до этого мне нужно написать текст в файл «Файл1.dat», например, «Данные ниже из MyData2».

Обратите внимание как данные из обеих таблиц, необходимых для экспорта в формате CSV.

mycounter=20
mydata2=TableForm[Flatten[
Table[Table[Table[
                 {++mycounter,xcord, ycord, zcord}, {xcord, 0,50,10}],
                   {ycord,0,50,10}], {zcord, 50, 100, 10}], 2]];

В конце концов мой файл данных «File1.dat» должен выглядеть так

*Data from data from mydata1
0,0,50
10,0,50
20,0,50
... and so on
*Below data from mydata2
21,0,0,50
22,10,0,50
23,20,0,50
... and so on.

, если вы соблюдаете окончательный файл данных «file1.dat» должен иметь данные из таблицы «MyData2» ниже данных из «MyData1» и в между там есть какой-то текст.

Примечание. Я готов экспортировать данные с расширением TXT, но в формате CSV, например:

Export["file1.txt", mydata1, "CSV"]

Я использовал «putAppend», но он не дает мне желаемых результатов. Никто не использую это Правильно или, возможно, это не ключевое слово для моей проблемы.

У меня есть много вопросов, касающихся экспорта, но я бы не запрашивал все это, так как я не хочу путать вас всех.