Ausgabe in ein txt file

["Christian M. Sperber" <sperber.christian@XXXXXXX.de>]

Hallo,
eine Frage zum Exportieren. Ich moechte gerne ein array in eine 
txt-Datei einlesen, jedoch nicht in der einfachen "Table"-Form sondern 
in der "TableForm"-Form. Also die Elemente eines Tripels getrennt durch 
white spaces oder tabs und jedes Tripel in einer neuen Zeile.
Meine Versuche sind alles Fehlgeschlafen mit den Hilfen unter "File 
Output" und "Import and Export".


stream1 = OpenWrite[
  "C:/temp.txt"]TableForm[Flatten[Table[{i, j, k}, {i, 1, 2, 1}, {j,
      1, 2, 1}, {k, 1, 2, 1}], 2], TableHeadings -> {None, {"i", "j", 
"k"}}]
Close[stream1]

Vielen Dank fuer jeden Hinweis
Christian