版本：11.2先贴代码。
address = NotebookDirectory[] <> "专栏404520" <> ".csv";
getdata[cv_] := (
OpenAppend[address];
Write[Streams[address], StringRiffle[ToString /@ Floor@Now[[1, ;; 6]], ","] <> "," <>
ToString[ Import["https://api.bilibili.com/x/article/viewinfo?id=404520", "JSON"]] <> "\n"];
Close[First[Streams[address]]];
)
While[True, getdata[404520]; Pause[60]]。
在软件本身中输出部分很正常。
当输入文件时，第一会出现奇怪的自动换行，而且excel也不能正确的读取csv文件（所有东西全部挤在一个单元格里）。
第二输出中所有的中文全部变成乱码。
请教一下这个现象的导致原因和处理方法。

你应简化你的代码 不影响问题表述下去掉无关代码。不然不好复现

Write作为一个低层函数并不能直接处理汉字：
filename = "你的示例完全.txt";
Write[filename, "可以进一步简化"]
SystemOpen@filename