※ 引述《xnicky2000 (愛談低調的地瓜)》之銘言：
: Iy = OpenWrite[ "AK12.txt", FormatType -> OutputForm ] ;
: Table[ \[Theta] = Et[[1, n]] ;
: k = Et[[2, n]] ; \[Xi] = Et[[3, n]] ;
: Write[ Iy , N[ \[Theta], 50] , " ", N[ k, 50] ,
: " ", N[ \[Xi], 50] ],
: {n, 1, N1*16} ] ;
: Close[Iy];
: 我會出數據是用這樣寫
: 但是其中一項的值有時候太小
: 會變成用科學符號表示 如 1.258*10^-6
: 可是會出數據時排序會亂掉
: 想問能不能不要變成科學符號表示 直接用0.0000001258
test = 0.0000001258;
test
ToString@NumberForm[test, {11, 10}, (*11位，小數10位*)
ExponentFunction -> (If[-Infinity < # < Infinity, Null, #] &)]