代码如下：
Export["C:\\Users\\super\\Desktop\\test.txt",
Table[0, {i, 5}, {j, 5}, {k, 5}, {v, 5}], "Table"];
Import["C:\\Users\\super\\Desktop\\test.txt", "Table"]
有什么好的办法吗？

Import导入“table”时，以空格和换行来分隔列表，所以txt文件不是“table”格式，所以导进来和预期不一样
所以手动处理字符串吧
Export["aaa.txt",
Table[i, {i, 5}, {j, 5}, {k, 5}, {v, 5}], "Table"]
StringReplace[
StringInsert["{{}}", Import["aaa.txt"],
3], {"\t" -> ",", "\n" -> "},{"}] // ToExpression

原因就如3楼所说，还有如果你最后还是导进Mathematica用的话，那还是用DumpSave更好……