データのエクスポート、追加/準備データとテキストの処理ファイル（Mathematica）

Question

CSV形式のテーブル「MyData1」から「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」（以下のコード）から別のデータセットがあります。このテーブル「mydata2」からデータを同じファイル「file1.dat」に保存することができます。 EGのファイル「file1.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」が「mydata1」のデータの下にあるテーブル「mydata2」からデータがある必要があり、その間にいくつかのテキストが書かれている必要があります。

注：拡張機能TXTでデータをエクスポートすることをいとわないが、たとえばCSV形式で：

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

私は「PutAppend」を使用しましたが、それは私に望ましい結果を与えませんでした。

私はエクスポートについて多くの質問がありますが、私はあなた全員を混乱させたくないので、私は今これのすべてを尋ねません。