0

リストにテキストファイルを読み込んでいます。内容は次のとおりです。

blah
blah
blah

リストデータをファイルに書き込もうとしているので、上記と同じように見えます。使用していたのは次のとおりです。

filewrite(File,L) ->
    {ok, S} = file:open(File, write),
    lists:foreach( fun(X) -> io:format(S, "~n",[X]) end, L),
    file:close(S).

しかし、これは括弧とスピーチマークを付けてすべてを1行に印刷します...

4

1 に答える 1

0

Try this:

filewrite(File, []) ->
    ok;
filewrite(File, List) ->
    file:write_file(File, lists:foldl(fun(E, A) ->
        A ++ "\n" ++ E
    end, hd(List), tl(List))).
于 2013-01-23T06:09:39.173 に答える