[英]export data from mnesia to excel
我有桌子的用戶
-record(person, {id, firstname, lastname}).
該表包含以下值:
1 francoi mocci
2 test tes
我的目標是如何將數據從mnesia導出到excel
我知道相反的方式,即從Excel到Mnesia傳輸數據
在這種情況下,解決方案是在csv.file中交談excel,然后使用這種代碼解析csv文件:
%%% --- csv parser in Erlang. ------
%%% To help process large csv files without loading them into
%%% memory. Similar to the xml parsing technique of SAX
-module(csv).
-compile(export_all).
parse(FilePath,ForEachLine,Opaque)->
case file:open(FilePath,[read]) of
{_,S} ->
start_parsing(S,ForEachLine,Opaque);
Error -> Error
end.
start_parsing(S,ForEachLine,Opaque)->
Line = io:get_line(S,''),
case Line of
eof -> {ok,Opaque};
"\n" -> start_parsing(S,ForEachLine,Opaque);
"\r\n" -> start_parsing(S,ForEachLine,Opaque);
_ ->
NewOpaque = ForEachLine(scanner(clean(clean(Line,10),13)),Opaque),
start_parsing(S,ForEachLine,NewOpaque)
end.
scan(InitString,Char,[Head|Buffer]) when Head == Char ->
{lists:reverse(InitString),Buffer};
scan(InitString,Char,[Head|Buffer]) when Head =/= Char ->
scan([Head|InitString],Char,Buffer);
scan(X,_,Buffer) when Buffer == [] -> {done,lists:reverse(X)}.
scanner(Text)-> lists:reverse(traverse_text(Text,[])).
%%traverse_text(Text,Buff)->
%% case scan("",$,,Text) of
%% {done,SomeText}-> [SomeText|Buff];
%% {Value,Rem}-> traverse_text(Rem,[Value|Buff])
%% end.
traverse_text(Text,Buff)->
case scan("",$;,Text) of
{done,SomeText}-> [SomeText|Buff];
{Value,Rem}-> traverse_text(Rem,[Value|Buff])
end.
clean(Text,Char)->
string:strip(string:strip(Text,right,Char),left,Char).
這是將數據從csv文件插入到mnesia的函數示例:
test()->
ForEachLine = fun(Line,Buffer)->
[Id, Firstname, Lastname] = Line,
%% here insert each line to the table mnesia
Buffer end,
InitialBuffer = [],
csv:parse("/home/test/Desktop/testt.csv",ForEachLine,InitialBuffer).
這個例子沒有問題
我嘗試使用以下代碼:
test()->
F = fun(T) -> mensia:foldl(fun(X,Acc) -> [X|Acc] end, [],T),
{atomic,L} = mnesia:transaction(F),
file:write_file("filename.txt",[io_lib:format("~p\t~p\t~p~n",[F1,F2,F3]) ||
#person{id = F1,firstname = F2,lastname = F3} <- L]).
但我有這個錯誤:
syntax error before : '.'
此錯誤與此行有關:
#person{id = F1,firstname = F2,lastname = F3} <- L]).
我嘗試使用以下方式更正我的代碼:
test()->
F = fun(T) -> mensia:foldl(fun(X,Acc) -> [X|Acc] end, [],T),
{atomic,L} = mnesia:transaction(F),
file:write_file("filename.txt",[io_lib:format("~p\t~p\t~p~n",[F1,F2,F3]) ||
#person{id = F1,firstname = F2,lastname = F3} <- L])end.
但是我現在有這個錯誤:
variable 'F' is unbound
此錯誤與此行有關:
{atomic,L} = mnesia:transaction(F),
我用以下方法解決了這個問題:
test()->
F = fun(T) -> mensia:foldl(fun(X,Acc) -> [X|Acc] end, [],T)end,
{atomic,L} = mnesia:transaction(F),
file:write_file("filename.txt",[io_lib:format("~p\t~p\t~p~n",[F1,F2,F3]) ||
#person{id = F1,firstname = F2,lastname = F3} <- L]).
但是當我運行我的函數時,我遇到了這個錯誤:
** exception error: no match of right hand side value {aborted,{{badarity,{#Fun<model.20.69991685>,[]}},
[{mnesia_tm,apply_fun,3},
{mnesia_tm,execute_transaction,5},
{model,test,0},
{erl_eval,do_apply,5},
{shell,exprs,6},
{shell,eval_exprs,6},
{shell,eval_loop,3}]}}
in function model:test/0
我嘗試使用以下代碼:
test()->
F = fun() -> mensia:foldl(fun(X,Acc) -> [X|Acc] end, [],person)end,
{atomic,L} = mnesia:transaction(F),
file:write_file("filename.txt",[io_lib:format("~p\t~p\t~p~n",[F1,F2,F3]) ||
#person{id = F1,firstname = F2,lastname = F3} <- L]).
但我也有這個錯誤:
** exception error: no match of right hand side value {aborted,{undef,[{mensia,foldl,
[#Fun<model.21.662230>,[],person]},
{mnesia_tm,apply_fun,3},
{mnesia_tm,execute_transaction,5},
{model,test,0},
{erl_eval,do_apply,5},
{shell,exprs,6},
{shell,eval_exprs,6},
{shell,eval_loop,3}]}}
in function model:test/0
您可以使用foldl函數創建列表,然后將此列表使用任何字符作為分隔符(空格,逗號,制表符...,具體取決於記錄的內容)寫入文件,最后使用Excel讀取文本文件,您將有一個彈出菜單,可幫助您控制excel解釋數據的方式。 我認為最好使用中間列表,因為直接寫入文件對於數據庫事務可能很長。
編輯:對不起,我沒有測試這條線...它現在應該可以工作。
...
F = fun(T) -> mnesia:foldl(fun(X,Acc) -> [X|Acc] end, [],T) end,
{atomic,L} = mnesia:transaction(F(mnesia_table)),
file:write_file("filename.txt",[io_lib:format("~p\t~p~n",[F1,F2]) ||
#table_record{field1 = F1,field2 = F2} <- L]),
...
您忘了在第一行end
:
F = fun(T) -> mensia:foldl(fun(X,Acc) -> [X|Acc] end, [],T) end,
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.