用Erlang编写Excel文件
我正在尝试通过erlang编写excel文件。我使用以下代码编写excel文件用Erlang编写Excel文件,excel,erlang,Excel,Erlang,我正在尝试通过erlang编写excel文件。我使用以下代码编写excel文件 -module(excel). -export([start/1]). start(Val)-> case file:open("office-test.xls",[append]) of {ok,Fd} -> io:format(" file created"), io:fwrite(Fd,"~p\t~p\t~p~n", ["Name"
-module(excel).
-export([start/1]).
start(Val)->
case file:open("office-test.xls",[append]) of
{ok,Fd} -> io:format(" file created"),
io:fwrite(Fd,"~p\t~p\t~p~n", ["Name","Date","Number"]),
export(Fd,Val),
file:close(Fd);
{error,_} -> io:format("~nerror in creation of file")
end.
export(_,0)->
ok;
export(Fd,Val) ->
io:fwrite(Fd, "~p\t~p\t~p\t~n" ,["B123","2012/10/11 12:12:12","val"++integer_to_list(Val)]),
export(Fd,Val-1).
2） 是否有其他方法通过erlang.编写excel表格？以下链接中的以下信息，可直接创建excel数据，并满足您的要求： 3个例子 有关如何使用Comet的详细示例 3.1彗星实例 本章详细描述了有关Comet使用的som示例；首先是最简单的，最后是最高级的 以下是四个例子：
Browsing to a specified address
Opening Excel, dumping some data, showing a graph
Calling a function in a C++ library
最后一个示例可以运行，但要修改COM库，需要VisualC++ 5或更高版本。 3.3示例一，打开特定URL的浏览器
此示例显示如何打开浏览器（Internet Explorer），并在其中导航到特定地址 为了获得浏览器的COM接口，我们使用了一个工具，如OLE/COM对象查看器，它包含在Microsoft的Windows平台SDK、Visual C和Visual Basic中 检查InternetExplorer的界面，我们发现了一些我们需要的东西。首先，我们需要类ID。然后我们需要创建和使用浏览器所需的函数和属性的名称和参数列表 由于启动浏览器不是一项性能关键任务，因此我们可以使用最慢、最安全的方式从Erlang启动浏览器。这意味着将erl_com作为端口进程启动，并使用IDispatch接口访问Internet Explorer 尽管Internet Explorer提供了双接口（即同时具有方法表和IDispatch接口的接口），但IDispatch接口更安全、速度更慢。给它一个错误的参数列表，返回一个错误代码，而不是核心转储 要使用COM对象，我们必须启动服务器（启动端口）并启动线程。然后我们可以创建这个对象，并用它做我们想做的事情 为了能够使用常量，我们将源代码放在一个模块中，而不是在erlangshell中交互调用它-module(win_browse).
-include("erl_com.hrl").
-export([open/1, example/0]).
open(Url) ->
{ok, Pid}= erl_com:start_process(),
T= erl_com:new_thread(Pid),
Obj= erl_com:create_dispatch(T, "InternetExplorer.Application",
?CLSCTX_LOCAL_SERVER),
erl_com:invoke(Obj, "Navigate", [Url]),
erl_com:property_put(Obj, "Visible", true),
Obj.
example() ->
open("www.erlang.org").
-module(xc).
-author('jakob@erix.ericsson.se').
-include("erl_com.hrl").
%% enum XlChartFormat
-define(XlPieExploded, 69).
-define(XlPie, 5).
%% enum XlChartLocation
-define(xlLocationAsNewSheet, 1).
-define(xlLocationAsObject, 2).
-define(xlLocationAutomatic, 3.
%% enum XlRowCol
-define(xlColumns, 2).
-define(xlRows, 1).
-export([populate_area/4, f/3, make_graph/6, sample1/0]).
to_cell_col(C) when C > 26 ->
[C / 26 + 64, C rem 26 + 64];
to_cell_col(C) ->
[C+64].
populate_area(E, _, _, []) ->
ok;
populate_area(E, Row, Col, [Data | Resten]) ->
Cell= to_cell_col(Col)++integer_to_list(Row),
io:format(" ~s ~n ", [Cell]),
N= erl_com:property_get(E, "range", [Cell]),
Range= erl_com:package_interface(E, N),
erl_com:property_put(Range, "Value", Data),
erl_com:release(Range),
populate_area(E, Row+1, Col, Resten).
f(E, _, []) ->
ok;
f(E, Startcell, [Data | Resten]) ->
{R, C}= Startcell,
Cell= "R"++integer_to_list(R)++"C"++integer_to_list(C),
io:format(" ~p ~n ", [Cell]),
f(E, {R+1, C}, Resten).
make_graph(E, Row1, Col1, Row2, Col2, Title) ->
Charts = erl_com:package_interface(E, erl_com:property_get(E, "Charts")),
erl_com:invoke(Charts, "Add"),
ActiveChart= erl_com:package_interface(E, erl_com:property_get
(E, "ActiveChart")),
erl_com:property_put(ActiveChart, "ChartType", {vt_i4, ?XlPieExploded}),
erl_com:invoke(ActiveChart, "Location", [{vt_i4, ?xlLocationAsObject},
"Sheet1"]),
Chart= erl_com:package_interface(E, erl_com:property_get(E, "ActiveChart")),
R= to_cell_col(Col1)++integer_to_list(Row1)++":"
++to_cell_col(Col2)++integer_to_list(Row2),
io:format(" ~s ~n ", [R]),
Range= erl_com:property_get(E, "Range", [R]),
erl_com:invoke(Chart, "SetSourceData", [{vt_unknown, Range},
{vt_i4, ?xlColumns}]),
erl_com:property_put(Chart, "HasTitle", true),
ChartTitle= erl_com:package_interface(E, erl_com:property_get
(Chart, "ChartTitle")),
erl_com:property_put(ChartTitle, "Caption", Title).
%erl_com:release(erl_com:package_interface(E, Range)),
%erl_com:release(ActiveChart),
%erl_com:release(Charts).
sample1() ->
{ok, Pid}= erl_com:start_process(),
T= erl_com:new_thread(Pid),
E= erl_com:create_dispatch(T, "Excel.Application", ?CLSCTX_LOCAL_SERVER),
erl_com:property_put(E, "Visible", true),
Wb= erl_com:package_interface(T, erl_com:property_get(E, "Workbooks")),
erl_com:invoke(Wb, "Add"),
populate_area(E, 1, 1, ["Erlang", "Java", "C++"]),
populate_area(E, 1, 2, ["25", "100", "250"]),
make_graph(E, 1, 1, 3, 2, "Programming errors, by programming language"),
{T, E, Wb}.
要完成。您必须编写一个
CSV、逗号分隔的文本文件.CSV\r\n-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). C:\Windows\System32>erl Eshell V5.9 (abort with ^G) 1> ForEachLine = fun(Line,Buffer)-> io:format("Line: ~p~n",[Line]),Buffer end. #Fun<erl_eval.12.111823515> 2> InitialBuffer = []. [] 3> csv:parse("E:/erlang_projects.csv",ForEachLine,InitialBuffer). Line: ["Name","Sex","Project"] Line: ["Joe Armstrong","Male","Erlang"] Line: ["Klacke Wickstrom","Male","Yaws"] Line: ["Rusty R","Male","Nitrogen"] Line: ["Bill Gates","Male",[]] Line: ["Muzaaya Joshua","Male","ZeePay"] {ok,[]} 4> ForEachLine2 = fun(Line,Buffer)-> io:format("Line: ~p~n",[Line]),[Line|Buffer] end. #Fun<erl_eval.12.111823515> 5> csv:parse("E:/erlang_projects.csv",ForEachLine2,InitialBuffer). Line: ["Name","Sex","Project"] Line: ["Joe Armstrong","Male","Erlang"] Line: ["Klacke Wickstrom","Male","Yaws"] Line: ["Rusty R","Male","Nitrogen"] Line: ["Bill Gates","Male",[]] Line: ["Muzaaya Joshua","Male","ZeePay"] {ok,[["Muzaaya Joshua","Male","ZeePay"], ["Bill Gates","Male",[]], ["Rusty R","Male","Nitrogen"], ["Klacke Wickstrom","Male","Yaws"], ["Joe Armstrong","Male","Erlang"], ["Name","Sex","Project"]]} 6>