2

我有存储在 Excel 文件中的数据

此文件包含两列：姓名和姓氏

并包含几行

我的目标是在我的数据库 mnesia 中注册这些数据（在包含两个属性的 person 表中：Name 和 Surname）

是否可以将数据从excel文件保存到mnesia数据库

如果无法将数据从 excel 文件导入 mnesia，我们可以将源文件（excel 文件）转换为 .sql 或 .txt，然后将此文件导入 mnesia

4

3 回答 3

2

我认为最简单的方法是将excel数据导出/保存到csv文件，然后使用这样的代码从erlang解析它。

{ok, Data} = file:read_file("test.csv"),
ParsedData = lists:map(
    fun(Str) -> string:tokens(Str, ",") end,
    string:tokens(binary_to_list(Data), "\n")
),
lists:foreach(fun([K,V]) -> mnesia:write(K, V) end, ParsedData).
于 2013-01-16T11:16:54.683 回答
0

您需要将 Excel 文件转换为.csv文件。然后您可以使用CSV Parser此处提供的 i：https ://stackoverflow.com/a/10810660/431620 。从 Excel 导入数据非常简单直接。 编辑

而且我忘记了一些事情，我上面提供的 CSV 解析器确保可以将任何文件大小解析为您想要的任何 erlang 应用程序。这是通过扫描文件来完成的，而不是一次将其全部读入内存。谨防编写试图立即读取文件的代码，大文件会使 vm 崩溃。我们已经使用该程序将大型 csv 转储文件从 SQL Server 和 Oracle 等其他数据库导入到 Mnesia。

于 2013-01-17T07:36:01.610 回答
0

我创建了这个文件csv.erl：

%%% --- 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.

clean(Text,Char)-> 
    string:strip(string:strip(Text,right,Char),left,Char).

我创建了一个函数以从 csv 文件中提取数据：

test()->

    ForEachLine = fun(Line,Buffer)-> io:format("Line: ~p~n",[Line]),Buffer end,

 InitialBuffer = [],

 csv:parse("/home/include/person.csv",ForEachLine,InitialBuffer).

并在 erlang 的控制台中显示正确的结果：

1> operation:test(). 
Line: ["50;97919861;5ab190537df;9898abb6e;efb65a0ad1;1",
       "35427;1",
       "3542;30-11-2012;testU2;testU6;undefined;m.;enabled;jjj;A999997;97979797;CIN;testU@gmail.com;b1088b51297846e;0;user;0;{{2012",
       "11","30}","{1","59",
       "26}};gggg;kkkk;ssss;standard;{2012","11",
       "30};hhhh;mmm;undefined;18;yyyy;nnnn;false;{{2012",
       "11","30}","{1","59","26}};1989;1;1"]
ok

现在我的目标是在 mnesia 数据库中注册这些数据（在表 person 中）

餐桌人有49个属性

所以注册这一行

   Line: ["50;97919861;5ab190537df;9898abb6e;efb65a0ad1;1",
           "35427;1",
           "3542;30-11-2012;testU2;testU6;undefined;m.;enabled;jjj;A999997;97979797;CIN;testU@gmail.com;b1088b51297846e;0;user;0;{{2012",
           "11","30}","{1","59",
           "26}};gggg;kkkk;ssss;standard;{2012","11",
           "30};hhhh;mmm;undefined;18;yyyy;nnnn;false;{{2012",
           "11","30}","{1","59","26}};1989;1;1"]

在具有这种结构的表人中：

-record(person, {id, token, password, pin, key, salt, pin_salt, subscription_date, first_name, last_name, alias, gender, status,
                 taxid, formid, idcard, id_type, email, activation_code, email_confirmation, role,
                 trying, last_access, last_activity, last_activity_ip, last_activity_op_code, group, last_mod, last_login,
                 agent_code, agency_code, parent_id,pass_changes, pin_changes, is_merchant, created_at, birth_year, birth_month, birth_date}).
于 2013-01-23T11:40:38.663 回答