※ 引述《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, #] &)]