générer une liste dans un fichier mathematica

Question

ret = {}; 
For[i = 1, i <= Length@x, i++, 
    AppendTo[ret, {idNum = x[[i, 1]] , a = x[[i, 2]], b = x[[i, 3]], 
    c = x[[i, 4]], d = x[[i, 5]], e = x[[i, 6]], f = x[[i, 7]], 
    g = DateDifference[{d, e, f}, {currYear, currMonth, currDay}], 
    If[g > 90, Y, N]}];]; 
Print@ret 

Comment puis-je afficher une liste dans un fichier texte qui n'a pas de parenthèses et d'accolades, également besoin d'une nouvelle ligne après chaque ligne.

Answer 1

Vous devez utiliser la commande Export, par exemple pour enregistrer un tableau nxn sous forme de valeurs séparées par des virgules utiliser quelque chose comme:

data = RandomInteger[{0, 256}, {50, 50}] 
Export[NotebookDirectory[] <> "data.csv", data, "CSV"] 

Les formats intégrés sont donnés dans $ExportFormats

Answer 2

J'aime utiliser Export["ret.m", ret, "Lines"] pour obtenir une entrée par ligne dans le fichier de sortie ret.m. YMMV en fonction de la structure du produit que vous exportez.

Answer 3

Tout comme un sidetalk:

La manière habituelle de programmer en Mathematica est fonctionnelle, plutôt que de procédure.

Les variables sont définies uniquement lorsque vous devez inspecter quelque chose ou conserver des résultats pour un travail ultérieur. De plus, les boucles sont déconseillées.

une forme équivalente de votre programme (juste un projet rapide), dans ces lignes peut être quelque chose comme:

x = {{1, a1, b1, c1, 2010, 11, 12}, 
    {1, a2, b2, c2, 2011, 12, 13}}; 
Export["c:\data.csv", #, "CSV"] & 
[Flatten[ 
    {#[[1 ;; 7]], 
    {#, If[# > 90, "Y", "N"]} &@ 
     DateDifference[#[[5 ;; 7]], DateList[][[1 ;; 3]]]} 
    ] & /@ x]